Wallpaper-Changer/lib/win32com/test/testInterp.vbs
2020-12-03 00:58:58 +01:00

13 lines
258 B
Plaintext

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