This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make new Storable tests forgiving of places where not built
authorPeter Prymmer <PPrymmer@factset.com>
Mon, 21 Aug 2000 14:58:16 +0000 (07:58 -0700)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 21 Aug 2000 22:25:40 +0000 (22:25 +0000)
Message-ID: <Pine.OSF.4.10.10008211456250.17516-100000@aspara.forte.com>

p4raw-id: //depot/perl@6759

13 files changed:
t/lib/st-06compat.t
t/lib/st-blessed.t
t/lib/st-canonical.t
t/lib/st-dclone.t
t/lib/st-forgive.t
t/lib/st-freeze.t
t/lib/st-overload.t
t/lib/st-recurse.t
t/lib/st-retrieve.t
t/lib/st-store.t
t/lib/st-tied.t
t/lib/st-tiedhook.t
t/lib/st-tieditems.t

index 23245d5..932dbac 100644 (file)
 #
 
 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';
 }
index 22fc526..b673240 100644 (file)
 
 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';
 }
index 67cd72d..67a2348 100644 (file)
 
 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';
 }
 
index 9540795..ee7d8ad 100644 (file)
 
 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';
 }
index 1cce7c7..a709ce0 100644 (file)
 
 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';
 }
 
index 4420f11..1ea1e69 100644 (file)
 
 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';
 }
index bef265f..6482237 100644 (file)
 
 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';
 }
index b177677..3688fd4 100644 (file)
 
 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';
 }
index 463262f..7e4f0ca 100644 (file)
 
 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';
 }
index fe76499..19f6ddf 100644 (file)
 
 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';
 }
index 52d0da9..b57c8f9 100644 (file)
 
 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';
 }
index 3f1b7fd..26c8e07 100644 (file)
 
 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';
 }
index e8b127d..a712980 100644 (file)
 
 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';
 }