Stav 23.06.2026

v3.12/Lib/site-packages/win32com/test/testDictionary.vbs

@@ -0,0 +1,24 @@
+' Test Pyhon.Dictionary using VBScript - this uses
+' IDispatchEx, so is an interesting test.
+
+set ob = CreateObject("Python.Dictionary")
+ob("hello") = "there"
+' Our keys are case insensitive.
+ob.Item("hi") = ob("HELLO")
+
+dim ok
+ok = true
+
+if ob("hello") <> "there" then
+    WScript.Echo "**** The dictionary value was wrong!!"
+    ok = false
+end if
+
+if ob("hi") <> "there" then
+        WScript.Echo "**** The other dictionary value was wrong!!"
+        ok = false
+end if
+
+if ok then
+    WScript.Echo "VBScript has successfully tested Python.Dictionary"
+end if