X-Git-Url: https://git.draconx.ca/gitweb/cdecl99.git/blobdiff_plain/420731be907d16ff3f6905ac5281543a0e784c54..a118e977106144aa753045c59e9f5278facc48d7:/tests/stress.at
diff --git a/tests/stress.at b/tests/stress.at
index 002b966..40e8812 100644
--- a/tests/stress.at
+++ b/tests/stress.at
@@ -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
@@ -13,7 +13,7 @@
# You should have received a copy of the GNU General Public License
# along with this program. If not, see .
-AT_BANNER([Randomized tests])
+AT_BANNER([Stress tests])
dnl Verify the RNG implementation
TEST_TAP_SIMPLE([xoshiro256p sanity], [rng-test],
@@ -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,18 +77,51 @@ 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])
AT_CLEANUP
-AT_SETUP([random cross-parse])
+AT_SETUP([Random crossparse])
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
+
+# Check that we can parse declarations with more than 10000 specifiers.
+AT_SETUP([Excessive specifiers])
+
+s="const"
+for i in 1 2 3 4 5 6 7 8 9 10 11 12 13 14; do
+ AS_VAR_APPEND([s], [" $s"])
+done
+
+cat >test.dat <>test.dat <