X-Git-Url: https://git.draconx.ca/gitweb/cdecl99.git/blobdiff_plain/a2c3dad92b2bf55488174c203563224880380c9b..a41aa156f28753613f38924fc856d3dc992cfc56:/tests/stress.at

diff --git a/tests/stress.at b/tests/stress.at
index 605a69a..3ee72d9 100644
--- a/tests/stress.at
+++ b/tests/stress.at
@@ -135,6 +135,14 @@ AT_DATA([check.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;
@@ -156,6 +164,8 @@ done
 
 cat >test.dat <<EOF
 explain int $a
+explain int ($a)
+type function ($a) returning int
 EOF
 
 AT_CHECK([cdecl99 -f test.dat >test.out; status=$?;
@@ -163,6 +173,8 @@ $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