make new Storable tests forgiving of places where not built

Message-ID: <Pine.OSF.4.10.10008211456250.17516-100000@aspara.forte.com>

p4raw-id: //depot/perl@6759

diff --git a/t/lib/st-06compat.t b/t/lib/st-06compat.t
index 23245d5..932dbac 100644 (file)
--- a/t/lib/st-06compat.t
+++ b/t/lib/st-06compat.t
@@ -13,7 +13,12 @@
 #
 
 BEGIN {
-    chdir('t') if -d 't';
+    chdir('t') if -d 't';    
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bStorable\b/) {
+        print "1..0 # Skip: Storable was not built\n";
+        exit 0;
+    }
     unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }

diff --git a/t/lib/st-blessed.t b/t/lib/st-blessed.t
index 22fc526..b673240 100644 (file)
--- a/t/lib/st-blessed.t
+++ b/t/lib/st-blessed.t
@@ -14,6 +14,11 @@
 
 sub BEGIN {
     chdir('t') if -d 't';
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bStorable\b/) {
+        print "1..0 # Skip: Storable was not built\n";
+        exit 0;
+    }
     unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }

diff --git a/t/lib/st-canonical.t b/t/lib/st-canonical.t
index 67cd72d..67a2348 100644 (file)
--- a/t/lib/st-canonical.t
+++ b/t/lib/st-canonical.t
@@ -14,6 +14,11 @@
 
 sub BEGIN {
     chdir('t') if -d 't';
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bStorable\b/) {
+        print "1..0 # Skip: Storable was not built\n";
+        exit 0;
+    }
     unshift @INC, '../lib';
 }
 

diff --git a/t/lib/st-dclone.t b/t/lib/st-dclone.t
index 9540795..ee7d8ad 100644 (file)
--- a/t/lib/st-dclone.t
+++ b/t/lib/st-dclone.t
@@ -14,6 +14,11 @@
 
 sub BEGIN {
     chdir('t') if -d 't';
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bStorable\b/) {
+        print "1..0 # Skip: Storable was not built\n";
+        exit 0;
+    }
     unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }

diff --git a/t/lib/st-forgive.t b/t/lib/st-forgive.t
index 1cce7c7..a709ce0 100644 (file)
--- a/t/lib/st-forgive.t
+++ b/t/lib/st-forgive.t
@@ -20,6 +20,11 @@
 
 sub BEGIN {
     chdir('t') if -d 't';
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bStorable\b/) {
+        print "1..0 # Skip: Storable was not built\n";
+        exit 0;
+    }
     unshift @INC, '../lib';
 }
 

diff --git a/t/lib/st-freeze.t b/t/lib/st-freeze.t
index 4420f11..1ea1e69 100644 (file)
--- a/t/lib/st-freeze.t
+++ b/t/lib/st-freeze.t
@@ -14,6 +14,11 @@
 
 sub BEGIN {
     chdir('t') if -d 't';
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bStorable\b/) {
+        print "1..0 # Skip: Storable was not built\n";
+        exit 0;
+    }
     unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }

diff --git a/t/lib/st-overload.t b/t/lib/st-overload.t
index bef265f..6482237 100644 (file)
--- a/t/lib/st-overload.t
+++ b/t/lib/st-overload.t
@@ -14,6 +14,11 @@
 
 sub BEGIN {
     chdir('t') if -d 't';
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bStorable\b/) {
+        print "1..0 # Skip: Storable was not built\n";
+        exit 0;
+    }
     unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }

diff --git a/t/lib/st-recurse.t b/t/lib/st-recurse.t
index b177677..3688fd4 100644 (file)
--- a/t/lib/st-recurse.t
+++ b/t/lib/st-recurse.t
@@ -14,6 +14,11 @@
 
 sub BEGIN {
     chdir('t') if -d 't';
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bStorable\b/) {
+        print "1..0 # Skip: Storable was not built\n";
+        exit 0;
+    }
     unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }

diff --git a/t/lib/st-retrieve.t b/t/lib/st-retrieve.t
index 463262f..7e4f0ca 100644 (file)
--- a/t/lib/st-retrieve.t
+++ b/t/lib/st-retrieve.t
@@ -14,6 +14,11 @@
 
 sub BEGIN {
     chdir('t') if -d 't';
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bStorable\b/) {
+        print "1..0 # Skip: Storable was not built\n";
+        exit 0;
+    }
     unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }

diff --git a/t/lib/st-store.t b/t/lib/st-store.t
index fe76499..19f6ddf 100644 (file)
--- a/t/lib/st-store.t
+++ b/t/lib/st-store.t
@@ -14,6 +14,11 @@
 
 sub BEGIN {
     chdir('t') if -d 't';
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bStorable\b/) {
+        print "1..0 # Skip: Storable was not built\n";
+        exit 0;
+    }
     unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }

diff --git a/t/lib/st-tied.t b/t/lib/st-tied.t
index 52d0da9..b57c8f9 100644 (file)
--- a/t/lib/st-tied.t
+++ b/t/lib/st-tied.t
@@ -17,6 +17,11 @@
 
 sub BEGIN {
     chdir('t') if -d 't';
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bStorable\b/) {
+        print "1..0 # Skip: Storable was not built\n";
+        exit 0;
+    }
     unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }

diff --git a/t/lib/st-tiedhook.t b/t/lib/st-tiedhook.t
index 3f1b7fd..26c8e07 100644 (file)
--- a/t/lib/st-tiedhook.t
+++ b/t/lib/st-tiedhook.t
@@ -14,6 +14,11 @@
 
 sub BEGIN {
     chdir('t') if -d 't';
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bStorable\b/) {
+        print "1..0 # Skip: Storable was not built\n";
+        exit 0;
+    }
     unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }

diff --git a/t/lib/st-tieditems.t b/t/lib/st-tieditems.t
index e8b127d..a712980 100644 (file)
--- a/t/lib/st-tieditems.t
+++ b/t/lib/st-tieditems.t
@@ -21,6 +21,11 @@
 
 sub BEGIN {
     chdir('t') if -d 't';
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bStorable\b/) {
+        print "1..0 # Skip: Storable was not built\n";
+        exit 0;
+    }
     unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }