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