Port random crossparse test to Autotest.

[cdecl99.git] / testsuite.at

diff --git a/testsuite.at b/testsuite.at
index 930ff2ceaf4102d11b72d3deaf36b4a63cdbf0a8..2fb25be017b84e7f0a5a3391e3c22d2c14f2c2be 100644 (file)
--- a/testsuite.at
+++ b/testsuite.at
@@ -23,10 +23,17 @@ AT_ARG_OPTION_ARG([random-seed],
     [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_divert_push([PREPARE_TESTS])dnl
 : ${LIBTOOL="$SHELL $builddir/libtool"}
 random_seed=`printf '%s' "$random_seed" | tr -cd '@<:@:digit:@:>@'`
 random_seed=${random_seed:-0}
+random_iter=`printf '%s' "$random_iter" | tr -cd '@<:@:digit:@:>@'`
+random_iter=`expr "$random_iter" '|' 500`
 m4_divert_pop([PREPARE_TESTS])
 
 m4_define([TEST_NEED_PROGRAM], [AT_KEYWORDS([$1])dnl