You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
172 lines
3.5 KiB
172 lines
3.5 KiB
#! /bin/sh
|
|
#
|
|
# SPDX-License-Identifier: BSD-2-Clause
|
|
#
|
|
# Copyright (c) 2018-2021 Gavin D. Howard and contributors.
|
|
#
|
|
# Redistribution and use in source and binary forms, with or without
|
|
# modification, are permitted provided that the following conditions are met:
|
|
#
|
|
# * Redistributions of source code must retain the above copyright notice, this
|
|
# list of conditions and the following disclaimer.
|
|
#
|
|
# * Redistributions in binary form must reproduce the above copyright notice,
|
|
# this list of conditions and the following disclaimer in the documentation
|
|
# and/or other materials provided with the distribution.
|
|
#
|
|
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
|
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
|
|
# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
|
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
|
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
|
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
|
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
|
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
|
# POSSIBILITY OF SUCH DAMAGE.
|
|
#
|
|
|
|
set -e
|
|
|
|
script="$0"
|
|
|
|
testdir=$(dirname "${script}")
|
|
|
|
. "$testdir/../functions.sh"
|
|
|
|
if [ "$#" -lt 2 ]; then
|
|
printf 'usage: %s dir script [run_extra_tests] [run_stack_tests] [generate_tests] [time_tests] [exec args...]\n' "$script"
|
|
exit 1
|
|
fi
|
|
|
|
d="$1"
|
|
shift
|
|
|
|
f="$1"
|
|
shift
|
|
|
|
if [ "$#" -gt 0 ]; then
|
|
run_extra_tests="$1"
|
|
shift
|
|
else
|
|
run_extra_tests=1
|
|
fi
|
|
|
|
if [ "$#" -gt 0 ]; then
|
|
run_stack_tests="$1"
|
|
shift
|
|
else
|
|
run_stack_tests=1
|
|
fi
|
|
|
|
if [ "$#" -gt 0 ]; then
|
|
generate="$1"
|
|
shift
|
|
else
|
|
generate=1
|
|
fi
|
|
|
|
if [ "$#" -gt 0 ]; then
|
|
time_tests="$1"
|
|
shift
|
|
else
|
|
time_tests=0
|
|
fi
|
|
|
|
if [ "$#" -gt 0 ]; then
|
|
exe="$1"
|
|
shift
|
|
else
|
|
exe="$testdir/../bin/$d"
|
|
fi
|
|
|
|
if [ "$d" = "bc" ]; then
|
|
|
|
if [ "$run_stack_tests" -ne 0 ]; then
|
|
options="-lgq"
|
|
else
|
|
options="-lq"
|
|
fi
|
|
|
|
halt="halt"
|
|
|
|
else
|
|
options="-x"
|
|
halt="q"
|
|
fi
|
|
|
|
scriptdir="$testdir/$d/scripts"
|
|
|
|
name="${f%.*}"
|
|
|
|
if [ "$f" = "timeconst.bc" ]; then
|
|
exit 0
|
|
fi
|
|
|
|
if [ "$run_extra_tests" -eq 0 ]; then
|
|
if [ "$f" = "rand.bc" ]; then
|
|
printf 'Skipping %s script: %s\n' "$d" "$f"
|
|
exit 0
|
|
fi
|
|
fi
|
|
|
|
if [ "$run_stack_tests" -eq 0 ]; then
|
|
|
|
if [ "$f" = "globals.bc" -o "$f" = "references.bc" -o "$f" = "rand.bc" ]; then
|
|
printf 'Skipping %s script: %s\n' "$d" "$f"
|
|
exit 0
|
|
fi
|
|
|
|
fi
|
|
|
|
out="$testdir/${d}_outputs/${name}_script_results.txt"
|
|
outdir=$(dirname "$out")
|
|
|
|
if [ ! -d "$outdir" ]; then
|
|
mkdir -p "$outdir"
|
|
fi
|
|
|
|
unset BC_ENV_ARGS
|
|
unset BC_LINE_LENGTH
|
|
unset DC_ENV_ARGS
|
|
unset DC_LINE_LENGTH
|
|
|
|
s="$scriptdir/$f"
|
|
orig="$testdir/$name.txt"
|
|
results="$scriptdir/$name.txt"
|
|
|
|
if [ -f "$orig" ]; then
|
|
res="$orig"
|
|
elif [ -f "$results" ]; then
|
|
res="$results"
|
|
elif [ "$generate" -eq 0 ]; then
|
|
printf 'Skipping %s script %s\n' "$d" "$f"
|
|
exit 0
|
|
else
|
|
printf 'Generating %s results...' "$f"
|
|
printf '%s\n' "$halt" | "$d" "$s" > "$results"
|
|
printf 'done\n'
|
|
res="$results"
|
|
fi
|
|
|
|
set +e
|
|
|
|
printf 'Running %s script %s...' "$d" "$f"
|
|
|
|
if [ "$time_tests" -ne 0 ]; then
|
|
printf '\n'
|
|
printf '%s\n' "$halt" | /usr/bin/time -p "$exe" "$@" $options "$s" > "$out"
|
|
err="$?"
|
|
printf '\n'
|
|
else
|
|
printf '%s\n' "$halt" | "$exe" "$@" $options "$s" > "$out"
|
|
err="$?"
|
|
fi
|
|
|
|
checktest "$d" "$err" "script $f" "$res" "$out"
|
|
|
|
rm -f "$out"
|
|
|
|
exec printf 'pass\n'
|