1#!./perl
2
3use strict;
4use warnings;
5use utf8;
6use open qw( :utf8 :std );
7
8require q(./test.pl); plan(tests => 1);
9
10=pod
11
12From the parrot test t/pmc/object-meths.t
13
14 A   B A   E
15  \ /   \ /
16   C     D
17    \   /
18     \ /
19      F
20
21=cut
22
23{
24    package Ƭ::ŁiƁ::ଅ; use mro 'c3';
25    package Ƭ::ŁiƁ::ᛒ; use mro 'c3';
26    package Ƭ::ŁiƁ::ऍ; use mro 'c3';
27    package Ƭ::ŁiƁ::ƈ; use mro 'c3'; use base ('Ƭ::ŁiƁ::ଅ', 'Ƭ::ŁiƁ::ᛒ');
28    package Ƭ::ŁiƁ::Ḋ; use mro 'c3'; use base ('Ƭ::ŁiƁ::ଅ', 'Ƭ::ŁiƁ::ऍ');
29    package Ƭ::ŁiƁ::Ḟ; use mro 'c3'; use base ('Ƭ::ŁiƁ::ƈ', 'Ƭ::ŁiƁ::Ḋ');
30}
31
32ok(eq_array(
33    mro::get_linear_isa('Ƭ::ŁiƁ::Ḟ'),
34    [ qw(Ƭ::ŁiƁ::Ḟ Ƭ::ŁiƁ::ƈ Ƭ::ŁiƁ::Ḋ Ƭ::ŁiƁ::ଅ Ƭ::ŁiƁ::ᛒ Ƭ::ŁiƁ::ऍ) ]
35), '... got the right MRO for Ƭ::ŁiƁ::Ḟ');
36
37