From 2ae3365f710faf1a6858ac17a592f9bf68925a4f Mon Sep 17 00:00:00 2001 From: Tony Cook Date: Tue, 8 Jan 2013 21:50:51 +1100 Subject: [PATCH] skip appropriately when XS::APItest isn't available XS::APItest isn't available under -Uusedl --- t/mro/method_caching.t | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/t/mro/method_caching.t b/t/mro/method_caching.t index 495e12f..3f21b1b 100644 --- a/t/mro/method_caching.t +++ b/t/mro/method_caching.t @@ -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, -- 1.8.3.1