Commit | Line | Data |
---|---|---|
204e6232 BF |
1 | #!./perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | use utf8; | |
6 | use open qw( :utf8 :std ); | |
7 | ||
8 | require q(./test.pl); plan(tests => 1); | |
9 | ||
10 | =pod | |
11 | ||
12 | From 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 | ||
32 | ok(eq_array( | |
33 | mro::get_linear_isa('Ƭ::ŁiƁ::Ḟ'), | |
34 | [ qw(Ƭ::ŁiƁ::Ḟ Ƭ::ŁiƁ::ƈ Ƭ::ŁiƁ::ଅ Ƭ::ŁiƁ::ᛒ Ƭ::ŁiƁ::Ḋ Ƭ::ŁiƁ::ऍ) ] | |
35 | ), '... got the right MRO for Ƭ::ŁiƁ::Ḟ'); | |
36 |