]> git.draconx.ca Git - cdecl99.git/blobdiff - tests/stress.at
tests: Fix randomdecl RNG initialization regression.
[cdecl99.git] / tests / stress.at
index 002b966ba5acf9b6cda2d5c1793134c63b7bb181..fbdb36825b0be2eb75e42650b3a6a7f8cd85b76f 100644 (file)
@@ -1,4 +1,4 @@
-# Copyright © 2012, 2020, 2022-2023 Nick Bowler
+# Copyright © 2012, 2020, 2022-2024 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
@@ -64,7 +64,10 @@ m4_define([sanity_tests], [dnl
 
 m4_define([sanity_awk], [[/$1/ { found["$2"] = 1; }
 ]])AT_DATA([sanity.awk],
-[m4_map([sanity_awk], [sanity_tests])dnl
+[# We don't need any field splitting, so choose a character that does not
+# appear in C code to avoid tripping over 199-field limit in HP-UX 11 awk.
+BEGIN { FS = "@"; }
+m4_map([sanity_awk], [sanity_tests])dnl
 END { for (k in found) print "FOUND", k; }
 ])
 
@@ -74,7 +77,7 @@ LC_ALL=C sort >expout <<'EOF'
 m4_map([sanity_exp], [sanity_tests])dnl
 EOF
 
-printf 'Using seed %d\n' "$random_seed" >&AS_MESSAGE_LOG_FD
+AS_ECHO(["Using seed $random_seed"]) >&AS_MESSAGE_LOG_FD
 AT_CHECK([randomdecl -En 10000 -s "$random_seed" >decls], [0])
 AT_CHECK([$AWK -f sanity.awk decls | LC_ALL=C sort], [0], [expout])
 
@@ -85,7 +88,7 @@ AT_SETUP([random cross-parse])
 TEST_NEED_PROGRAM([randomdecl])
 TEST_NEED_PROGRAM([crossparse])
 
-printf 'Using seed %d\n' "$random_seed" >&AS_MESSAGE_LOG_FD
+AS_ECHO(["Using seed $random_seed"]) >&AS_MESSAGE_LOG_FD
 AT_CHECK([randomdecl -n "$random_iter" -s "$random_seed"],, [stdout-nolog])
 AT_CHECK([crossparse -f stdout])
 AT_CLEANUP