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