mirror of
git://git.sv.gnu.org/coreutils.git
synced 2026-04-18 01:40:06 +02:00
2f60384d6a
* tests/shell-or-perl: Prefer the `read' builtin over `grep' to look at the shebang line of test scripts. Since `read' is a special builtin, it might abort the whole program upon failures, so add extra sanity checks, verifying that the test script exists and is readable, before trying to read from it.
120 lines
3.1 KiB
Bash
120 lines
3.1 KiB
Bash
#! /bin/sh
|
|
# Run a test script of the coreutils test scripts, picking up the right
|
|
# interpreter (i.e., perl or the shell) and the right flags for it (e.g.,
|
|
# perl `-T' flag for perl scripts that must run in tainted mode).
|
|
#
|
|
# Copyright (C) 2011 Free Software Foundation, Inc.
|
|
#
|
|
# This program is free software: you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation, either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
#
|
|
|
|
# ---------------------------------- #
|
|
# Readonly variables and functions #
|
|
# ---------------------------------- #
|
|
|
|
# Help to avoid typo-related bugs.
|
|
set -u
|
|
|
|
me=shell-or-perl
|
|
|
|
error_ ()
|
|
{
|
|
echo "$me: $*" >&2
|
|
exit 99
|
|
}
|
|
|
|
print_help_ ()
|
|
{
|
|
cat <<EOH
|
|
Usage: $me [--help] [--srcdir DIR] [--shell SHELL-CMD] [--perl PERL-CMD]
|
|
[--test-name NAME-WITHOUT-VPATH] TEST-SCRIPT [ARGS..]
|
|
EOH
|
|
}
|
|
|
|
# ---------------- #
|
|
# Option parsing #
|
|
# ---------------- #
|
|
|
|
assign_optarg_to_var='
|
|
test $# -gt 1 || error_ "option '\''$1'\'' requires an argument"
|
|
eval "$var=\$2"
|
|
shift'
|
|
|
|
srcdir=${srcdir-.}
|
|
cu_PERL=${PERL-perl}
|
|
cu_SHELL=/bin/sh # Getting $SHELL from the environment is dangerous.
|
|
test_name=
|
|
while test $# -gt 0; do
|
|
var=
|
|
case $1 in
|
|
--help) print_help_; exit $?;;
|
|
--shell) var=cu_SHELL;;
|
|
--perl) var=cu_PERL;;
|
|
--srcdir) var=srcdir;;
|
|
--test-name) var=test_name;;
|
|
--) shift; break;;
|
|
-*) error_ "unknown option '$1'";;
|
|
*) break;;
|
|
esac
|
|
test -z "$var" || eval "$assign_optarg_to_var"
|
|
shift
|
|
done
|
|
|
|
unset assign_optarg_to_var var
|
|
|
|
case $# in
|
|
0) error_ "missing argument";;
|
|
*) test_script=$1; shift;;
|
|
esac
|
|
|
|
test -z "$test_name" && test_name=$test_script
|
|
|
|
# --------------------- #
|
|
# Run the test script #
|
|
# --------------------- #
|
|
|
|
test -f "$test_script" && test -r "$test_script" \
|
|
|| error_ "test script '$test_script' does not exist, or isn't readable"
|
|
|
|
read shebang_line < "$test_script" \
|
|
|| error_ "cannot read from the test script '$test_script'"
|
|
|
|
case $shebang_line in
|
|
'#!/usr/bin/perl'*)
|
|
# The test is a perl script.
|
|
if $cu_PERL -e 'use warnings' > /dev/null 2>&1; then
|
|
# Perl is available, see if we must run the test with taint
|
|
# mode on or not.
|
|
case $shebang_line in *\ -T*) T_=T;; *) T_=;; esac
|
|
# Now run it.
|
|
exec $cu_PERL -w$T_ -I"$srcdir" -MCoreutils -MCuSkip \
|
|
-M"CuTmpdir qw($test_name)" \
|
|
-- "$test_script" ${1+"$@"}
|
|
else
|
|
# Perl is not available, skip the test.
|
|
echo "$test_name: skip: no usable version of Perl found"
|
|
exit 77
|
|
fi
|
|
;;
|
|
*)
|
|
# Assume the test is a shell script.
|
|
exec $cu_SHELL "$test_script" ${1+"$@"}
|
|
esac
|
|
|
|
# ------------- #
|
|
# Not reached #
|
|
# ------------- #
|
|
|
|
error_ "dead code reached"
|