X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F20_reinitialize.t;h=e4dd879138f9d024d41783ab898a9fd9c9408d86;hb=ef29cd706106f8ab6e7b0c25e8dc832bb337c5ed;hp=7dce5d42000b48250c14d0546d626896f667b3c0;hpb=2ffffc6d4b76c053ddf254ef9356c92bba7d2acf;p=gitmo%2FClass-C3.git

diff --git a/t/20_reinitialize.t b/t/20_reinitialize.t
index 7dce5d4..e4dd879 100644
--- a/t/20_reinitialize.t
+++ b/t/20_reinitialize.t
@@ -3,14 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 5;
-
-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 => 4;
 
 =pod
 
@@ -81,7 +74,13 @@ is_deeply(
     [ qw(Diamond_D Diamond_B Diamond_E Diamond_C Diamond_A) ],
     '... got the new MRO for Diamond_D');
 
-is(Diamond_D->hello, 'Diamond_C::hello', '... method still resolves with old MRO');
+# Doesn't work with core support, since reinit is not neccesary and the change
+#  takes effect immediately
+SKIP: {
+    skip "This test does not work with a c3-patched perl interpreter", 1
+        if $Class::C3::C3_IN_CORE;
+    is(Diamond_D->hello, 'Diamond_C::hello', '... method still resolves with old MRO');
+}
 
 Class::C3::reinitialize();