diff options
| author | Steve Bennett <steveb@workware.net.au> | 2019-11-09 21:03:18 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2019-11-09 21:06:57 +1000 |
| commit | 7bb4dffaa22b9d90982a561f464d54a7f20c2032 (patch) | |
| tree | 2f94cb0d63f128ac99ebcf1c5948eed52b49157a /tests/json.test | |
| parent | dd064e670daf910fa50e138ec0c36822405b60f5 (diff) | |
| download | jimtcl-7bb4dffaa22b9d90982a561f464d54a7f20c2032.zip jimtcl-7bb4dffaa22b9d90982a561f464d54a7f20c2032.tar.gz jimtcl-7bb4dffaa22b9d90982a561f464d54a7f20c2032.tar.bz2 | |
json: Fix decode schema for list obj
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/json.test')
| -rw-r--r-- | tests/json.test | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/json.test b/tests/json.test index 066cc0f..8dfa567 100644 --- a/tests/json.test +++ b/tests/json.test @@ -95,6 +95,9 @@ test json-2.8 {schema tests} { lindex [json::decode -schema {[1, 2, true, false]}] 1 } {mixed num num bool bool} +test json-2.9 {schema tests} { + lindex [json::decode -schema {[{a:1},{b:2}]}] 1 +} {mixed {obj a num} {obj b num}} unset -nocomplain json |