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