1 files changed, 27 insertions, 0 deletions
diff --git a/testcases-cons b/testcases-cons
index e5342c0..ebf9241 100644
--- a/testcases-cons
+++ b/testcases-cons
@@ -937,3 +937,30 @@ nil
 ("brown" "fox")
 ("fox")
 nil
+--
+47:
+$cppawk '
+#include <cons.h>
+
+BEGIN {
+  $0 = "the quick brown fox"
+  print sexp(fields())
+
+  set_fields(list(1, cons(1, 2), "foo", box_str("foo")), 3)
+
+  for (i = 1; i <= NF; i++)
+    print $i
+
+  set_fields(list("fast", "fox"), 2)
+  print sexp(fields())
+}'
+:
+("the" "quick" "brown" "fox")
+the
+quick
+1
+C1,1:12
+foo
+Tfoo
+("the" "fast" "fox")
+--