xref: /openbsd/gnu/usr.bin/perl/t/mro/vulcan_c3.t (revision 404b540a) 
1#!./perl
2
3use strict;
4use warnings;
5
6require q(./test.pl); plan(tests => 1);
7
8=pod
9
10example taken from: L<http://gauss.gwydiondylan.org/books/drm/drm_50.html>
11
12         Object
13           ^
14           |
15        LifeForm
16         ^    ^
17        /      \
18   Sentient    BiPedal
19      ^          ^
20      |          |
21 Intelligent  Humanoid
22       ^        ^
23        \      /
24         Vulcan
25
26 define class <sentient> (<life-form>) end class;
27 define class <bipedal> (<life-form>) end class;
28 define class <intelligent> (<sentient>) end class;
29 define class <humanoid> (<bipedal>) end class;
30 define class <vulcan> (<intelligent>, <humanoid>) end class;
31
32=cut
33
34{
35    package Object;
36    use mro 'c3';
37
38    package LifeForm;
39    use mro 'c3';
40    use base 'Object';
41
42    package Sentient;
43    use mro 'c3';
44    use base 'LifeForm';
45
46    package BiPedal;
47    use mro 'c3';
48    use base 'LifeForm';
49
50    package Intelligent;
51    use mro 'c3';
52    use base 'Sentient';
53
54    package Humanoid;
55    use mro 'c3';
56    use base 'BiPedal';
57
58    package Vulcan;
59    use mro 'c3';
60    use base ('Intelligent', 'Humanoid');
61}
62
63ok(eq_array(
64    mro::get_linear_isa('Vulcan'),
65    [ qw(Vulcan Intelligent Sentient Humanoid BiPedal LifeForm Object) ]
66), '... got the right MRO for the Vulcan Dylan Example');
67