X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Porting%2Ftestall.atom;h=8796f08f2b20a2a238bda472efa20293383c819f;hb=338584c0b1c948a967b5e2ecbb69c512410589e4;hp=ca538ea21d82294eb3419e9f2b60d3cefa45234f;hpb=b4324e9b79052046920e4a664bf29fd2d95cc19e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/Porting/testall.atom b/Porting/testall.atom
index ca538ea..8796f08 100644
--- a/Porting/testall.atom
+++ b/Porting/testall.atom
@@ -1,7 +1,7 @@
 #!/bin/sh
 
 #
-# testall.atom
+# testall.atom - test suite profiling on Tru 64
 # 
 # This script creates all.Counts file that can be fed to prof(1)
 # to produce various basic block counting profiles.
@@ -47,23 +47,34 @@ 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`
+if test $# = 0; then
+  the_t=`echo base/*.t comp/*.t cmd/*.t run/*.t io/*.t; echo op/*.t uni/*.t pod/*.t x2p/*.t; find ../ext ../lib -name '*.t' -print`
+else
+  the_t=$@
+fi
 
 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='' ;;
+    ext/*|lib/*) t=../$t ;;
+    t/*) t=`echo $t|sed 's:^t/::'` ;;
+    esac
+    echo $t|sed 's:\.t$::'
+    sw=''
+    case "`head -1 $t|egrep -e '^#.* -.*T'`" in
+    *-*T*) sw="$sw -T" ;;
+    esac
+    case "`head -1 $t|egrep -e '^#.* -.*t'`" in
+    *-*t*) sw="$sw -t" ;;
     esac
-    ./perl.pixie $T $t > /dev/null
+    ./perl.pixie -I../lib $sw $t > /dev/null
     if cd ..
     then
         if test -f all.Counts
@@ -72,7 +83,7 @@ do
             mv new.Counts all.Counts
         else
             mv t/perl.Counts all.Counts
-        fi 
+        fi
         cd t
     fi
 done