re-apply boilerplate to CGI test files
authorDavid Mitchell <davem@iabyn.com>
Sat, 22 Aug 2009 17:16:24 +0000 (18:16 +0100)
committerDavid Mitchell <davem@iabyn.com>
Sat, 22 Aug 2009 17:18:40 +0000 (18:18 +0100)
lib/CGI/t/upload.t
lib/CGI/t/uploadInfo.t

index 0989f1d..58f0971 100644 (file)
@@ -7,7 +7,17 @@
 
 # Due to a bug in older versions of MakeMaker & Test::Harness, we must
 # ensure the blib's are in @INC, else we might use the core CGI.pm
-use lib qw(. ./blib/lib ./blib/arch);
+
+my $test_file;
+if($ENV{PERL_CORE}) {
+   chdir 't';
+   @INC = '../lib';
+   use File::Spec ();
+   $test_file = File::Spec->catfile(qw(.. lib CGI t), "upload_post_text.txt");
+} else {
+   use lib qw(. ./blib/lib ./blib/arch);
+   $test_file = "t/upload_post_text.txt";
+}
 
 use strict;
 
@@ -67,7 +77,7 @@ my $q;
 
 {
     local *STDIN;
-    open STDIN, '<t/upload_post_text.txt'
+    open STDIN, "< $test_file"
         or die 'missing test file t/upload_post_text.txt';
     binmode STDIN;
     $q = CGI->new;
index 970429b..591afa6 100644 (file)
@@ -7,7 +7,17 @@
 
 # Due to a bug in older versions of MakeMaker & Test::Harness, we must
 # ensure the blib's are in @INC, else we might use the core CGI.pm
-use lib qw(. ./blib/lib ./blib/arch);
+
+my $test_file;
+if($ENV{PERL_CORE}) {
+   chdir 't';
+   @INC = '../lib';
+   use File::Spec ();
+   $test_file = File::Spec->catfile(qw(.. lib CGI t), "upload_post_text.txt");
+} else {
+   use lib qw(. ./blib/lib ./blib/arch);
+   $test_file = "t/upload_post_text.txt";
+}
 
 use strict;
 
@@ -68,7 +78,7 @@ my $q;
 
 {
     local *STDIN;
-    open STDIN, '<t/upload_post_text.txt'
+    open STDIN, "< $test_file"
         or die 'missing test file t/upload_post_text.txt';
     binmode STDIN;
     $q = CGI->new;