Difuse/packages
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

perl: Improve run_tests.sh

Browse source 
- Add some useful options for debugging tests and test failures
- Properly handle tests located in lib/

Signed-off-by: Marcel Denia <naoir@gmx.net>
This commit is contained in:
Marcel Denia 2015-07-01 15:58:49 +02:00
parent 88800d31ee
commit df26e427f9
1 changed files with 60 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

63
lang/perl/files/perl-run_tests.sh
View file

@ -4,8 +4,52 @@ PERL_TESTSDIR="/usr/share/perl/perl-tests"
PERL_LIBDIR="/usr/lib/perl5/%%PERL_VERSION%%/" PERL_LIBDIR="/usr/lib/perl5/%%PERL_VERSION%%/"
PERL_DISABLEDTESTS="%%PERL_DISABLEDTESTS%%" PERL_DISABLEDTESTS="%%PERL_DISABLEDTESTS%%"
no_run=""
manual_run=""
manual_run_no_base=""
while [ ! -z "$1" ]; do
case $1 in
-n)
no_run="yes"
;;
-m)
manual_run="yes"
;;
-mb)
manual_run="yes"
manual_run_no_base="yes"
;;
--help)
echo "run_tests.sh [-n|-m|-mb|--help]"
echo ""
echo "Options:"
echo " -n Just prepare the environment. Don't actually run any tests"
echo " -m Run tests manually according to MANIFEST, instead of whatever t/TEST chooses"
echo " -mb Don't run base tests. Implies -m"
echo " --help Print this help ;)"
echo ""
exit 0
;;
*)
echo "Invalid argument: $1"
;;
esac
shift
done
if [ ! -f "$PERL_TESTSDIR/__prepared" ]; then if [ ! -f "$PERL_TESTSDIR/__prepared" ]; then
ln -s "$PERL_LIBDIR" "$PERL_TESTSDIR/lib" # Many tests insist on having PERL5LIB in $PERL_TESTSDIR/lib. However,
# that directory may also contain tests. Some of them(FindBin.t in particular)
# also demand being located in a directory ending with "lib". So we can't do symlink
# trickery here.
# Our solution is to just copy PERL5LIB over.
if [ -d "$PERL_TESTSDIR/lib" ]; then
cp -a "$PERL_LIBDIR/"* "$PERL_TESTSDIR/lib/"
else
ln -s "$PERL_LIBDIR" "$PERL_TESTSDIR/lib"
fi
ln -s /usr/bin/perl "$PERL_TESTSDIR/perl" ln -s /usr/bin/perl "$PERL_TESTSDIR/perl"
ln -s /usr/bin/perl "$PERL_TESTSDIR/t/perl" ln -s /usr/bin/perl "$PERL_TESTSDIR/t/perl"
touch "$PERL_TESTSDIR/__prepared" touch "$PERL_TESTSDIR/__prepared"
@ -20,5 +64,18 @@ if [ ! -f "$PERL_TESTSDIR/__prepared" ]; then
mv $PERL_TESTSDIR/MANIFEST_NEW $PERL_TESTSDIR/MANIFEST mv $PERL_TESTSDIR/MANIFEST_NEW $PERL_TESTSDIR/MANIFEST
fi fi
cd "$PERL_TESTSDIR/t" if [ -z "$no_run" ]; then
./perl TEST cd "$PERL_TESTSDIR/t"
if [ ! -z "$manual_run" ]; then
for i in $(cat ../MANIFEST | sed 's/\t.*$//g' | grep '\.t$'); do
if [ ! -z "$manual_run_no_base" ] && [ ! -z "$(echo $i | grep '^t/')" ]; then
continue;
fi
echo "Running $i"
./TEST ../$i
echo ""
done
else
./perl TEST
fi
fi