From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 30 Aug 2003 05:57:04 +0000 (+0000)
Subject: Make XSLoader.t more robust (and sdbm.t more verbose)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dbb032c1141611de229b2d56c7ef8937f4cd1986;p=p5sagit%2Fp5-mst-13.2.git

Make XSLoader.t more robust (and sdbm.t more verbose)

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

diff --git a/ext/DynaLoader/t/XSLoader.t b/ext/DynaLoader/t/XSLoader.t
index 1654a2e..6eb26af 100644
--- a/ext/DynaLoader/t/XSLoader.t
+++ b/ext/DynaLoader/t/XSLoader.t
@@ -2,7 +2,17 @@
 
 BEGIN {
     chdir 't';
-#    @INC = '../lib';
+    @INC = '../lib';
+    eval 'use Fcntl';
+    if ($@ =~ /dynamic loading not available/) {
+        print "1..0 # Skip: no dynamic loading\n";
+	exit;
+    }
+    require Config; import Config;
+    if (($Config{'extensions'} !~ /\bSDBM_File\b/) && ($^O ne 'VMS')){
+	print "1..0 # Skip: no SDBM_File\n";
+	exit 0;
+    }
 }
 
 use Test;
diff --git a/ext/SDBM_File/t/sdbm.t b/ext/SDBM_File/t/sdbm.t
index 8106289..3f8024e 100644
--- a/ext/SDBM_File/t/sdbm.t
+++ b/ext/SDBM_File/t/sdbm.t
@@ -7,7 +7,7 @@ BEGIN {
     @INC = '../lib';
     require Config; import Config;
     if (($Config{'extensions'} !~ /\bSDBM_File\b/) && ($^O ne 'VMS')){
-	print "1..0\n";
+	print "1..0 # Skip: no SDBM_File\n";
 	exit 0;
     }
 }