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

diff --git a/tests/stress.at b/tests/stress.at
index 7fa620d..a8e9500 100644
--- a/tests/stress.at
+++ b/tests/stress.at
@@ -116,14 +116,6 @@ 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;
@@ -140,12 +132,19 @@ function finish_run(nr) {
 
 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
+tr <test.out ',' '
+' | $AWK -f check.awk
 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])
+type function (a
+ a
+[repeated 16381 more times]
+ a) returning int
+int (a
+ a
+[repeated 16381 more times]
+ a)
 ]])
 
 AT_CLEANUP