X-Git-Url: https://git.draconx.ca/gitweb/cdecl99.git/blobdiff_plain/aba6fe8bda05659f70ef0cca07aa02db72f23315..b1900b8ec11a1e8ff8705330ed9da66e4bd98ee1:/testsuite.at

diff --git a/testsuite.at b/testsuite.at
index 328f427..f47ad86 100644
--- a/testsuite.at
+++ b/testsuite.at
@@ -30,7 +30,8 @@ m4_divert_pop([PREPARE_TESTS])
 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$$])
+  [random_seed=$at_optarg],
+  [random_seed=`echo $RANDOM$$ | sed 's/\(........\).*/\1/'`])#'
 
 AT_ARG_OPTION_ARG([random-iterations],
   [AS_HELP_STRING([--random-iterations=N],