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?hp=b0dff384ced94bf519054a62a68ce3dd2de26fbd

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