testautomation/framework/required/includes/wizard_fax.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 Fax Wizard
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tUpdtWizardFax
  35
  36     printlog( "Resource test for the fax wizard" )
  37
  38     dim cTemplateName as string
  39     dim cTemplatePath as string
  40
  41     ' Build the filename we want to save the template as.
  42     cTemplateName = "FWK-testtool-faxtemplate.ott"
  43     cTemplatePath = gOfficePath & "user\template\" & cTemplateName
  44     cTemplatePath = convertpath( cTemplatePath )
  45
  46     FileAutopilotFax
  47
  48     kontext "AutopilotFax"
  49     if ( AutopilotFax.exists( 2 ) ) then
  50
  51         kontext "AutopilotFax"
  52         call DialogTest( AutopilotFax, 1 )
  53         hClickButton( NextButton )
  54
  55         kontext "AutopilotFax"
  56         call DialogTest( AutopilotFax, 2 )
  57         hClickButton( NextButton )
  58
  59         kontext "AutopilotFax"
  60         call DialogTest( AutopilotFax, 3 )
  61         hClickButton( NextButton )
  62
  63         kontext "AutopilotFax"
  64         call DialogTest( AutopilotFax, 4 )
  65         hClickButton( NextButton )
  66
  67         kontext "AutopilotFax"
  68         call DialogTest( AutopilotFax, 5 )
  69
  70         printlog( "Name the template for further usage" )
  71         TemplateName.setText( cTemplateName )
  72
  73         hSetTemplateSavePath( cTemplatePath )
  74
  75         kontext "AutopilotFax"
  76         hClickButton( FinishButton )
  77
  78         kontext "StandardBar"
  79         hWaitForObject( Speichern, 5000 )
  80
  81         if ( not hDestroyDocument() ) then qaerrorlog( "#i59233# The wizard does not display the new template" )
  82
  83         printlog( "Delete the user-template: " & cTemplatePath )
  84         hDeleteFile( cTemplatePath )
  85
  86     else
  87         warnlog( "Fax wizard did not open/exceeded timeout" )
  88     endif
  89
  90     hFileCloseAll()
  91
  92
  93 endcase