| Brad Bishop | 316dfdd | 2018-06-25 12:45:53 -0400 | [diff] [blame] | 1 | #!/bin/sh |
| 2 | |||||
| 3 | for case in `find t -type f -name '*.t'`; do | ||||
| Andrew Geissler | 90fd73c | 2021-03-05 15:25:55 -0600 | [diff] [blame^] | 4 | perl -I . $case >$case.output 2>&1 |
| Brad Bishop | 316dfdd | 2018-06-25 12:45:53 -0400 | [diff] [blame] | 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 | ||||