1eb8dc403SDave Cobbley#!/bin/sh 2eb8dc403SDave Cobbley 3eb8dc403SDave Cobbleyfor case in `find t -type f -name '*.t'`; do 4*90fd73cbSAndrew Geissler perl -I . $case >$case.output 2>&1 5eb8dc403SDave Cobbley ret=$? 6eb8dc403SDave Cobbley cat $case.output 7eb8dc403SDave Cobbley if [ $ret -ne 0 ]; then 8eb8dc403SDave Cobbley echo "FAIL: ${case%.t}" 9eb8dc403SDave Cobbley elif grep -i 'SKIP' $case.output; then 10eb8dc403SDave Cobbley echo "SKIP: ${case%.t}" 11eb8dc403SDave Cobbley else 12eb8dc403SDave Cobbley echo "PASS: ${case%.t}" 13eb8dc403SDave Cobbley fi 14eb8dc403SDave Cobbley 15eb8dc403SDave Cobbley rm -f $case.output 16eb8dc403SDave Cobbleydone 17