home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2010 November / maximum-cd-2010-11.iso / DiscContents / calibre-0.7.13.msi / file_2745 < prev    next >
Encoding:
Text File  |  1999-09-02  |  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.