[ctypes-commit] ctypes/comtypes/unittests test_msscript.py,NONE,1.1.2.1

[Thomas H. <th...@us...>]

Update of /cvsroot/ctypes/ctypes/comtypes/unittests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2029

Added Files:
      Tag: branch_1_0
	test_msscript.py 
Log Message:
Work around a bug in MS Script Control for JScript.


--- NEW FILE: test_msscript.py ---
import ut
from ctypes import POINTER
from comtypes.automation import IDispatch
from comtypes.client import CreateObject

class Test(ut.TestCase):
    def test_jscript(self):
        engine = CreateObject("MSScriptControl.ScriptControl")
        engine.Language = "JScript"
        # strange.
        #
        # engine.Eval returns a VARIANT containing a dispatch pointer.
        #
        # The dispatch pointer exposes this typeinfo (the number of
        # dispproperties varies, depending on the length of the list we pass
        # to Eval):
        #
        #class JScriptTypeInfo(comtypes.gen._00020430_0000_0000_C000_000000000046_0_2_0.IDispatch):
        #    'JScript Type Info'
        #    _iid_ = GUID('{C59C6B12-F6C1-11CF-8835-00A0C911E8B2}')
        #    _idlflags_ = []
        #    _methods_ = []
        #JScriptTypeInfo._disp_methods_ = [
        #    DISPPROPERTY([dispid(9522932)], VARIANT, '0'),
        #    DISPPROPERTY([dispid(9522976)], VARIANT, '1'),
        #]
        #
        # Although the exact interface members vary, the guid stays
        # the same. Don't think that's allowed by COM standards - is
        # this a bug in the MSScriptControl?
        #
        # What's even more strange is that the returned dispatch
        # pointer can't be QI'd for this interface!  So it seems the
        # typeinfo is really a temporary thing.

        res = engine.Eval("[1, 2, 3, 4]")

        # comtypes.client works around this bug, by not trying to
        # high-level wrap the dispatch pointer because QI for the real
        # interface fails.
        self.failUnlessEqual(type(res), POINTER(IDispatch))

        tinfo_1 = engine.Eval("[1, 2, 3]").GetTypeInfo(0)
        tinfo_2 = engine.Eval("[1, 2, 3, 4]").GetTypeInfo(0)
        tinfo_3 = engine.Eval("[1, 2, 3, 4, 5]").GetTypeInfo(0)


        self.failUnlessEqual(tinfo_1.GetTypeAttr().cVars, 3)
        self.failUnlessEqual(tinfo_2.GetTypeAttr().cVars, 4)
        self.failUnlessEqual(tinfo_3.GetTypeAttr().cVars, 5)
        
        # These tests simply describe the current behaviour ;-)
        self.failUnlessEqual(tinfo_1.GetTypeAttr().guid,
                             tinfo_1.GetTypeAttr().guid)

        ## print (res[0], res[1], res[2])
        ## print len(res)

if __name__ == "__main__":
    ut.main()