From 0d1fef12970e5850be29d331d525a77195d6b40b Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 18 Apr 2022 06:02:37 -0700
Subject: cons: list_begin, list_add, list_end: document, test.

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

(limited to 'testcases-cons')

diff --git a/testcases-cons b/testcases-cons
index c80bb5d..76be7c8 100644
--- a/testcases-cons
+++ b/testcases-cons
@@ -828,3 +828,24 @@ BEGIN {
 nil
 3
 4
+--
+43:
+$cppawk '
+#include <cons.h>
+
+BEGIN {
+  bag = list_begin()
+  print sexp(list_end(bag))
+  print sexp(list_end_atom(bag, 3))
+  bag = list_add(bag, "a")
+  bag = list_add(bag, 1)
+  bag = list_add(bag, 2)
+
+  print sexp(list_end(bag))
+  print sexp(list_end_atom(bag, 3))
+}'
+:
+nil
+3
+("a" 1 2)
+("a" 1 2 . 3)
-- 
cgit v1.2.3