testautomation/framework/required/includes/wizard_letter.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 Letter Wizard
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tUpdtWizardLetter
  35
  36     printlog( "Resource test for the letter-wizard" )
  37
  38     ' Build the filename we want to save the template as.
  39     dim cTemplateName as string
  40         cTemplateName = "FWK-Testtool-Template-letterWizard.ott"
  41
  42     dim cTemplatePath as string
  43         cTemplatePath = gOfficePath & "user\template\" & cTemplateName
  44         cTemplatePath = convertpath( cTemplatePath )
  45
  46     hDeleteUserTemplates()
  47
  48     hInitSingleDoc()
  49
  50     FileAutopilotLetter
  51     kontext "AutopilotLetter"
  52     if ( AutopilotLetter.exists( 2 ) ) then
  53
  54         if ( not autopilotletter.exists( 3 ) ) then
  55             warnlog( "#i87733# Wizard does not start" )
  56             hCloseDocument()
  57             goto endsub
  58         endif
  59
  60         printlog( " * Page: Page Design" )
  61         call DialogTest( AutopilotLetter, 1 )
  62
  63         printlog( "   * select a business letter" )
  64         Business.check()
  65         WaitSlot()
  66
  67         kontext "active"
  68         if ( active.exists( 1 ) ) then
  69             warnlog( "   * refusing to change the default template" )
  70             active.cancel()
  71         endif
  72         WaitSlot( 2000 )
  73
  74         kontext "Autopilotletter"
  75         BusinessStyle.select( 2 )
  76         WaitSlot( 2000 )
  77
  78         kontext "active"
  79         if ( active.exists( 1 ) ) then
  80             warnlog( "   * refusing to change the default template" )
  81             active.cancel()
  82         endif
  83         WaitSlot( 3000 )
  84
  85         kontext "AutopilotLetter"
  86         LetterHead.Check()
  87
  88         hClickButton( NextButton )
  89
  90         kontext "AutopilotLetter"
  91         call DialogTest( AutopilotLetter, 2 )
  92
  93         printlog( "   * check to add logo" )
  94         Logo.check()
  95
  96         printlog( "   * change the metrics of the logo" )
  97         LogoHeight.settext( "4" )
  98         LogoWidth.settext( "4" )
  99         LogoXpos.settext( "1" )
 100         LogoYpos.settext( "1" )
 101
 102         printlog( "   * check to add own address" )
 103         ReturnAddress.check()
 104
 105         printlog( "   * change the metrics of the address-field" )
 106         AddressHeight.settext( "4" )
 107         AddressWidth.settext( "4" )
 108         AddressXpos.settext( "1" )
 109         AddressYpos.settext( "1" )
 110
 111         printlog( "   * check to show return-address in envelope window" )
 112         ReturnAddressCompany.check()
 113
 114         printlog( "   * UNcheck to add a footer" )
 115         IncludeFooter.unCheck()
 116
 117         printlog( "   * change the height" )
 118         if ( FooterHeight.isEnabled() ) then
 119             warnlog( "FooterHeight should not be enabled in this configuration" )
 120         endif
 121
 122         hClickButton( NextButton )
 123
 124         kontext "AutopilotLetter"
 125         call DialogTest( AutopilotLetter, 3 )
 126
 127         printlog( "   * change letterformat to the second entry" )
 128         LetterPageNorm.select( 2 )
 129
 130         printlog( "   * change salutation to the second entry" )
 131         ListSalutation.select( 2 )
 132
 133         printlog( "   * change Complimentary Close to second entry" )
 134         ListGreetings.select( 2 )
 135         hClickButton( NextButton )
 136
 137         kontext "AutopilotLetter"
 138         call DialogTest( AutopilotLetter, 4 )
 139         hClickButton( NextButton )
 140
 141         kontext "AutopilotLetter"
 142         call DialogTest( AutopilotLetter, 5 )
 143
 144         printlog( "   * enter some text as footer" )
 145         TextFooter.settext( "Some non-offending text" )
 146
 147         printlog( "   * check Include only on second ..." )
 148         IncludeFromPage2.check()
 149         hClickButton( NextButton )
 150
 151         kontext "AutopilotLetter"
 152         call DialogTest( AutopilotLetter, 6 )
 153
 154         printlog( "   * name the template for further usage" )
 155         TemplateName.setText( cTemplateName )
 156         hSetTemplateSavePath( cTemplatePath )
 157
 158         kontext "AutopilotLetter"
 159         hClickButton( FinishButton )
 160
 161         if ( gOOo ) then
 162             kontext "UseOfThisTemplate"
 163             if ( UseOfThisTemplate.exists( 2 ) ) then
 164                 printlog( "cancelling UseOfThisTemplate-dialog for OOo" )
 165                 UseOfThisTemplate.cancel()
 166             else
 167                 qaerrorlog( "UseOfThisTemplate-dialog not present" )
 168             endif
 169         endif
 170
 171         if ( hHandleSaveError() = 1 ) then
 172             kontext "AutopilotLetter"
 173             hClickButton( FinishButton )
 174         endif
 175
 176         if ( not hDestroyDocument() ) then qaerrorlog( "#i59233# The wizard does not display the new template" )
 177     else
 178         warnlog( "Autopilot Letter not open/exceeded timeout" )
 179     endif
 180
 181     hDeleteFile( cTemplatePath )
 182
 183     if ( hDeleteUserTemplates() <> 0 ) then
 184         printlog( "Unexpectedly deleted user template(s), please check")
 185     endif
 186
 187     hFileCloseAll()
 188
 189 endcase
 190
 191