Commit | Line | Data |
b0413f46 |
1 | #!perl -w |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | @INC = '../lib'; |
6 | require "./test.pl"; |
7 | } |
8 | |
9 | use strict; |
10 | |
11 | plan 'no_plan'; |
12 | |
13 | # package klonk doesn't have a stash. |
14 | |
15 | package kapow; |
16 | use mro 'c3'; |
17 | |
18 | # No parents |
19 | |
20 | package urkkk; |
21 | use mro 'c3'; |
22 | |
23 | # 1 parent |
24 | @urkkk::ISA = 'klonk'; |
25 | |
26 | package kayo; |
27 | use mro 'c3'; |
28 | |
29 | # 2 parents |
30 | @urkkk::ISA = ('klonk', 'kapow'); |
31 | |
32 | package thwacke; |
33 | use mro 'c3'; |
34 | |
35 | # No parents, has @ISA |
36 | @thwacke::ISA = (); |
37 | |
38 | package zzzzzwap; |
39 | use mro 'c3'; |
40 | |
41 | @zzzzzwap::ISA = ('thwacke', 'kapow'); |
42 | |
43 | package whamm; |
44 | use mro 'c3'; |
45 | |
46 | @whamm::ISA = ('kapow', 'thwacke'); |
47 | |
48 | package main; |
49 | |
50 | my %expect = |
51 | ( |
52 | klonk => [qw(klonk)], |
53 | urkkk => [qw(urkkk klonk kapow)], |
54 | kapow => [qw(kapow)], |
55 | kayo => [qw(kayo)], |
56 | thwacke => [qw(thwacke)], |
57 | zzzzzwap => [qw(zzzzzwap thwacke kapow)], |
58 | whamm => [qw(whamm kapow thwacke)], |
59 | ); |
60 | |
61 | foreach my $package (qw(klonk urkkk kapow kayo thwacke zzzzzwap whamm)) { |
62 | my $ref = bless [], $package; |
63 | my $isa = $expect{$package}; |
64 | is("@{mro::get_linear_isa($package)}", "@$isa", "\@ISA for $package"); |
65 | |
66 | foreach my $class ($package, @$isa, 'UNIVERSAL') { |
67 | isa_ok($ref, $class, $package); |
68 | } |
69 | } |