6 use Test::More tests => 5;
9 use_ok('Algorithm::C3');
19 our @ISA = ('My::B', 'My::C');
23 my @merged = Algorithm::C3::merge(
33 [ qw/My::D My::B My::C My::A/ ],
34 '... merged the lists correctly');
50 our @ISA = ('My::G', 'My::F');
51 sub method_exists_only_in_H { @ISA }
55 my @merged = Algorithm::C3::merge('My::H', 'supers');
59 [ qw/My::H My::G My::F My::E/ ],
60 '... merged the lists correctly');
66 'this_method_does_not_exist'
69 ok($@, '... this died as we expected');
74 'method_exists_only_in_H'
77 ok($@, '... this died as we expected');