#!/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