Mercurial > repo
diff perl-5.22.2/runtests.SH @ 8045:a16537d2fe07
<xfix> tar xf perl-5.22.2.tar.gz # Ah, whatever, I\'m doing it anyway
author | HackBot |
---|---|
date | Sat, 14 May 2016 14:54:38 +0000 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/perl-5.22.2/runtests.SH Sat May 14 14:54:38 2016 +0000 @@ -0,0 +1,103 @@ +#!/bin/sh + +case $PERL_CONFIG_SH in +'') + if test ! -f config.sh; then + ln ../config.sh . || \ + ln ../../config.sh . || \ + ln ../../../config.sh . || \ + (echo "Can't find config.sh."; exit 1) + fi 2>/dev/null + . ./config.sh + ;; +esac +case "$0" in +*/*) cd `expr X$0 : 'X\(.*\)/'` ;; +esac +echo "Extracting runtests (with variable substitutions)" +rm -f runtests + +$spitshell >runtests <<!GROK!THIS! +$startsh -e +# runtests.SH +# +!GROK!THIS! + +## In the following, dollars and backticks do not need the extra backslash. +$spitshell >>runtests <<'!NO!SUBS!' + +export PATH || (echo "OOPS, this isn't sh. Desperation time. I will feed myself to sh."; sh $0; kill $$) + +# Avoid "warning: jobserver unavailable: using -j1." warnings under GNU make. +# When gmake -j N spawns a child, it passes +# MAKEFLAGS=" --jobserver-fds=3,4 -j". +# in the environment. Also, if make recognises that the child is another +# make (e.g. it's invoked as $(MAKE) or +command), it keeps open fd's 3 +# and 4 to allow the child process to access the job server. Otherwise, +# those fd's aren't kept open. +# In the case where one does 'make -j 16 test_harness', this script is +# called with MAKEFLAGS set, but fd's 3 and 4 closed. Later when +# descendents of this script run cpan/ExtUtils-Constant/t/Constant.t +# which itelf invokes make, the warnings ensue. + +unset MAKEFLAGS + + +case $# in + 0) + echo "runtests tty_flag ..." + exit 1 + ;; +esac + +case $1 in + tty) + tty=Y + ;; + no-tty) + tty=N + ;; + choose) + if (true </dev/tty) >/dev/null 2>&1; then + tty=Y + else + tty=N + fi + ;; + *) + echo "ttyflag should be one of tty, no-tty or choose" + exit 1 + ;; +esac + +if test X"$TESTFILE" = X; then + TESTFILE=TEST +fi + +cd t + +# If this is run under an old shell that doesn't automatically +# update PWD, then we must update it. Otherwise, t/io/fs.t gets +# mixed up about what directory we are in. +case "$PWD" in + '') ;; # Do nothing if it isn't set at all. + */t) ;; # Leave it alone if it's properly updated. + *) PWD=${PWD}/t; export PWD ;; # Otherwise, fix it. +esac + +!NO!SUBS! + +## In the following, dollars and backticks do need the extra backslash. +$spitshell >>runtests <<!GROK!THIS! +# The second branch is for testing without a tty or controlling terminal, +# see t/op/stat.t +if test \$tty = Y; then + ./perl$_exe \$TESTFILE \$TEST_ARGS \$TEST_FILES </dev/tty +else + PERL_SKIP_TTY_TEST=1 ./perl$_exe \$TESTFILE \$TEST_ARGS \$TEST_FILES +fi + +echo "Ran tests" > rantests +!GROK!THIS! +$eunicefix runtests +chmod +x runtests