From: Nick Bowler <nbowler@draconx.ca>
Date: Tue, 16 Jan 2024 03:39:56 +0000 (-0500)
Subject: tests: Work around awk line length limitations.
X-Git-Tag: v1.3~30
X-Git-Url: https://git.draconx.ca/gitweb/cdecl99.git/commitdiff_plain/f9f25a36518274455212cf387599aa4e7bc2e0c8

tests: Work around awk line length limitations.

Some versions of awk (e.g., HP-UX 11) struggle with long lines, which is
a problem for the script which checks the excessive function parameter
output.

To fix this, let's try using tr, which should hopefully not care too
much about line length, to produce short lines that can be checked.
---

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