openmedialibrary_platform_w.../Lib/site-packages/win32com/test/testInterp.vbs
2016-04-14 21:54:42 +02:00

12 lines
270 B
Text

set o = CreateObject("Python.Interpreter")
if o.Eval("1+1") <> 2 Then
WScript.Echo "Eval('1+1') failed"
bFailed = True
end if
if bFailed then
WScript.Echo "*********** VBScript tests failed *********"
else
WScript.Echo "VBScript test worked OK"
end if