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