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