X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Porting%2Ftestall.atom;h=a709cfdb0167389aad727f4d93684e8991feba15;hb=9c3dc5877366a4b76c59e7e1b537358b0b2bc2f8;hp=a677a84445aa4b07a9410637bc7eae8f7fe9bd68;hpb=84cecde127a75f822b4452edaf547563c7f19b13;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/Porting/testall.atom b/Porting/testall.atom
index a677a84..a709cfd 100644
--- a/Porting/testall.atom
+++ b/Porting/testall.atom
@@ -47,7 +47,11 @@ cd t || exit 1
 
 ln -sf ../perl.pixie .
 
-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`
+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
@@ -58,13 +62,17 @@ rm -f all.Counts
 
 for t in $the_t
 do
+    case "$t" in
+    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" ;;
+    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" ;;
+    case "`head -1 $t|egrep -e '^#.* -.*t'`" in
+    *-*t*) sw="$sw -t" ;;
     esac
     ./perl.pixie -I../lib $sw $t > /dev/null
     if cd ..