skip appropriately when XS::APItest isn't available
authorTony Cook <tony@develop-help.com>
Tue, 8 Jan 2013 10:50:51 +0000 (21:50 +1100)
committerTony Cook <tony@develop-help.com>
Tue, 8 Jan 2013 10:50:51 +0000 (21:50 +1100)
XS::APItest isn't available under -Uusedl

t/mro/method_caching.t

index 495e12f..3f21b1b 100644 (file)
@@ -72,7 +72,9 @@ my @testsubs = (
           is(MCTest::Derived->foo(0), 19,
             'redefining sub through glob alias via decl'); },
     sub { SKIP: {
-              skip_if_miniperl("no XS"); require XS::APItest;
+              skip_if_miniperl("no XS");
+              eval { require XS::APItest; }
+                or skip "XS::APItest not available", 1;
               *A = *{'MCTest::Base::foo'};
               XS::APItest::newCONSTSUB(\%main::, "A", 0, 20);
               is (MCTest::Derived->foo(0), 20,