runtests.sh


1
2
3
4
5
6
7
8
9
10
11
12

#!/bin/sh

TEST_VERBOSE=0
PART1='use Test::Harness qw(&runtests $verbose); $verbose='
PART2='; runtests @ARGV;'
for f in $*; do
  if [ $f == "--verbose" ] ; then
    TEST_VERBOSE=1
  fi
done

/usr/bonsaitools/bin/perl -e "${PART1}${TEST_VERBOSE}${PART2}" t/*.t