Change 20945: Make XSLoader.t more robust (and sdbm.t more verbose)

[Jarkko Hietaniemi]

Change 20945 by [EMAIL PROTECTED] on 2003/08/30 05:57:04

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

Affected files ...

... //depot/perl/ext/DynaLoader/t/XSLoader.t#2 edit
... //depot/perl/ext/SDBM_File/t/sdbm.t#2 edit

Differences ...

==== //depot/perl/ext/DynaLoader/t/XSLoader.t#2 (text) ====
Index: perl/ext/DynaLoader/t/XSLoader.t
--- perl/ext/DynaLoader/t/XSLoader.t#1~20944~   Fri Aug 29 22:50:41 2003
+++ perl/ext/DynaLoader/t/XSLoader.t    Fri Aug 29 22:57:04 2003
@@ -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;

==== //depot/perl/ext/SDBM_File/t/sdbm.t#2 (text) ====
Index: perl/ext/SDBM_File/t/sdbm.t
--- perl/ext/SDBM_File/t/sdbm.t#1~20269~        Mon Jul 28 08:07:22 2003
+++ perl/ext/SDBM_File/t/sdbm.t Fri Aug 29 22:57:04 2003
@@ -7,7 +7,7 @@
     @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;
     }
 }
End of Patch.