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