json-test-procs.tcl

Test procs in defined in tcl/json-procs.tcl

Location:

packages/acs-tcl/tcl/test/json-test-procs.tcl

Procedures in this file

Detailed information

[ hide source ] | [ make this the default ]

Content File Source

ad_library {

    Test procs in defined in tcl/json-procs.tcl

}

aa_register_case \
    -cats {api smoke} \
    -procs {
        util::json2dict
    } \
    json_to_dict {

        Test JSON to dict conversions

    } {
        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}}
    }