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 ଅ   ᛒ ଅ   ऍ
15  \ /   \ /
16   ƈ     Ḋ
17    \   /
18     \ /
19      Ḟ
20
21=cut
22
23{
24    package Ƭ::ŁiƁ::ଅ; use mro 'dfs';
25    package Ƭ::ŁiƁ::ᛒ; use mro 'dfs';
26    package Ƭ::ŁiƁ::ऍ; use mro 'dfs';
27    package Ƭ::ŁiƁ::ƈ; use mro 'dfs'; use base ('Ƭ::ŁiƁ::ଅ', 'Ƭ::ŁiƁ::ᛒ');
28    package Ƭ::ŁiƁ::Ḋ; use mro 'dfs'; use base ('Ƭ::ŁiƁ::ଅ', 'Ƭ::ŁiƁ::ऍ');
29    package Ƭ::ŁiƁ::Ḟ; use mro 'dfs'; 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