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

13 files changed, 66 insertions, 1 deletions

diff --git a/t/lib/st-06compat.t b/t/lib/st-06compat.t
index 23245d5bd7..932dbac78b 100644
--- 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 22fc5263d0..b673240552 100644
--- 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 67cd72d4da..67a2348362 100644
--- 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 95407950bc..ee7d8ad49b 100644
--- 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 1cce7c7e3a..a709ce04a7 100644
--- 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 4420f11aa5..1ea1e69ed5 100644
--- 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 bef265ff88..6482237e9e 100644
--- 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 b177677819..3688fd4fa7 100644
--- 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 463262f9d8..7e4f0caeb4 100644
--- 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 fe76499211..19f6ddfcc7 100644
--- 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 52d0da919c..b57c8f9a62 100644
--- 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 3f1b7fd875..26c8e07430 100644
--- 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 e8b127de45..a7129809d6 100644
--- 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';
 }