testautomation/framework/required/includes/wizard_documentconverter.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: wizard_documentconverter.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-08-01 09:48:16 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '*  owner : joerg.skottke@sun.com
  35 '*
  36 '*  short description : Update test for documentconverter
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tUpdtWizardDocumentConverter
  41
  42     dim irc as integer
  43     dim brc as boolean
  44     dim iDialog as integer
  45     dim iDocumentType as integer
  46     dim iWait as integer
  47     dim sKeys as string
  48     dim sSourcePathWriter as string
  49         sSourcePathWriter = gTesttoolpath & "framework\required\input\document_converter\"
  50         sSourcePathWriter = convertpath( sSourcePathWriter )
  51     dim sTargetFile as string
  52     dim sLogFile as string
  53     dim aFileList( 100 ) as string
  54     dim iCurrentFile as integer
  55
  56     hInitSingleDoc()
  57
  58     irc = hOpenWizardWithMenu( "DOCCONV" )
  59     if ( irc <> 0 ) then
  60         warnlog( "Unable to open requested wizard, aborting test" )
  61         goto endsub
  62     endif
  63
  64     sTargetFile = hGetWorkPath()
  65     sLogFile = sTargetFile & "Logfile.odt"
  66
  67     stargetFile = sTargetFile & "docconv1" & hGetSuffix( "current" )
  68
  69
  70     Kontext "DocumentConverter"
  71     hWaitForObject( CreateLogfile, 3000 )
  72     CreateLogfile.check()
  73
  74     Call DialogTest ( DocumentConverter )
  75
  76     spreadsheet.check()
  77     textdoc.check()
  78     drawing.check()
  79     master.check()
  80
  81
  82     ' as we selected all documenttypes, the settings page for each
  83     ' documenttype has to pop up
  84     for iDocumentType = 1 to 4
  85
  86         ContinueButton.click()
  87
  88         Kontext "DocumentConverter"
  89         if ( template.isVisible() ) then
  90             printlog( "Page " & 1 + iDocumentType & " is visible" )
  91         else
  92             warnlog( "Cannot access page 2, aborting test" )
  93             hFinishWizard()
  94             goto endsub
  95         endif
  96
  97         for iDialog = 1 to 4
  98
  99             select case iDialog
 100             case 1 : ImportFormTemplatesSearch.click()
 101             case 2 : SaveToTemplatesSearch.Click()
 102             case 3 : ImportFormDocumentSearch.Click()
 103             case 4 : SaveToDocumentSearch.Click()
 104             end select
 105
 106             Kontext "OeffnenDLG"
 107             Call Dialogtest (OeffnenDlg)
 108             OeffnenDLG.Cancel()
 109
 110             Kontext "DocumentConverter"
 111             ImportFormDocument.setText( sSourcePathWriter )
 112
 113         next iDialog
 114
 115     next iDocumentType
 116
 117     Kontext "DocumentConverter"
 118     ContinueButton.click()
 119
 120     Kontext "DocumentConverter"
 121     if ( summary.isVisible() ) then
 122         printlog( "Page 6 is visible" )
 123     else
 124         warnlog( "Page 6 - Summary Page is missing" )
 125     endif
 126
 127     Kontext "DocumentConverter"
 128     ContinueButton.click()
 129
 130     Kontext "DocumentConverter"
 131     printlog( "Page 7" )
 132
 133     sKeys = hGetAccel( "DocumentConverter_ShowLog" )
 134     qaerrorlog( "#i54265# Show Logfile button has no HID, using accelerator instead" )
 135
 136     iWait = 0
 137     do while ( DocumentConverter.exists() )
 138         DocumentConverter.TypeKeys( sKeys )
 139         Wait( 1 )
 140         iWait = iWait + 1
 141         if ( iWait = 20000 ) then
 142             warnlog( "Document not converted within 20 seconds" )
 143             exit do
 144         endif
 145     loop
 146
 147     if ( getDocumentCount <> 1 ) then
 148         warnlog( "Exactly one - the conversion result document - should be open" )
 149     endif
 150
 151     hDestroyDocument()
 152     hDeleteFile( sTargetFile )
 153     hDeleteFile( sLogFile )
 154
 155 endcase
 156