From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 9 Jun 2005 08:59:21 +0000 (+0000)
Subject: Make minitest pass (must skip if no dynaloading)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4210e2f66b35a304bfe2b0c1c7eb1f8d48a82407;p=p5sagit%2Fp5-mst-13.2.git

Make minitest pass (must skip if no dynaloading)

p4raw-id: //depot/perl@24773
---

diff --git a/t/op/goto_xs.t b/t/op/goto_xs.t
index b775e3d..2c95139 100755
--- a/t/op/goto_xs.t
+++ b/t/op/goto_xs.t
@@ -9,17 +9,20 @@
 #       guessing that if all of these work correctly, the bad ones will
 #       break correctly as well.
 
-chdir 't' if -d 't';
-@INC = '../lib';
-$ENV{PERL5LIB} = "../lib";
+BEGIN { $| = 1; }
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    $ENV{PERL5LIB} = "../lib";
 
 # turn warnings into fatal errors
-$SIG{__WARN__} = sub { die "WARNING: @_" } ;
-
-BEGIN { $| = 1; }
-eval 'require Fcntl'
-  or do { print "1..0\n# Fcntl unavailable, can't test XS goto.\n"; exit 0 };
+    $SIG{__WARN__} = sub { die "WARNING: @_" } ;
 
+    foreach (qw(Fcntl XS::APItest)) {
+	eval "require $_"
+	or do { print "1..0\n# $_ unavailable, can't test XS goto.\n"; exit 0 }
+    }
+}
 print "1..11\n";
 
 # We don't know what symbols are defined in platform X's system headers.