From 1f0275bfb7259f6f1e1239ab3dca07dac9e4b348 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 16 Apr 2022 12:34:29 -0700
Subject: cons: dolist, dolisti, doconses: doc, test.

---
 testcases-cons | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

(limited to 'testcases-cons')

diff --git a/testcases-cons b/testcases-cons
index ec7e6cb..4dc2788 100644
--- a/testcases-cons
+++ b/testcases-cons
@@ -774,3 +774,28 @@ BEGIN {
 C1,1:12
 foo
 Tfoo
+--
+41:
+$cppawk '
+#include <cons.h>
+
+BEGIN {
+  dolist (x, list(1, 2, 3))
+    print x
+  print x
+  dolisti (x, i, list(1, 2, 3))
+    print x, i
+  doconses (s, listar(1, 2, 3, 4))
+    print sexp(s)
+}'
+:
+1
+2
+3
+3
+1 0
+2 1
+3 2
+(1 2 3 . 4)
+(2 3 . 4)
+(3 . 4)
-- 
cgit v1.2.3