home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activepython / ActivePython-2.1.1.msi / Python21_win32com_test_testInterp.vbs < prev    next >
Encoding:
Text File  |  2001-07-26  |  270 b   |  13 lines
  1. set o = CreateObject("Python.Interpreter")
  2. if o.Eval("1+1") <> 2 Then
  3.     WScript.Echo "Eval('1+1') failed"
  4.     bFailed = True
  5. end if
  6.  
  7. if bFailed then
  8.     WScript.Echo "*********** VBScript tests failed *********"
  9. else
  10.     WScript.Echo "VBScript test worked OK"
  11. end if
  12.  
  13.