17 lines
339 B
Plaintext
17 lines
339 B
Plaintext
|
#!/bin/sh
|
||
|
|
|
||
|
|
for case in `find t -type f -name '*.t'`; do
|
||
|
|
perl -I . $case >$case.output 2>&1
|
||
|
|
ret=$?
|
||
|
|
cat $case.output
|
||
|
|
if [ $ret -ne 0 ]; then
|
||
|
|
echo "FAIL: ${case%.t}"
|
||
|
|
elif grep -i 'SKIP' $case.output; then
|
||
|
|
echo "SKIP: ${case%.t}"
|
||
|
|
else
|
||
|
|
echo "PASS: ${case%.t}"
|
||
|
|
fi
|
||
|
|
|
||
|
|
rm -f $case.output
|
||
|
|
done
|