Re: [PATCH] ...while $var = glob(...)

[p5sagit/p5-mst-13.2.git] / t / TEST

diff --git a/t/TEST b/t/TEST
index 22a72cd..278097a 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -16,6 +16,8 @@ if ($#ARGV >= 0) {
        $core    = 1 if $1 eq 'core';
        $verbose = 1 if $1 eq 'v';
        $with_utf= 1 if $1 eq 'utf8';
+        $byte_compile = 1 if $1 eq 'bytecompile';
+        $compile = 1 if $1 eq 'compile';
        if ($1 =~ /^deparse(,.+)?$/) {
            $deparse = 1;
            $deparse_opts = $1;
@@ -97,14 +99,20 @@ unless (@ARGV) {
 %infinite = ();
 
 if ($deparse) {
-    _testprogs('deparse', @ARGV);
-} else {
-    _testprogs('perl', @ARGV);
-    _testprogs('compile', @ARGV) if (-e "../testcompile");
+    _testprogs('deparse', '',   @ARGV);
+}
+elsif( $compile || $byte_compile ) { 
+    _testprogs('compile', '',   @ARGV) if $compile;
+    _testprogs('compile', '-B', @ARGV) if $byte_compile;
+}
+else {
+    _testprogs('compile', '',   @ARGV) if -e "../testcompile";
+    _testprogs('perl',    '',   @ARGV);
 }
 
 sub _testprogs {
     $type = shift @_;
+    $args = shift;
     @tests = @_;
 
     print <<'EOT' if ($type eq 'compile');
@@ -163,19 +171,15 @@ EOT
 
        $test = $OVER{$test} if exists $OVER{$test};
 
-       open(SCRIPT,"<$test") or die "Can't run $test.\n";
-       $_ = <SCRIPT>;
-       close(SCRIPT) unless ($type eq 'deparse');
-       if (/#!.*perl(.*)$/) {
-           $switch = $1;
-           if ($^O eq 'VMS') {
-               # Must protect uppercase switches with "" on command line
-               $switch =~ s/-([A-Z]\S*)/"-$1"/g;
-           }
-       }
-       else {
-           $switch = '';
-       }
+       open(SCRIPT,"<$test") or die "Can't run $test.\n";
+       $_ = <SCRIPT>;
+       close(SCRIPT) unless ($type eq 'deparse');
+       if (/#!.*\bperl.*-\w*([tT])/) {
+           $switch = qq{"-$1"};
+       }
+       else {
+           $switch = '';
+       }
 
        my $file_opts = "";
        if ($type eq 'deparse') {
@@ -205,7 +209,7 @@ EOT
        }
        else {
            my $compile =
-               "./perl $testswitch -I../lib ../utils/perlcc -o ".
+               "./perl $testswitch -I../lib ../utils/perlcc -I .. $args -o ".
                 "$test.plc $utf $test ".
                " && $test.plc |";
            open(RESULTS, $compile)
@@ -305,28 +309,40 @@ EOT
        else {
            warn "Failed $bad test scripts out of $files, $pct% okay.\n";
        }
-       warn <<'SHRDLU';
+       warn <<'SHRDLU_1';
    ### Since not all tests were successful, you may want to run some of
    ### them individually and examine any diagnostic messages they produce.
    ### See the INSTALL document's section on "make test".
-SHRDLU
-       warn <<'SHRDLU' if $good / $total > 0.8;
+SHRDLU_1
+       warn <<'SHRDLU_2' if $good / $total > 0.8;
    ### You have a good chance to get more information by running
    ###     ./perl harness
    ### in the 't' directory since most (>=80%) of the tests succeeded.
-SHRDLU
-       use Config;
-       if ($Config{ldlibpthname}) {
-           warn <<SHRDLU;
+SHRDLU_2
+        if (eval {require Config; import Config; 1}) {
+           if ($Config{usedl} && (my $p = $Config{ldlibpthname})) {
+               warn <<SHRDLU_3;
    ### You may have to set your dynamic library search path,
-   ### $Config{ldlibpthname}, to point to the build directory
-   ### before running the harness-- depending on your shell style:
-   ###     setenv $Config{ldlibpthname} `pwd`:\$$Config{ldlibpthname}; cd t; ./perl harness
-   ###     $Config{ldlibpthname}=`pwd`:\$$Config{ldlibpthname}; export $Config{ldlibpthname}; cd t; ./perl harness
-   ###     export $Config{ldlibpthname}=`pwd`:\$$Config{ldlibpthname}; cd t; ./perl harness
+   ### $p, to point to the build directory:
+SHRDLU_3
+                if (exists $ENV{$p} && $ENV{$p} ne '') {
+                   warn <<SHRDLU_4a;
+   ###     setenv $p `pwd`:\$$p; cd t; ./perl harness
+   ###     $p=`pwd`:\$$p; export $p; cd t; ./perl harness
+   ###     export $p=`pwd`:\$$p; cd t; ./perl harness
+SHRDLU_4a
+                } else {
+                   warn <<SHRDLU_4b;
+   ###     setenv $p `pwd`; cd t; ./perl harness
+   ###     $p=`pwd`; export $p; cd t; ./perl harness
+   ###     export $p=`pwd`; cd t; ./perl harness
+SHRDLU_4b
+                }    
+               warn <<SHRDLU_5;
    ### for csh-style shells, like tcsh; or for traditional/modern
    ### Bourne-style shells, like bash, ksh, and zsh, respectively.
-SHRDLU
+SHRDLU_5
+            }
        }
     }
     ($user,$sys,$cuser,$csys) = times;