[gitmo/Class-C3-XS.git] / t / 05_MRO.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 3;

BEGIN {
    use lib 'opt', '../opt', '..';
    use_ok('c3');
    use_ok('t::lib::F');    
}

=pod 

From the parrot test t/pmc/object-meths.t

 A   B A   E
  \ /   \ /
   C     D
    \   /
     \ /
      F

=cut

Class::C3::initialize();

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