a oeQ@sddlZddlZddlZddlZddlZddlZddlZddlm Z ddl m Z m Z ddl mZdZeZGdddZddZd d Zd d Zdd dZddZddZddZddZddZddZddZedkredS)N) str2memory) NewCollectionwrap)utilc@s\eZdZgdZddZddZddZdd Zd d Zd d Z ddZ ddZ ddZ dS) TestObject) CallbackVoidOneByRefCallbackResultOneByRefCallbackVoidTwoByRefCallbackString#CallbackResultOneByRefButReturnNone!CallbackVoidOneByRefButReturnNoneCallbackArrayResult CallbackArrayResultOneArrayByRefCallbackArrayResultWrongSizecCs|dSNselfZintValrr5C:\Program Files\Certbot\pkgs\win32com\test\testvb.pyr)szTestObject.CallbackVoidOneByRefcCs ||dfSrrrrrrr,sz!TestObject.CallbackResultOneByRefcCs||||fSNr)rZint1Zint2rrrr /szTestObject.CallbackVoidTwoByRefcCs d|dfS)Nrz has visited Pythonr)rZstrValrrrr 2szTestObject.CallbackStringcCs g}|D]}||dq|Sr)appendrarrayValretirrrr 5szTestObject.CallbackArrayResultcCst|ddS)N)list)rrrrrr>sz'TestObject.CallbackArrayResultWrongSizecCs(g}|D]}||dqt||fSr)rrrrrrrAsz+TestObject.CallbackArrayResultOneArrayByRefcCsdSrrrrrrr Hsz.TestObject.CallbackResultOneByRefButReturnNonecCsdSrrrrrrr Ksz,TestObject.CallbackVoidOneByRefButReturnNoneN) __name__ __module__ __qualname__Z_public_methods_rrr r r rrr r rrrrrs  rcCsd|_|jdkrtdd|_|jdkr0tdd|_|jdkrHtdtd|_|jtdkrhtdd|_|jdkrtd d|_|jdkrtd d |_|jd krtd |jft||t|t|| ||ksJ|r| |}|d |kr|d|ksJ||_ |j j |j kr2td| ddkrJtd|ddkrptdt|d|ddkrtdtttd}|||d}|dkrtdt|t||r|d}|dkrtdt|dS)Nrz*Could not set the long property correctly. z-Could not set the integer property correctly.z5Could not set the variant integer property correctly.zrawdataz4Could not set the variant buffer property correctly.Hello from Pythonz,Could not set the string property correctly.z4Could not set the variant string property correctly.g?@g@zJCould not set the variant property to an array of floats correctly - '%s'.rrz3Could not set the VariantPutref property correctly.zCould not pass an integer byrefz$Could not pass an int VARIANT byref:g?g@z$Could not pass a float VARIANT byref useDispatcherz"Could not increment the integer - rr%)Z LongPropertyerror IntPropertyZVariantPropertyrZStringProperty TestArrays TestStructsTestCollectionsZTakeByValObjectZTakeByRefObjectZ VariantPutref_oleobj_ZIncrementIntegerParamZIncrementVariantParamstrrrr'ZDoSomeCallbacksZ PassIntByValTestVBInterfaceZ PassIntByRef)vbtest bUseGeneratedob callback_obrrrrTestVBOsn                 r5c Csdd}t||}g}|D]}||q|t|krHtd|||fg}|D]}||qP|t|kr~td|||ftt||}g}|D]}||q|t|krtd|||fg}|D]}||q|gkrtd||ft||}t|||kr(td|t|||ft||}g}t||D]}|||qB|t|krxtd|||ft||}g}|}|sq||dq|t|krtd|||fdS) NcSs$t|d}t|tdkr |S|S)NZCountr)getattrtype)r3rrrr _getcounts z$_DoTestCollection.._getcountz%Collection %s didn't have %r (had %r)z5Collection 2nd time around %s didn't have %r (had %r)z>Collection iterator %s didn't have %r 2nd time around (had %r)z<2nd time around Collection iterator %s wasn't empty (had %r)z+Collection %s __len__(%r) wasn't==Count(%r)r) r6rrr)iterlenrangeZ_NewEnumZNext) r1Zcol_nameexpectedr9ccheckitemrnrrr_DoTestCollections|             rBcCsjt|dgd|jddkr&tdt|dg|jd|jd|jdt|dgddS) NCollectionProperty)rTwo3rrz;The CollectionProperty[0] element was not the default valueEnumerableCollectionPropertyrDrE)rBrCr)rFZAdd)r1rrrr-s    r-cCsVz||_|durtd|Wn|y2YdS0|j}||krRtd||fdS)Nz Expected '%s'zs4  3bL a (