testautomation/framework/optional/includes/basic_delete_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_delete_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 : Delete modules while BASIC is running
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tDeleteModulesAtRunningBasic
  41
  42     Dim i as Integer
  43     Dim iSel as Integer
  44     dim brc as boolean
  45
  46     '///<h1>Work with macros - delete Modules while BASIC-IDE is running</h1>
  47
  48     '///<ul>
  49     '///<li>open a new writer-doc</li>
  50     printlog "open a new writer-doc"
  51     gApplication = "WRITER"
  52
  53     Call hNewDocument()
  54
  55     '///<li>create a new module for the new document (named TTModule)</li>
  56     printlog "create a new module "
  57     brc = hOpenBasicOrganizerFromDoc()
  58     brc = hCreateModuleForDoc()
  59
  60     '///<li>insert a short script (1. page)</li>
  61     printlog "insert a short script (1. page)"
  62
  63     brc = hInsertMacro( 1 )
  64
  65     kontext "macrobar"
  66     printlog "- Click button:  Step Procedure"
  67     '///<li>activate "Step Procedure" on Toolbar</li>
  68     ProcedureStep.Click
  69     if ( WaitSlot( 3000 ) <> WSFinished ) then
  70         warnlog( "Slot not finished within 1 second" )
  71     endif
  72
  73     '///<li>check if disabled menu-items are shown and delete is not shown</li>
  74
  75     kontext "basicide"
  76     printlog "check if disabled menu items are shown in context menu and 'delete' is not shown"
  77     Tabbar.OpenContextMenu
  78
  79     try
  80
  81         if hMenuItemGetCount = 5 then
  82             warnlog "Disabled entries are shown in context menu on tab bar => bugID 101972"
  83         end if
  84
  85
  86         if hMenuItemGetCount = 3 then
  87             warnlog "Delete is active in context menu for a running macro => BUG!"
  88         end if
  89
  90     catch
  91         warnlog "Unable to retrieve the number of menuitems"
  92     endcatch
  93
  94     hMenuClose
  95     '///<li>stop the running script</li>
  96     printlog "Stop the running script"
  97
  98     kontext "macrobar"
  99     BasicStop.Click
 100     if ( WaitSlot <> WSFinished ) then
 101         warnlog( "Slot not finished within 1 second" )
 102     endif
 103
 104
 105     '///<li>close the BasicIDE and the document</li>
 106     printlog "close the documents"
 107     Call hCloseDocument()
 108     Call hCloseDocument()
 109
 110     '///</ul>
 111
 112 endcase
 113