test.tcl

   1 source tcvJSON.tcl
   2 package require tcvJSON
   3
   4 set myobj [ tcvJSON::create list ]
   5
   6 tcvJSON::add! myobj 1
   7 tcvJSON::add! myobj foo
   8
   9 set mydeep [ tcvJSON::create obj ]
  10
  11 tcvJSON::put! mydeep key value
  12
  13 tcvJSON::add! -type auto myobj $mydeep
  14
  15 puts $myobj
  16
  17 puts [ tcvJSON::unparse $myobj 0 ]