86 lines
2.1 KiB
Bash
Executable File
86 lines
2.1 KiB
Bash
Executable File
#!/bin/sh
|
|
#
|
|
# Copyright (C) 2001-2023 Graeme Walker <graeme_walker@users.sourceforge.net>
|
|
#
|
|
# 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/>.
|
|
# ===
|
|
#
|
|
# emailrelay_test.sh
|
|
#
|
|
# Tests the E-MailRelay system using "emailrelay_test.pl" or some other
|
|
# shell script that takes "-d <exe-dir>".
|
|
#
|
|
# usage:
|
|
# emailrelay_test.sh [-q] [<perl-script-options>] [<test-name> ...]
|
|
# emailrelay_test.sh --sh <test-script>
|
|
#
|
|
|
|
this_dir="`cd \`dirname \"$0\"\` && pwd`"
|
|
|
|
# run another shell script if asked
|
|
if test "$1" = "--sh"
|
|
then
|
|
shift
|
|
script="$1"
|
|
shift
|
|
buildroot="`cd .. && pwd`"
|
|
exec "$script" -d "$buildroot" "$@"
|
|
exit 1
|
|
fi
|
|
|
|
# test for perl
|
|
perl -e "use Carp; use FileHandle; use Getopt::Std; use IO::Socket; use IO::Select; exit(99);" 2>/dev/null
|
|
rc=$?
|
|
if test $rc -ne 99
|
|
then
|
|
echo `basename $0`: warning: no perl, or missing perl modules: skipping all tests >&2
|
|
exit 77 # for automake
|
|
fi
|
|
|
|
# parse the command-line
|
|
quiet=0
|
|
if test "$1" = "-q"
|
|
then
|
|
# no shift here - pass it on
|
|
quiet=1
|
|
fi
|
|
|
|
# check the perl script
|
|
if test -z "$srcdir"
|
|
then
|
|
srcdir="$this_dir"
|
|
fi
|
|
perl_script="$srcdir/emailrelay_test.pl"
|
|
chmod +x "$0" "$perl_script" 2>/dev/null
|
|
if test ! -e "$perl_script"
|
|
then
|
|
echo `basename $0`: error: no perl script: "$perl_script" >&2
|
|
exit 1
|
|
fi
|
|
|
|
# run the emailrelay_test.pl tests
|
|
if sh -c "true </dev/tty" 2>/dev/null
|
|
then
|
|
# redirect stdin because "make -j" and "openssl s_server"
|
|
perl -I"${srcdir}" "$perl_script" "$@" </dev/tty
|
|
else
|
|
perl -I"${srcdir}" "$perl_script" "$@"
|
|
fi
|
|
rc=$?
|
|
|
|
if test "$quiet" -eq 1 -o "$rc" -eq 77 ; then : ; else
|
|
echo `basename $0`: done: $rc
|
|
fi
|
|
exit $rc
|