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