testDictionary.vbs 562 Bytes
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 
' 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