1
0
forked from brl/citadel
citadel/poky/meta/recipes-devtools/tcltk/tcl/run-ptest

9 lines
286 B
Plaintext
Raw Normal View History

#!/bin/sh
for i in `ls tests/*.test |awk -F/ '{print $2}'`; \
do TCL_LIBRARY=library ./tcltest tests/all.tcl -file $i >$i.tmp 2>&1; \
grep -q "^Files with failing tests:" $i.tmp; \
if [ $? -eq 0 ]; then echo "FAIL: $i"; \
else echo "PASS: $i"; rm -f $i.tmp; fi; \
done