Remove test boilerplate from Safe tests
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 30 Aug 2009 13:54:31 +0000 (15:54 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 30 Aug 2009 13:55:51 +0000 (15:55 +0200)
(except safeops.t, which needs to have the perl sources available,
so it must be skipped when run from the CPAN distribution. However
it's currently skipped under a core build too.)

ext/Safe/t/safe1.t
ext/Safe/t/safe2.t
ext/Safe/t/safe3.t
ext/Safe/t/safeload.t
ext/Safe/t/safeops.t
ext/Safe/t/safeuniversal.t

index 6a3b908..385d661 100644 (file)
@@ -1,10 +1,6 @@
 #!./perl -w
 $|=1;
 BEGIN {
-    if($ENV{PERL_CORE}) {
-       chdir 't' if -d 't';
-       @INC = '../lib';
-    }
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
         print "1..0\n";
index d0239d1..2548dcc 100644 (file)
@@ -1,10 +1,6 @@
 #!./perl -w
 $|=1;
 BEGIN {
-    if($ENV{PERL_CORE}) {
-       chdir 't' if -d 't';
-       @INC = '../lib';
-    } 
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
         print "1..0\n";
index c809f27..1f99f49 100644 (file)
@@ -1,10 +1,6 @@
 #!perl -w
 
 BEGIN {
-    if ($ENV{PERL_CORE}) {
-       chdir 't' if -d 't';
-       @INC = '../lib';
-    }
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bOpcode\b/
        && $Config{'extensions'} !~ /\bPOSIX\b/
index b15c290..2d2c3cc 100644 (file)
@@ -1,10 +1,6 @@
 #!perl
 
 BEGIN {
-    if ($ENV{PERL_CORE}) {
-       chdir 't' if -d 't';
-       @INC = '../lib';
-    }
     require Config;
     import Config;
     if ($Config{'extensions'} !~ /\bOpcode\b/) {
index 229672e..ee83ac8 100644 (file)
@@ -8,7 +8,7 @@ BEGIN {
     }
     else {
        # this won't work outside of the core, so exit
-        print "1..0\n"; exit 0;
+        print "1..0 # skipped: PERL_CORE unset\n"; exit 0;
     }
 }
 use Config;
index c6d9911..95867c5 100644 (file)
@@ -1,10 +1,6 @@
 #!perl
 
 BEGIN {
-    if ($ENV{PERL_CORE}) {
-       chdir 't' if -d 't';
-       @INC = '../lib';
-    }
     require Config;
     import Config;
     if ($Config{'extensions'} !~ /\bOpcode\b/) {