diff options
| author | Tony Cook <tony@develop-help.com> | 2013-01-08 21:50:51 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2013-01-08 21:50:51 +1100 |
| commit | 2ae3365f710faf1a6858ac17a592f9bf68925a4f (patch) | |
| tree | 1f0d0315634efb930a3a83c479ef77f6372043fd /t/mro | |
| parent | 56dba4917881067f1c87671b9d3cbd6b96d1800c (diff) | |
| download | perl-2ae3365f710faf1a6858ac17a592f9bf68925a4f.tar.gz | |
skip appropriately when XS::APItest isn't available
XS::APItest isn't available under -Uusedl
Diffstat (limited to 't/mro')
| -rw-r--r-- | t/mro/method_caching.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/mro/method_caching.t b/t/mro/method_caching.t index 495e12fddc..3f21b1b6b3 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, |