quick test script for the record

diff --git a/test.tcl b/test.tcl
new file mode 100644 (file)
index 0000000..cbe89cd
--- /dev/null
+++ b/test.tcl
@@ -0,0 +1,17 @@
+source tcvJSON.tcl
+package require tcvJSON
+
+set myobj [ tcvJSON::create list ]
+
+tcvJSON::add! myobj 1
+tcvJSON::add! myobj foo
+
+set mydeep [ tcvJSON::create obj ]
+
+tcvJSON::put! mydeep key value
+
+tcvJSON::add! -type auto myobj $mydeep
+
+puts $myobj
+
+puts [ tcvJSON::unparse $myobj 0 ]