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 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: basic_modules.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:13 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '*  owner : joerg.skottke@sun.com
  35 '*
  36 '*  short description : Edit several modules and dialogs in basic ide
  37 '*
  38 '\******************************************************************************
  39
  40
  41 testcase tMore_Modules_Dialogs
  42
  43     '///<h1>Work with macros - create multiple modules</h1>
  44     '///<ul>
  45
  46     dim brc as boolean
  47
  48     dim iCurrentTab as integer
  49
  50     dim cFile as string
  51         cFile = gOfficePath & "user\work\basic.odt"
  52
  53     const FILTER = "writer8"
  54
  55     'const iTABCOUNT is the number of dialogs and modules.
  56     'If iTABCOUNT = 10 then 20 tabs (+ the first one!) = 21 should be created.
  57
  58     const iTABCOUNT as Integer = 10
  59     const CMODULE = "TTMODULE"
  60
  61     '///+<li>Delete workfile just in case it was left over by prior testrun</li>
  62     hDeleteFile( cFile )
  63
  64     '///+<li>Create a new Writer document.</li>
  65     printlog "open a new writer-doc"
  66     gApplication = "WRITER"
  67     hCreateDocument()
  68
  69     '///+<li>Create a new module for the new document (named TTModule)</li>
  70     brc = hInitBasicIDE( CMODULE )
  71
  72     '///+<li>Insert 10 modules.</li>
  73     printlog "insert 10 modules"
  74
  75     for iCurrentTab = 1 to iTABCOUNT
  76         printlog "   - insert new module : " & iCurrentTab
  77
  78         kontext "basicide"
  79         Tabbar.OpenContextMenu
  80         hMenuSelectNr(1)
  81         hMenuSelectNr(1)
  82         brc = hDeleteMacro()
  83         if ( brc ) then
  84             EditWindow.TypeKeys "'# " & ( iCurrentTab + 1 ) & ". module in this document"
  85         endif
  86     next iCurrentTab
  87
  88     '///+<li>Insert 10 dialogs</li>
  89     printlog "insert 10 dialogs"
  90
  91     for iCurrentTab = 1 to iTABCOUNT
  92         printlog "   - insert new dialog : " & iCurrentTab
  93         Tabbar.OpenContextMenu
  94         hMenuSelectNr(1)
  95         hMenuSelectNr (2)
  96
  97         if DialogWindow.Exists (2) <> TRUE then
  98             warnlog "No dialog window is shown!"
  99         end if
 100
 101     next iCurrentTab
 102
 103     '///+<li>Close the BasicIDE.</li>
 104     printlog Chr(13) + "- close the BasicIDE"
 105     hCloseBasicIDE()
 106
 107     '///+<li>Save the document.</li>
 108     printlog Chr(13) + "- save the document"
 109     Call hFileSaveAsWithFilterKill( cFile , FILTER )
 110
 111     '///+<li>Close the document</li>
 112     printlog Chr(13) + "- close the document"
 113     hDestroyDocument()
 114
 115     '///+<li>Open the saved document</li>
 116     printlog Chr(13) + "- open the saved document"
 117     hFileOpen( cFile )
 118
 119     '///+<li>Open the BASIC Organizer, select the module for the current document</li>
 120     ToolsMacro_uno
 121     kontext "Makro"
 122     hSelectNodeByName( MakroAus , CMODULE )
 123
 124     '///+<li>Select the last module and open the BASIC IDE.</li>
 125     Bearbeiten.Click()
 126
 127     '///+<li>Delete all modules and dialogs.</li>
 128     printlog "delete all modules and dialogs"
 129
 130     for iCurrentTab = 1 to ( 2 * iTABCOUNT + 1 )
 131
 132         try
 133             printlog "delete  - " & iCurrentTab & "/" & ( 2 * iTABCOUNT + 1 )
 134             UseBindings
 135
 136             kontext "basicide"
 137             Tabbar.OpenContextMenu
 138
 139             hMenuSelectNr( 2 )
 140
 141             kontext "active"
 142
 143             if Active.Exists then
 144                 Active.Yes
 145             else
 146                 warnlog "No warning after deleting a dialog!"
 147             end if
 148
 149         catch
 150             QAErrorLog "Deleting  - " & iCurrentTab & "/" & ((2 * iTABCOUNT)+1) & " failed."
 151         endcatch
 152
 153     next iCurrentTab
 154
 155     hDestroyDocument()
 156     hDestroyDocument()
 157
 158     '///</ul>
 159
 160 endcase
 161