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    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
16done
17