t/op/for.t: Skip a test if the require for XS::APItest fails
authorBrian Fraser <fraserbn@gmail.com>
Mon, 2 Sep 2013 17:07:53 +0000 (14:07 -0300)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 2 Sep 2013 17:11:27 +0000 (19:11 +0200)
t/op/for.t

index 18fedeb..2ac0fc8 100644 (file)
@@ -571,9 +571,9 @@ sub {
 
 SKIP: {
     skip "No XS::APItest under miniperl", 1, if is_miniperl;
+    skip "no XS::APItest", 1 if !eval { require XS::APItest };
     my @a;
     sub {
-        require XS::APItest;
         XS::APItest::alias_av(\@a, 0, undef);
         eval { \$_[0] }
     }->($a[0]);