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 (file)
--- 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 (file)
--- 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;
     }
 }