Commit | Line | Data |
---|---|---|
b9e73af7 | 1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use Test::More tests => 3; | |
7 | ||
8 | BEGIN { | |
9 | use_ok('Class::C3::XS'); | |
10 | use_ok('t::lib::F'); | |
11 | } | |
12 | ||
13 | =pod | |
14 | ||
15 | From the parrot test t/pmc/object-meths.t | |
16 | ||
17 | A B A E | |
18 | \ / \ / | |
19 | C D | |
20 | \ / | |
21 | \ / | |
22 | F | |
23 | ||
24 | =cut | |
25 | ||
26 | is_deeply( | |
27 | [ Class::C3::XS::calculateMRO('t::lib::F') ], | |
28 | [ qw(t::lib::F t::lib::C t::lib::D t::lib::A t::lib::B t::lib::E) ], | |
29 | '... got the right MRO for t::lib::F'); | |
30 |