xref: /openbsd-src/gnu/usr.bin/perl/t/mro/vulcan_c3_utf8.t (revision b8851fcc53cbe24fd20b090f26dd149e353f6174) 
1#!./perl
2
3use strict;
4use warnings;
5use utf8;
6use open qw( :utf8 :std );
7require q(./test.pl); plan(tests => 1);
8
9=pod
10
11=encoding UTF-8
12
13example taken from: L<http://www.opendylan.org/books/drm/Method_Dispatch>
14
15         옵젳Ṯ
16           ^
17           |
18        ᓕᵮꡠＦᚖᶭ
19         ^    ^
20        /      \
21   SㄣチenŦ    빞엗ᱞ
22      ^          ^
23      |          |
24 ᕟ텔li겐ț  Hʉ만ӫ읻
25       ^        ^
26        \      /
27         ቩᓪ찬
28
29 define class <SㄣチenŦ> (<ᓕᵮꡠＦᚖᶭ>) end class;
30 define class <빞엗ᱞ> (<ᓕᵮꡠＦᚖᶭ>) end class;
31 define class <ᕟ텔li겐ț> (<SㄣチenŦ>) end class;
32 define class <Hʉ만ӫ읻> (<빞엗ᱞ>) end class;
33 define class <ቩᓪ찬> (<ᕟ텔li겐ț>, <Hʉ만ӫ읻>) end class;
34
35=cut
36
37{
38    package 옵젳Ṯ;
39    use mro 'c3';
40
41    package ᓕᵮꡠＦᚖᶭ;
42    use mro 'c3';
43    use base '옵젳Ṯ';
44
45    package SㄣチenŦ;
46    use mro 'c3';
47    use base 'ᓕᵮꡠＦᚖᶭ';
48
49    package 빞엗ᱞ;
50    use mro 'c3';
51    use base 'ᓕᵮꡠＦᚖᶭ';
52
53    package ᕟ텔li겐ț;
54    use mro 'c3';
55    use base 'SㄣチenŦ';
56
57    package Hʉ만ӫ읻;
58    use mro 'c3';
59    use base '빞엗ᱞ';
60
61    package ቩᓪ찬;
62    use mro 'c3';
63    use base ('ᕟ텔li겐ț', 'Hʉ만ӫ읻');
64}
65
66ok(eq_array(
67    mro::get_linear_isa('ቩᓪ찬'),
68    [ qw(ቩᓪ찬 ᕟ텔li겐ț SㄣチenŦ Hʉ만ӫ읻 빞엗ᱞ ᓕᵮꡠＦᚖᶭ 옵젳Ṯ) ]
69), '... got the right MRO for the ቩᓪ찬 Dylan Example');
70