testautomation/framework/optional/includes/basic_modules.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 : Edit several modules and dialogs in basic ide
  31 '*
  32 '\******************************************************************************
  33
  34
  35 testcase tMore_Modules_Dialogs
  36
  37
  38     dim brc as boolean
  39
  40     dim iCurrentTab as integer
  41
  42     dim cFile as string
  43         cFile = gOfficePath & "user\work\basic.odt"
  44
  45     const FILTER = "writer8"
  46
  47     'const iTABCOUNT is the number of dialogs and modules.
  48     'If iTABCOUNT = 10 then 20 tabs (+ the first one!) = 21 should be created.
  49
  50     const iTABCOUNT as Integer = 10
  51     const CMODULE = "TTMODULE"
  52
  53     hDeleteFile( cFile )
  54
  55     printlog "open a new writer-doc"
  56     gApplication = "WRITER"
  57     hCreateDocument()
  58
  59     brc = hInitBasicIDE( CMODULE )
  60
  61     printlog "insert 10 modules"
  62
  63     for iCurrentTab = 1 to iTABCOUNT
  64         printlog "   - insert new module : " & iCurrentTab
  65
  66         kontext "basicide"
  67         Tabbar.OpenContextMenu
  68         hMenuSelectNr(1)
  69         hMenuSelectNr(1)
  70         brc = hDeleteMacro()
  71         if ( brc ) then
  72             EditWindow.TypeKeys "'# " & ( iCurrentTab + 1 ) & ". module in this document"
  73         endif
  74     next iCurrentTab
  75
  76     printlog "insert 10 dialogs"
  77
  78     for iCurrentTab = 1 to iTABCOUNT
  79         printlog "   - insert new dialog : " & iCurrentTab
  80         Tabbar.OpenContextMenu
  81         hMenuSelectNr(1)
  82         hMenuSelectNr (2)
  83
  84         if DialogWindow.Exists (2) <> TRUE then
  85             warnlog "No dialog window is shown!"
  86         end if
  87
  88     next iCurrentTab
  89
  90     printlog Chr(13) + "- close the BasicIDE"
  91     hCloseBasicIDE()
  92
  93     printlog Chr(13) + "- save the document"
  94     Call hFileSaveAsWithFilterKill( cFile , FILTER )
  95
  96     printlog Chr(13) + "- close the document"
  97     hDestroyDocument()
  98
  99     printlog Chr(13) + "- open the saved document"
 100     hFileOpen( cFile )
 101
 102     ToolsMacro_uno
 103     kontext "Makro"
 104     hSelectNodeByName( MakroAus , CMODULE )
 105
 106     Bearbeiten.Click()
 107
 108     printlog "delete all modules and dialogs"
 109
 110     for iCurrentTab = 1 to ( 2 * iTABCOUNT + 1 )
 111
 112         try
 113             printlog "delete  - " & iCurrentTab & "/" & ( 2 * iTABCOUNT + 1 )
 114             UseBindings
 115
 116             kontext "basicide"
 117             Tabbar.OpenContextMenu
 118
 119             hMenuSelectNr( 2 )
 120
 121             kontext "active"
 122
 123             if Active.Exists then
 124                 Active.Yes
 125             else
 126                 warnlog "No warning after deleting a dialog!"
 127             end if
 128
 129         catch
 130             QAErrorLog "Deleting  - " & iCurrentTab & "/" & ((2 * iTABCOUNT)+1) & " failed."
 131         endcatch
 132
 133     next iCurrentTab
 134
 135     hDestroyDocument()
 136     hDestroyDocument()
 137
 138
 139 endcase
 140