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