cdecl99: Avoid passing uninitialized value to help_print_option.

[cdecl99.git] / testsuite.at

diff --git a/testsuite.at b/testsuite.at
index dc1678319484636689074175b3b7146ebd9eccb3..bad16f14a75d51c5346469e1d7ea9ac60bde68a6 100644 (file)
--- a/testsuite.at
+++ b/testsuite.at
@@ -1,4 +1,4 @@
-AT_COPYRIGHT([Copyright © 2020 Nick Bowler])
+AT_COPYRIGHT([Copyright © 2020-2021, 2023 Nick Bowler])
 #
 # 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
@@ -16,12 +16,41 @@ AT_COPYRIGHT([Copyright © 2020 Nick Bowler])
 AT_INIT
 AT_COLOR_TESTS
 
+m4_include([common/snippet/test-tap.at])
+
 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$$])
+
+AT_ARG_OPTION_ARG([random-iterations],
+  [AS_HELP_STRING([--random-iterations=N],
+    [Number of randomized testcases to perform (default: 500)])],
+  [random_iter=$at_optarg], [random_iter=])
+
+m4_define([RE_LOWER], [abcdefghijklmnopqrstuvwxyz])
+m4_define([RE_UPPER], m4_toupper(m4_defn([RE_LOWER])))
+m4_define([RE_ALPHA], m4_defn([RE_UPPER])m4_defn([RE_LOWER]))
+m4_define([RE_ALNUM], m4_defn([RE_ALPHA])[0-9])
+
 m4_divert_push([PREPARE_TESTS])dnl
 : ${LIBTOOL="$SHELL $builddir/libtool"}
+random_seed=`printf '%s' "$random_seed" | tr -cd '0123456789'`
+random_seed=${random_seed:-0}
+random_iter=`printf '%s' "$random_iter" | tr -cd '0123456789'`
+random_iter=`expr "$random_iter" '|' 500`
 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/internal.at])
+m4_include([tests/stress.at])