1#!/bin/sh 2 3for case in `find t -type f -name '*.t'`; do 4 perl -I inc -I blib -Mblib $case >$case.output 2>&1 5 ret=$? 6 cat $case.output 7 if [ $ret -ne 0 ]; then 8 echo "FAIL: ${case%.t}" 9 else 10 echo "PASS: ${case%.t}" 11 fi 12 13 rm -f $case.output 14done 15