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