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