A user might belong to only a single group

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

diff --git a/t/TEST b/t/TEST
index fa945cd..ef3e478 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -5,6 +5,10 @@
 
 $| = 1;
 
+# Let tests know they're running in the perl core.  Useful for modules
+# which live dual lives on CPAN.
+$ENV{PERL_CORE} = 1;
+
 # Cheesy version of Getopt::Std.  Maybe we should replace it with that.
 if ($#ARGV >= 0) {
     foreach my $idx (0..$#ARGV) {
@@ -76,8 +80,9 @@ unless (@ARGV) {
                $t = $1;
                if (!$core || $t =~ m!^lib/[a-z]!)
                {
-                   push @ARGV, $t;
-                   $OVER{$t} = File::Spec->catdir($updir, $t);
+                   $path = File::Spec->catdir($updir, $t);
+                   push @ARGV, $path;
+                   $name{$path} = $t;
                }
            }
        }
@@ -122,17 +127,18 @@ EOT
     $total = @tests;
     $files  = 0;
     $totmax = 0;
+
+    foreach (@tests) {
+        $name{$_} = File::Spec->catdir('t',$_) unless exists $name{$_};
+    }
     my $maxlen = 0;
-    my $maxsuflen = 0;
-    foreach (@tests) { # The same code in lib/Test/Harness.pm:_run_all_tests
-       my $suf    = /\.(\w+)$/ ? $1 : '';
-       my $len    = length;
-       my $suflen = length $suf;
-       $maxlen    = $len    if $len    > $maxlen;
-       $maxsuflen = $suflen if $suflen > $maxsuflen;
+    foreach (@name{@tests}) {
+       s/\.\w+\z/./;
+       my $len = length ;
+       $maxlen = $len if $len > $maxlen;
     }
     # + 3 : we want three dots between the test name and the "ok"
-    $dotdotdot = $maxlen + 3 - $maxsuflen;
+    $dotdotdot = $maxlen + 3 ;
     while ($test = shift @tests) {
 
        if ( $infinite{$test} && $type eq 'compile' ) {
@@ -152,8 +158,7 @@ EOT
                next;
            }
        }
-       $te = $test;
-       $te =~ s/\.\w+$/./;
+       $te = $name{$test};
        print "$te" . '.' x ($dotdotdot - length($te));
 
        $test = $OVER{$test} if exists $OVER{$test};
@@ -182,8 +187,6 @@ EOT
            close(SCRIPT);
        }
 
-       $test = $OVER{$test} if exists $OVER{$test};
-
        my $utf = $with_utf ? '-I../lib -Mutf8' : '';
        my $testswitch = '-I. -MTestInit'; # -T will strict . from @INC
        if ($type eq 'deparse') {
@@ -303,21 +306,28 @@ EOT
            warn "Failed $bad test scripts out of $files, $pct% okay.\n";
        }
        warn <<'SHRDLU';
-   ### 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".
-   ### If you are testing the compiler, then ignore this message
-   ### and run
-   ###      ./perl harness
-   ### in the directory ./t.
+   ### 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;
-   ###
-   ### Since most tests were successful, you have a good chance to
-   ### get information with better granularity by running
+   ### You have a good chance to get more information by running
    ###     ./perl harness
-   ### in directory ./t.
+   ### in the 't' directory since most (>=80%) of the tests succeeded.
+SHRDLU
+       use Config;
+       if ($Config{ldlibpthname}) {
+           warn <<SHRDLU;
+   ### 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
+   ### for csh-style shells, like tcsh; or for traditional/modern
+   ### Bourne-style shells, like bash, ksh, and zsh, respectively.
 SHRDLU
+       }
     }
     ($user,$sys,$cuser,$csys) = times;
     print sprintf("u=%g  s=%g  cu=%g  cs=%g  scripts=%d  tests=%d\n",