From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 25 Jun 2002 13:28:33 +0000 (+0000)
Subject: Dust off the script to the new test naming.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=84cecde127a75f822b4452edaf547563c7f19b13;p=p5sagit%2Fp5-mst-13.2.git

Dust off the script to the new test naming.

p4raw-id: //depot/perl@17352
---

diff --git a/Porting/testall.atom b/Porting/testall.atom
index ca538ea..a677a84 100644
--- a/Porting/testall.atom
+++ b/Porting/testall.atom
@@ -47,23 +47,26 @@ cd t || exit 1
 
 ln -sf ../perl.pixie .
 
-the_t=`echo base/*.t comp/*.t cmd/*.t run/*.t io/*.t; echo op/*.t pragma/*.t lib/*.t pod/*.t camel-III/*.t`
+the_t=`echo base/*.t comp/*.t cmd/*.t run/*.t io/*.t; echo op/*.t pod/*.t x2p/*.t; find ../ext ../lib -name '*.t' -print`
 
 PERL_DESTRUCT_LEVEL=2
 export PERL_DESTRUCT_LEVEL
+PERL_CORE=1
+export PERL_CORE
 
 rm -f all.Counts
 
 for t in $the_t
 do
-    echo `echo $t|sed s:\.t$::`" \c"
-    case "$t" in
-    *taint*|pragma/locale.t|lib/basename.t)
-	T=-T ;;
-    *)
-	T='' ;;
+    echo $t|sed 's:\.t$::'
+    sw=''
+    case "`head -1 $t|egrep -e '^#.* -*T'`" in
+    *-T*) sw="$sw -T" ;;
     esac
-    ./perl.pixie $T $t > /dev/null
+    case "`head -1 $t|egrep -e '^#.* -t'`" in
+    *-t*) sw="$sw -t" ;;
+    esac
+    ./perl.pixie -I../lib $sw $t > /dev/null
     if cd ..
     then
         if test -f all.Counts
@@ -72,7 +75,7 @@ do
             mv new.Counts all.Counts
         else
             mv t/perl.Counts all.Counts
-        fi 
+        fi
         cd t
     fi
 done