6 use open qw( :utf8 :std );
7 require q(./test.pl); plan(tests => 1);
12 example taken from: L<http://www.opendylan.org/books/drm/Method_Dispatch>
28 define class <SㄣチenŦ> (<life-form>) end class;
29 define class <빞엗ᱞ> (<life-form>) end class;
30 define class <ᕟ텔li겐ț> (<SㄣチenŦ>) end class;
31 define class <Hʉ만ӫ읻> (<빞엗ᱞ>) end class;
32 define class <ቩᓪ찬> (<ᕟ텔li겐ț>, <Hʉ만ӫ읻>) end class;
62 use base ('ᕟ텔li겐ț', 'Hʉ만ӫ읻');
66 mro::get_linear_isa('ቩᓪ찬'),
67 [ qw(ቩᓪ찬 ᕟ텔li겐ț SㄣチenŦ ᓕᵮꡠFᚖᶭ 옵젳Ṯ Hʉ만ӫ읻 빞엗ᱞ) ]
68 ), '... got the right MRO for the ቩᓪ찬 Dylan Example');