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
|
|
