_acs-tcl__json_to_dict (private)
_acs-tcl__json_to_dict
Defined in packages/acs-tcl/tcl/test/json-test-procs.tcl
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: set _aa_export {} set body_count 1 foreach testcase_body {{ set json {{"results":[{"name":"bootstrap-icons","latest":"https://cdnjs.cloudflare.com/ajax/libs/bootstrap-icons/1.11.3/bootstrap-icons.svg","filename":"bootstrap-icons.svg","description":"Official open source SVG icon library for Bootstrap","version":"1.11.3"}],"total":1,"available":3}} set jsonDict [util::json2dict $json] aa_equals cdnjs-API $jsonDict {results {{name bootstrap-icons latest https://cdnjs.cloudflare.com/ajax/libs/bootstrap-icons/1.11.3/bootstrap-icons.svg filename bootstrap-icons.svg description {Official open source SVG icon library for Bootstrap} version 1.11.3}} total 1 available 3} set json {{ "Verlag": "De Gruyter", "Auflage": {"nr": 1, "jahr": 2020 }, "Autor": [ {"Vorname": "Hans Robert", "Familienname": "Hansen"}, {"Vorname": "Jan ", "Familienname": "Mendling"}, {"Vorname": "Gustaf", "Familienname": "Neumann"} ], "Schlagworte": ["Wirtschaftsinformatik", "Einführung"] }} set jsonDict [util::json2dict $json] aa_equals with-object-container $jsonDict {Verlag {De Gruyter} Auflage {nr 1 jahr 2020} Autor {{Vorname {Hans Robert} Familienname Hansen} {Vorname {Jan } Familienname Mendling} {Vorname Gustaf Familienname Neumann}} Schlagworte {Wirtschaftsinformatik Einführung}} set json {{ "Titel": "Wirtschaftsinformatik", "Schlagworte": [["hello","world"], "Einführung"] }} set jsonDict [util::json2dict $json] aa_equals with-array-container $jsonDict {Titel Wirtschaftsinformatik Schlagworte {{hello world} Einführung}} set json {{ "Titel": "Wirtschaftsinformatik", "nested": {"a":1, "b":{"o1":1,"o2":2}, "objectcontainer": {"o3":3,"o4":4}}, "objectcontainer": {"a":"b","c":"d"} }} set jsonDict [util::json2dict $json] aa_equals literal-objectcontainer $jsonDict {Titel Wirtschaftsinformatik nested {a 1 b {o1 1 o2 2} objectcontainer {o3 3 o4 4}} objectcontainer {a b c d}} set json {{ "Titel": "Wirtschaftsinformatik", "nested": {"a":1, "b":{"o1":1,"o2":2}, "objectcontainer": {"o3":3,"o4":4}}, "arraycontainer": ["a", [1,2,3], "c"] }} set jsonDict [util::json2dict $json] aa_equals literal-arraycontainer $jsonDict {Titel Wirtschaftsinformatik nested {a 1 b {o1 1 o2 2} objectcontainer {o3 3 o4 4}} arraycontainer {a {1 2 3} c}} }} { aa_log "Running testcase body $body_count" set ::__aa_test_indent [info level] set catch_val [catch $testcase_body msg] if {$catch_val != 0 && $catch_val != 2} { aa_log_result "fail" "json_to_dict (body $body_count): Error during execution: $msg, stack trace: \n$::errorInfo" } incr body_count }XQL Not present: Generic, PostgreSQL, Oracle