testautomation/framework/optional/includes/basic_modulehide.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 : Verify that hiding modules works
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tBasicIdeModuleHide
  35
  36
  37     const CFN = "tBasicIdeModuleHide::"
  38
  39     const TESTMACRO = "TTMacro1"
  40     const ERR_NO_LINES_INSERTED = 0
  41
  42     const RC_SUCCESS = 0
  43     const RC_TIMEOUT = -1
  44
  45     const TAB_MODULES = 1
  46
  47     dim rc as integer
  48     dim brc as boolean
  49     dim cDefaultTabName as string
  50
  51     gApplication = "WRITER"
  52     call hNewDocument()
  53
  54     ToolsMacro_uno
  55     hCreateModuleForDoc()
  56
  57     printlog( "Insert macro" )
  58     if ( hInsertMacroFromFile( TESTMACRO ) > ERR_NO_LINES_INSERTED ) then
  59        printlog( CFN & "Macro has been written successfully" )
  60     else
  61        warnlog( CFN & "Failed to insert macro" )
  62     endif
  63
  64     printlog( "Hide the module" )
  65     if ( hHideModule() ) then
  66
  67         ' hTestMacro is expected to fail, so we jump to the catch statement
  68         if ( hInsertMacroFromFile( TESTMACRO ) <> ERR_NO_LINES_INSERTED ) then
  69             warnlog( "For some reason the original module is still visible" )
  70         else
  71             printlog( "The edit window is not accessible, good" )
  72         endif
  73
  74         if ( hOpenBasicObjectOrganizer( TAB_MODULES ) ) then
  75
  76             modulliste.typekeys( "<END><RIGHT><DOWN><RIGHT><DOWN>" )
  77             if ( hClickButton( Bearbeiten ) = RC_TIMEOUT ) then
  78                 warnlog( "#i35097# Crash when editing last module" )
  79                 goto endsub
  80             endif
  81
  82             if ( not hBasicIDERunMacro( TESTMACRO ) ) then
  83                 warnlog( "Incorrect macro executed/macro missing" )
  84             endif
  85
  86             hCloseBasicIDE()
  87             hFileCloseAll()
  88
  89         else
  90             warnlog( "restarting the office to recover from errors" )
  91             call exitRestartTheOffice()
  92         endif
  93
  94     else
  95         warnlog( "Some unexpected error occurred while trying to hide the module" )
  96     endif
  97
  98 endcase