X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F22_uninitialize.t;h=ccf6c971bac6be16aae74866949ce71937244c6c;hb=4ae4bd680ce54f13382324bc268361d17c3503f1;hp=e5068d2bb129ab137cf925e685efbcefdb072f51;hpb=5dd9299c18bd54f97408f6580abca725e937d6ac;p=gitmo%2FClass-C3.git diff --git a/t/22_uninitialize.t b/t/22_uninitialize.t index e5068d2..ccf6c97 100644 --- a/t/22_uninitialize.t +++ b/t/22_uninitialize.t @@ -3,14 +3,7 @@ use strict; use warnings; -use Test::More tests => 12; - -BEGIN { - use_ok('Class::C3'); - # uncomment this line, and re-run the - # test to see the normal p5 dispatch order - #$Class::C3::TURN_OFF_C3 = 1; -} +use Test::More tests => 11; =pod @@ -49,6 +42,8 @@ BEGIN { our %hello = (h => 1, e => 2, l => "3 & 4", o => 5) } +Class::C3::initialize(); + is(Diamond_D->hello, 'Diamond_C::hello', '... method resolves with the correct MRO'); is(Diamond_D->goodbye, 'Diamond_C::goodbye', '... method resolves with the correct MRO');