X-Git-Url: https://git.draconx.ca/gitweb/cdecl99.git/blobdiff_plain/b36da52d0e7798814d23cdc9979fc1900f8e9e51..0be9665d13739d12085ef2f5c2d4a47215d7612d:/testsuite.at

diff --git a/testsuite.at b/testsuite.at
index dc16783..930ff2c 100644
--- a/testsuite.at
+++ b/testsuite.at
@@ -18,10 +18,24 @@ AT_COLOR_TESTS
 
 AT_TESTED([cdecl99])
 
+AT_ARG_OPTION_ARG([random-seed],
+  [AS_HELP_STRING([--random-seed=ARG],
+    [Integer seed for randomized testing (default: auto)])],
+  [random_seed=$at_optarg], [random_seed=$RANDOM$$])
+
 m4_divert_push([PREPARE_TESTS])dnl
 : ${LIBTOOL="$SHELL $builddir/libtool"}
+random_seed=`printf '%s' "$random_seed" | tr -cd '@<:@:digit:@:>@'`
+random_seed=${random_seed:-0}
 m4_divert_pop([PREPARE_TESTS])
 
+m4_define([TEST_NEED_PROGRAM], [AT_KEYWORDS([$1])dnl
+AT_CHECK([for arg in $check_PROGRAMS; do
+test x"${arg##*/}" != x"$1$EXEEXT" || exit 0
+done
+exit 77])])
+
 m4_include([tests/general.at])
 m4_include([tests/decl-good.at])
 m4_include([tests/decl-bad.at])
+m4_include([tests/stress.at])