Index: openacs-4/packages/acs-tcl/tcl/test/json-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/json-test-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/acs-tcl/tcl/test/json-test-procs.tcl	23 Jul 2024 13:38:24 -0000	1.1.2.2
+++ openacs-4/packages/acs-tcl/tcl/test/json-test-procs.tcl	24 Jul 2024 08:05:05 -0000	1.1.2.3
@@ -29,6 +29,13 @@
             "Schlagworte": ["Wirtschaftsinformatik", "Einführung"]
         }}
         set jsonDict [util::json2dict $json]
-        aa_equals cdnjs-API $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}}
+        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}}
     }