a „oe”ã@sªddlZddlZddlZddlZddlmZmZmZddd„Zdd„Z dd„Z d d „Z dd d „Z e d kr¦ddlZddlmZdZeejƒdkr˜ejdZe eƒeƒdS)éN)ÚDispatchÚ constantsÚgencachec Cs^|durtj t ¡d¡}tdƒ}|j}| d¡}zt |¡Wntj y\t dƒYn0|  |t j t j¡}| d¡}|j | dt j¡¡|j | dt j¡¡| d¡}|j | d¡¡|j | d¡¡d |_|j |¡|j |¡| d ¡}|j | dt j¡¡|j | dt j¡¡|j |¡| d ¡}d|_d |_| d¡}d|_|j |¡| d¡}d|_|j |¡t jt j|_|j |¡|  d¡} |  !¡d |  d¡_"d |  d¡_"|  #¡|  $¡| j%} |  !¡d|  d¡_"d|  d¡_"|  #¡|  &¡|  d¡j"dkr&t'dƒ‚| | _%| j%| kr@t'dƒ‚|  d¡j"d krZt'dƒ‚|S)NzCOMTestSuiteTempDatabase.mdbúAccess.ApplicationrzJWARNING - Unable to delete old test database - expect a COM exception RSN!z Test Table 1z First Namez Last NameZ UniqueIndexéÿÿÿÿz Test Table 2ZTestRelationshipZMarkZHammondZSecondZPersonz:Unexpected record is last - makes bookmark test pointless!z!The bookmark data is not the samez7The bookmark did not reset the record pointer correctly)(ÚosÚpathÚjoinÚwin32apiZ GetTempPathrZDBEngineZ WorkspacesÚunlinkÚerrorÚprintZCreateDatabaserZ dbLangGeneralZ dbEncryptZCreateTableDefZFieldsZAppendZ CreateFieldZdbTextZ CreateIndexZUniqueZIndexesZ TableDefsZCreateRelationZTableZ ForeignTableZ ForeignNameZdbRelationDeleteCascadeZdbRelationUpdateCascadeZ AttributesZ RelationsZ OpenRecordsetZAddNewZValueZUpdateZ MoveFirstZBookmarkZMoveLastÚ RuntimeError) ÚdbnameÚaccessZdbEngineZ workspaceZnewdbÚtableÚindexZrelationZfieldZtab1Zbk©rú9C:\Program Files\Certbot\pkgs\win32com\test\testAccess.pyÚCreateTestAccessDatabasesv ÿ  ÿ            ÿ       rcCsöddlm}d}}z¤tj d¡tdƒ}td|ƒ| |¡| ¡}|  |d¡|j }tdt |ƒƒ|j }tdt |ƒƒW|duròtj d¡z |  ¡Wqòtjy¶Yqò0n8|durðtj d¡z |  ¡WntjyîYn00dS) Né)ÚdaodumpzCreating Access Application... rzOpening database %szThere are %d forms open.zThere are %d reports openzClosing database )ÚrÚsysÚstderrÚwriterr ZOpenCurrentDatabaseZ CurrentDbZDumpDBZFormsÚlenZReportsZCloseCurrentDatabaseÚ pythoncomÚ com_error)rrÚaZformsZdbZreportsrrrÚDoDumpAccessInfoos2       û  r cCst dddd¡t d¡dS)Nz&{00025E01-0000-0000-C000-000000000046}rér)rZ EnsureModuleZEnsureDispatchrrrrÚGenerateSupport‹sr"cCsLt d¡}t d¡}|dur4|dur4t|ƒtƒn tj d¡t|ƒdS)NrzDAO.DBEngine.35zDtestAccess not doing dynamic test, as generated code already exists )rZGetModuleForProgIDr r"rrr)rZamodZdmodrrrÚDumpAccessInfo“s  ÿr#cCsP|durDz tƒWntjy0tdƒYdS0tƒ}td|ƒt|ƒdS)Nz>*** Can not import the MSAccess type libraries - tests skippedz#A test database at '%s' was created)r"rrr rr#)rrrrÚtest¢s  r$Ú__main__r)Ú CheckClean)N)N)rrrr Zwin32com.clientrrrrr r"r#r$Ú__name__Úutilr&rrÚargvrrrrÚ s" ]