From de1edfb63a874d62fee0a3bfe176712d48c4927b Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 29 Mar 2022 08:36:06 -0700
Subject: narg: test case exercising all arg list lengths.

---
 testcases-narg | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'testcases-narg')

diff --git a/testcases-narg b/testcases-narg
index 67ccee6..9f8f55c 100644
--- a/testcases-narg
+++ b/testcases-narg
@@ -55,3 +55,18 @@ $cppawk '
 BEGIN { print scol(1, (2, 3)) }'
 :
 [1 : 2 : 3]
+--
+6:
+x=2
+args=1
+revargs=1
+while [ $x -lt 33 ] ; do
+  args="$args, $x"
+  revargs="$x $revargs"
+  [ "$($cppawk "#include <narg.h>
+                BEGIN { print revarg($args) }")" = "$revargs" ] || exit 1
+  x=$((x + 1))
+done
+echo okay
+:
+okay
-- 
cgit v1.2.3