Uploaded Test files
This commit is contained in:
parent
f584ad9d97
commit
2e81cb7d99
16627 changed files with 2065359 additions and 102444 deletions
26
venv/Lib/site-packages/win32com/test/testDictionary.vbs
Normal file
26
venv/Lib/site-packages/win32com/test/testDictionary.vbs
Normal file
|
@ -0,0 +1,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
|
||||
|
||||
|
Loading…
Add table
Add a link
Reference in a new issue