testautomation/framework/optional/includes/basic_spectemplate.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 : Load the spec template via http and enable macros
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tBasicSpecTemplate
  35
  36     const cFile = "http://specs.openoffice.org/collaterals/template/2.0/OpenOffice-org-Specification-Template.ott"
  37     dim cWorkFile as string : cWorkFile = hGetWorkPath() & "SpecTemplate" & hGetSuffix( "current" )
  38
  39     printlog( "FileOpen" )
  40     hFileOpen( cFile )
  41
  42     kontext "Active"
  43     if ( Active.exists( 2 ) ) then
  44         warnlog( "Unexpected errormessage: " & active.getText()
  45         active.ok()
  46
  47         kontext "OeffnenDlg"
  48         if ( OeffnenDlg.exists( 1 ) ) then
  49             printlog( "Recovering - closing File Open dialog" )
  50             hCloseDialog( OeffnenDlg, "cancel" )
  51         endif
  52
  53         goto endsub
  54     endif
  55
  56     printlog( "Accept to execute macros" )
  57     if ( not hAllowMacroExecution() ) then
  58         warnlog( "Missing Macro execution dialog. Aborting test" )
  59         goto endsub
  60     endif
  61
  62     kontext "Active"
  63     if ( Active.exists( 10 ) ) then
  64         warnlog( "Fatal: Unexpected active: " & Active.getText() )
  65         active.ok
  66
  67         kontext "OeffnenDlg"
  68         if ( OeffnenDlg.exists( 2 ) ) then
  69             hCloseDialog( OeffnenDlg, "close" )
  70             goto endsub
  71         endif
  72     endif
  73
  74     printlog( "Change the document")
  75     kontext "DocumentWriter"
  76     DocumentWriter.typeKeys( "<MOD1 END>" )
  77     DocumentWriter.typeKeys( "Changing the document" )
  78
  79     printlog( "Disable Help Entry from Spec-Template Menu")
  80     hUseMenu()
  81     hMenuSelectNr( 10 )
  82     hMenuSelectNr( 2 )
  83
  84     ' This one is required as the document is rendering for a while and we cannot
  85     ' tell when it is finished (WaitSlot does not work here)
  86     wait( 5000 )
  87
  88     printlog( "Save the file, overwriting" )
  89     hFileSaveAsKill( cWorkFile )
  90
  91     printlog( "Close the document" )
  92     hDestroyDocument()
  93
  94     printlog( "Load the file again" )
  95     hFileOpen( cWorkFile )
  96     hAllowMacroExecution()
  97
  98     ' This sleep here is needed after loading the document otherwise the document is closed too early during execution of the macros, which results in basic runtime error messagebox, that can not be handled.
  99     SLEEP(1)
 100
 101     printlog( "Cleanup: Close the document and delete the file" )
 102     hDestroyDocument()
 103     hDeleteFile( cWorkFile )
 104 endcase
 105