| Patrick Williams | b48b7b4 | 2016-08-17 15:04:38 -0500 | [diff] [blame] | 1 | #!/bin/sh |
| 2 | |||||
| 3 | for case in `find t -type f -name '*.t'`; do | ||||
| 4 | perl $case >$case.output 2>&1 | ||||
| 5 | ret=$? | ||||
| 6 | cat $case.output | ||||
| 7 | if [ $ret -ne 0 ]; then | ||||
| 8 | echo "FAIL: ${case%.t}" | ||||
| 9 | elif grep -i 'SKIP' $case.output; then | ||||
| 10 | echo "SKIP: ${case%.t}" | ||||
| 11 | else | ||||
| 12 | echo "PASS: ${case%.t}" | ||||
| 13 | fi | ||||
| 14 | |||||
| 15 | rm -f $case.output | ||||
| 16 | done | ||||