1#!/bin/sh 2 3# Usage: 4# runtests [-T] [prefix] 5# 6# Runs all tests (or those starting with prefix),optionally in taint mode 7 8if [ -z "$TI_MODE" ]; then 9 TI_MODE='inter' 10 export TI_MODE 11fi 12 13if [ -z "$TI_QUIET" ]; then 14 TI_QUIET=2 15 export TI_QUIET 16fi 17 18if [ "$RELEASE_TESTING" != "0" ]; then 19 RELEASE_TESTING=1 20 export RELEASE_TESTING 21fi 22 23if [ "$1" = "-T" ]; then 24 taint="-T -I../lib -I." 25 shift 26else 27 taint= 28fi 29 30subset=$1 31 32for test in ${subset}*.t ;do 33 perl $taint ./$test 34done 35