1 files changed, 25 insertions, 0 deletions
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)