blob: d802781f9e6f1086975cdf7ffb3c7eb80dc7b45c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#!/bin/sh
for case in `find t -type f -name '*.t'`; do
perl -I inc -I blib -Mblib $case >$case.output 2>&1
ret=$?
cat $case.output
if [ $ret -ne 0 ]; then
echo "FAIL: ${case%.t}"
else
echo "PASS: ${case%.t}"
fi
rm -f $case.output
done
|