1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use Test::More tests => 3;
7
8BEGIN {
9    use_ok('Class::C3::XS');
10    use_ok('t::lib::F');    
11}
12
13=pod 
14
15From 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
26is_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
31