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
12=encoding UTF-8
13
14From the parrot test t/pmc/object-meths.t
15
16 ଅ   ᛒ ଅ   ऍ
17  \ /   \ /
18   ƈ     Ḋ
19    \   /
20     \ /
21      Ḟ
22
23=cut
24
25{
26    package Ƭ::ŁiƁ::ଅ; use mro 'dfs';
27    package Ƭ::ŁiƁ::ᛒ; use mro 'dfs';
28    package Ƭ::ŁiƁ::ऍ; use mro 'dfs';
29    package Ƭ::ŁiƁ::ƈ; use mro 'dfs'; use base ('Ƭ::ŁiƁ::ଅ', 'Ƭ::ŁiƁ::ᛒ');
30    package Ƭ::ŁiƁ::Ḋ; use mro 'dfs'; use base ('Ƭ::ŁiƁ::ଅ', 'Ƭ::ŁiƁ::ऍ');
31    package Ƭ::ŁiƁ::Ḟ; use mro 'dfs'; use base ('Ƭ::ŁiƁ::ƈ', 'Ƭ::ŁiƁ::Ḋ');
32}
33
34ok(eq_array(
35    mro::get_linear_isa('Ƭ::ŁiƁ::Ḟ'),
36    [ qw(Ƭ::ŁiƁ::Ḟ Ƭ::ŁiƁ::ƈ Ƭ::ŁiƁ::ଅ Ƭ::ŁiƁ::ᛒ Ƭ::ŁiƁ::Ḋ Ƭ::ŁiƁ::ऍ) ]
37), '... got the right MRO for Ƭ::ŁiƁ::Ḟ');
38
39