[scpubgit/TenDotTcl.git] / test.tcl

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 ]
Commit	Line	Data
da5050b2	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 ]