X-Git-Url: https://git.draconx.ca/gitweb/cdecl99.git/blobdiff_plain/198b77a35965824ae4115a3488d3ecb72431c5f6..b0dff384ced94bf519054a62a68ce3dd2de26fbd:/tests/stress.at

diff --git a/tests/stress.at b/tests/stress.at
index fbdb368..7fa620d 100644
--- a/tests/stress.at
+++ b/tests/stress.at
@@ -13,7 +13,7 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
-AT_BANNER([Randomized tests])
+AT_BANNER([Stress tests])
 
 dnl Verify the RNG implementation
 TEST_TAP_SIMPLE([xoshiro256p sanity], [rng-test],
@@ -83,7 +83,7 @@ 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])
@@ -92,3 +92,60 @@ 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])
+
+AT_CHECK([gunzip -c "$srcdir/tests/data/manyspec.gz" >test.dat || exit 77
+cdecl99 -f test.dat], [0],
+[[type const int
+type const int
+const int
+const int
+inline int f()
+]])
+
+AT_CLEANUP
+
+# Check that we can parse declarations with more than 10000 declarators.
+AT_SETUP([Excessive declarators])
+
+AT_DATA([check.awk],
+[[# 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 = "@"; runstart = 0; }
+END { finish_run(NR); }
+
+gsub(/,[^,)]*/, "~") {
+  while (match($0, /~+/) > 0) {
+    l = substr($0, 1, RSTART-1);
+    r = substr($0, RSTART+RLENGTH);
+    $0 = l ", [plus " RLENGTH " more parameters]" r;
+  }
+}
+
+$0 != lastline {
+  finish_run(NR-1);
+  lastline = $0;
+  runstart = NR;
+  print;
+}
+
+function finish_run(nr) {
+  count = nr - runstart;
+  if (count > 0)
+    print "[repeated " count " more times]";
+}
+]])
+
+AT_CHECK([gunzip -c "$srcdir/tests/data/manydecl.gz" >test.dat || exit 77
+cdecl99 -f test.dat >test.out; status=$?;
+$AWK -f check.awk test.out
+exit $status], [0],
+[[declare a as int
+[repeated 16383 more times]
+type function (a, [plus 16383 more parameters]) returning int
+int (a, [plus 16383 more parameters])
+]])
+
+AT_CLEANUP