view release on metacpan or  search on metacpan

t/runtests  view on Meta::CPAN

#!/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 [ "$App_CPANtoRPM_RELEASE_TESTING" != "0" ]; then
   App_CPANtoRPM_RELEASE_TESTING=1
   export App_CPANtoRPM_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