diff options
Diffstat (limited to 'meta-perl/recipes-perl/libio/files/run-ptest')
| -rw-r--r-- | meta-perl/recipes-perl/libio/files/run-ptest | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/meta-perl/recipes-perl/libio/files/run-ptest b/meta-perl/recipes-perl/libio/files/run-ptest new file mode 100644 index 00000000000..c9f9ca94d0a --- /dev/null +++ b/meta-perl/recipes-perl/libio/files/run-ptest @@ -0,0 +1,16 @@ +#!/bin/sh + +for case in `find t -type f -name '*.t'`; do + perl $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 |