testautomation/framework/optional/includes/basic_ide.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 : Macro Dialogs opened from Basic-IDE
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tBasic_IDE_Toolbar_Module
  35
  36     printlog( "BASIC toolbars for modules" )
  37
  38     const DIALOG_DELAY = 2
  39     const RC_FAILURE = -1
  40
  41     dim cTargetFile as string
  42         cTargetFile = convertpath( gOfficepath & "user\work\global_test.bas" )
  43
  44     dim cSourceFile as string
  45         cSourceFile = gTesttoolpath & "framework\optional\input\resetregistration.txt"
  46         cSourceFile = convertpath( cSourceFile )
  47
  48     printlog "open a new writer-doc"
  49     gApplication = "WRITER"
  50     hCreateDocument()
  51
  52     if ( hInitBasicIDE( "tBasic_IDE_Toolbar_Module" ) ) then
  53
  54         kontext "macrobar"
  55         printlog "- compile"
  56         hClickButton( Compile )
  57
  58         printlog "- Run Basic"
  59         hClickButton( BasicRun )
  60
  61         printlog "- Step Procedure"
  62         hClickButton( ProcedureStep )
  63
  64         printlog "- Stop Basic"
  65         hClickButton( BasicStop )
  66
  67         printlog "- Single Step"
  68         hClickButton( SingleStep )
  69
  70         printlog "- Step Back"
  71         hClickButton( StepBack )
  72
  73         printlog "- Breakpoint => activate"
  74         hClickButton( Breakpoint )
  75
  76
  77         printlog "- Breakpoint => deactivate"
  78         hClickButton( Breakpoint )
  79
  80         printlog "- Add Watch => deactivate"
  81         hClickButton( AddWatch )
  82
  83         printlog "- Find Paranthese"
  84
  85         kontext "macrobar"
  86         hClickButton( FindParanthese )
  87
  88         try
  89             Controls.TearOff()
  90             warnlog "Controls are active in a module window => bug!"
  91         catch
  92             printlog( "Controls are not active->OK" )
  93         endcatch
  94         if ( WaitSlot <> WSFinished ) then
  95             warnlog( "Slot not finished within 1 second" )
  96         endif
  97
  98         kontext "MacroBar"
  99         printlog( "- Insert Source Text (" & cSourceFile & ")" )
 100         if ( hClickButton( InsertSourceText ) <> RC_FAILURE ) then
 101
 102             kontext "oeffnendlg"
 103             if ( OeffnenDlg.exists( DIALOG_DELAY ) ) then
 104                 Dateiname.SetText( cSourceFile )
 105                 Oeffnen.click()
 106                 WaitSlot( 5000 )
 107             else
 108                 warnlog( "File Open dialog did not open" )
 109             endif
 110
 111             ' possible 'could not read from file' error-message -> this is a bug
 112             kontext "Active"
 113             if ( Active.exists( DIALOG_DELAY ) ) then
 114                 warnlog( "Unexpected active: " & active.gettext() )
 115                 active.ok()
 116             endif
 117         else
 118             warnlog( "<File Open> dialog is not open, <Insert Source Text> button failed" )
 119         endif
 120
 121         kontext "macrobar"
 122         printlog "- Save Source Text "
 123         if ( hClickButton( SaveSourceText ) <> RC_FAILURE ) then
 124
 125             kontext "speicherndlg"
 126             if ( SpeichernDlg.exists( DIALOG_DELAY ) ) then
 127                 Dateiname.SetText( cTargetFile )
 128                 Speichern.click()
 129             else
 130                 warnlog( "File Save dialog is missing" )
 131             endif
 132
 133             kontext "active"
 134             if ( Active.Exists( DIALOG_DELAY ) ) then
 135                 printlog( "Closing Messagebox with <Yes>")
 136                 Active.Yes()
 137             endif
 138         else
 139             warnlog( "<File Save> dialog did not open, slot <SaveSourceText> did not work" )
 140         endif
 141
 142         hFileCloseAll()
 143     else
 144         warnlog( "Unable to init BASIC IDE" )
 145     endif
 146
 147 endcase
 148
 149 '*******************************************************************************
 150
 151 testcase tBasic_IDE_Toolbar_Dialogs
 152
 153     printlog( "BASIC toolbar for Dialogs" )
 154
 155     const DIALOG_DELAY = 2
 156
 157     const TABBAR_MENU_NEW = 1
 158     const TABBAR_MENU_NEW_DIALOG = 2
 159
 160     dim bIsOpen as boolean
 161     dim brc as boolean
 162
 163     dim sBasfile1 as string
 164         sBasFile1 = gTesttoolpath & "framework\optional\input\resetregistration.txt"
 165         sBasFile1 = convertpath( sBasFile1 )
 166
 167     dim sBasFile2 as string
 168         sBasFile2 = convertpath( gOfficepath & "user\work\global_test.bas" )
 169
 170
 171     printlog "open a new writer-doc"
 172     gApplication = "WRITER"
 173     hCreateDocument()
 174
 175     if ( hInitBasicIDE( "tBasic_IDE_Toolbar_Dialogs" ) ) then
 176
 177         kontext "basicide"
 178         Tabbar.OpenContextMenu
 179         hMenuSelectNr ( TABBAR_MENU_NEW        )
 180         hMenuSelectNr ( TABBAR_MENU_NEW_DIALOG )
 181
 182         if ( DialogWindow.Exists ( DIALOG_DELAY ) ) then
 183             printlog( "Dialog Editor window is open. Good." )
 184         else
 185             warnlog "No dialog window is shown!"
 186         end if
 187
 188         try
 189             kontext "MacroBar"
 190             Compile.Click()
 191             warnlog( """Compile"" is enabled" )
 192         catch
 193             printlog( """Compile"" is disabled" )
 194         endcatch
 195
 196         try
 197             kontext "MacroBar"
 198             BasicRun.Click()
 199             warnlog( """Run Basic"" is enabled" )
 200         catch
 201             printlog( """Run Basic"" is disabled" )
 202         endcatch
 203
 204         printlog "- Step Procedure (disabled)"
 205         try
 206             kontext "MacroBar"
 207             ProcedureStep.Click()
 208             warnlog( """Step Procedure"" is enabled" )
 209         catch
 210             printlog( """Step Procedure"" is disabled" )
 211         endcatch
 212
 213         try
 214             kontext "MacroBar"
 215             BasicStop.Click()
 216             warnlog( """Stop Basic"" is enabled" )
 217         catch
 218             printlog( """Stop Basic"" is disabled" )
 219         endcatch
 220
 221         try
 222             kontext "MacroBar"
 223             SingleStep.Click()
 224             warnlog( """Single Step"" is enabled" )
 225         catch
 226             printlog( """Single Step"" is enabled" )
 227         endcatch
 228
 229         try
 230             kontext "MacroBar"
 231             StepBack.Click()
 232             warnlog( """Single Step Back"" is enabled" )
 233         catch
 234             printlog( """Single Step Back"" is enabled" )
 235         endcatch
 236
 237         try
 238             kontext "MacroBar"
 239             Breakpoint.Click()
 240             warnlog( """Breakpoint"" is enabled" )
 241         catch
 242             printlog( """Breakpoint"" is disabled" )
 243         endcatch
 244
 245
 246         try
 247             kontext "MacroBar"
 248             AddWatch.Click()
 249             warnlog( """Add Watch"" is enabled" )
 250         catch
 251             printlog( """Add Watch"" is disabled" )
 252         endcatch
 253
 254
 255         try
 256             kontext "MacroBar"
 257             FindParanthese.Click()
 258             warnlog( """Find Paranthese"" is enabled" )
 259         catch
 260             printlog( """Find Paranthese"" is disabled" )
 261         endcatch
 262
 263
 264         try
 265             kontext "macrobar"
 266             InsertSourceText.Click()
 267             warnlog( """Insert Source Text"" is enabled" )
 268
 269             kontext "oeffnendlg"
 270             if ( OeffnenDlg.exists( DIALOG_DELAY ) ) then
 271                 Dateiname.SetText( sBasFile1 )
 272                 Oeffnen.Click()
 273             else
 274                 warnlog( "File Open dialog missing" )
 275             endif
 276         catch
 277             printlog( """Insert Source Text"" is disabled" )
 278         endcatch
 279
 280
 281         printlog "- Save Source Test  (disabled)"
 282
 283         try
 284             kontext "macrobar"
 285             SaveSourceText.Click()
 286             warnlog( """Save Source Text"" is enabled" )
 287
 288             kontext "speicherndlg"
 289             if ( SpeichernDlg.exists( DIALOG_DELAY ) ) then
 290                 Dateiname.SetText( sBasFile2 )
 291                 Speichern.Click()
 292             else
 293                 warnlog( "File Save dialog is missing" )
 294             endif
 295
 296             kontext "active"
 297             if ( Active.Exists( DIALOG_DELAY ) ) then
 298                 Active.Yes()
 299             endif
 300         catch
 301             printlog( """Save Source Text"" is disabled" )
 302         endcatch
 303
 304         hCloseBasicIDE()
 305         hDestroyDocument()
 306     else
 307         warnlog( "Unable to open BASIC IDE" )
 308     endif
 309
 310 endcase
 311