6 use Test::More tests => 7;
10 This tests that Class::MOP works correctly
11 with Class::C3 and it's somewhat insane
12 approach to method resolution.
16 BEGIN {use Class::MOP;
22 use metaclass; # everyone will just inherit this now :)
24 sub hello { 'Diamond_A::hello' }
36 sub hello { 'Diamond_C::hello' }
41 use base ('Diamond_B', 'Diamond_C');
44 # we have to manually initialize
45 # Class::C3 since we potentially
46 # skip this test if it is not present
47 Class::C3::initialize();
50 # [ Class::C3::calculateMRO('Diamond_D') ],
51 [ Diamond_D->meta->class_precedence_list ],
52 [ qw(Diamond_D Diamond_B Diamond_C Diamond_A) ],
53 '... got the right MRO for Diamond_D');
55 ok(Diamond_A->meta->has_method('hello'), '... A has a method hello');
56 ok(!Diamond_B->meta->has_method('hello'), '... B does not have a method hello');
58 ok(Diamond_C->meta->has_method('hello'), '... C has a method hello');
59 ok(!Diamond_D->meta->has_method('hello'), '... D does not have a method hello');
62 skip "C3 does not make aliases on 5.9.5+", 2 if $] > 5.009_004;
63 ok(defined &Diamond_B::hello, '... B does have an alias to the method hello');
64 ok(defined &Diamond_D::hello, '... D does have an alias to the method hello');