_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):
%3 aa_equals aa_equals (public) aa_log aa_log (public) aa_log_result aa_log_result (public) util::json2dict util::json2dict (public) _acs-tcl__json_to_dict _acs-tcl__json_to_dict _acs-tcl__json_to_dict->aa_equals _acs-tcl__json_to_dict->aa_log _acs-tcl__json_to_dict->aa_log_result _acs-tcl__json_to_dict->util::json2dict

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
[ hide source ] | [ make this the default ]
Show another procedure: