Change 17352 by jhi@alpha on 2002/06/25 13:28:33
Dust off the script to the new test naming.
Affected files ...
.... //depot/perl/Porting/testall.atom#2 edit
Differences ...
==== //depot/perl/Porting/testall.atom#2 (text) ====
Index: perl/Porting/testall.atom
--- perl/Porting/testall.atom#1~9672~ Tue Apr 10 06:45:01 2001
+++ perl/Porting/testall.atom Tue Jun 25 06:28:33 2002
@@ -47,23 +47,26 @@
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 @@
mv new.Counts all.Counts
else
mv t/perl.Counts all.Counts
- fi
+ fi
cd t
fi
done
End of Patch.
