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 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: basic_ide.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 : Macro Dialogs opened from Basic-IDE
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tBasic_IDE_Toolbar_Module
  41
  42     qaerrorlog( "Replace this test asap, the approach is unusable" )
  43
  44     dim brc as boolean
  45     dim cSourceFile as string
  46         cSourceFile = gTesttoolpath & "framework\optional\input\resetregistration.txt"
  47         cSourceFile = convertpath( cSourceFile )
  48
  49
  50     '///<h1>Work with Toolbar on Basic-IDE part 1</h1>
  51
  52     '///<ul>
  53
  54     '///+<li>Open a new writer-doc</li>
  55     printlog "open a new writer-doc"
  56     gApplication = "WRITER"
  57     hCreateDocument()
  58
  59     '///+<li>Create a new module for the new document (named TTModule)</li>
  60     brc = hOpenBasicOrganizerFromDoc()
  61     brc = hCreateModuleForDoc()
  62
  63     '///+<li>Click &quot;Compile&quot; on Toolbar</li>
  64
  65     kontext "macrobar"
  66     printlog "- compile"
  67     Compile.Click
  68     if ( WaitSlot <> WSFinished ) then
  69         warnlog( "Slot not finished within 1 second" )
  70     endif
  71
  72     '///+<li>Click &quot;Run Basic&quot; on Toolbar</li>
  73     printlog "- Run Basic"
  74     BasicRun.Click
  75     if ( WaitSlot <> WSFinished ) then
  76         warnlog( "Slot not finished within 1 second" )
  77     endif
  78
  79
  80     '///+<li>Click &quot;Step Procedure&quot; on Toolbar</li>
  81     printlog "- Step Procedure"
  82     ProcedureStep.Click
  83     if ( WaitSlot <> WSFinished ) then
  84         warnlog( "Slot not finished within 1 second" )
  85     endif
  86
  87
  88     '///+<li>Click &quot;Stop Basic&quot; on Toolbar</li>
  89     printlog "- Stop Basic"
  90     BasicStop.Click
  91     if ( WaitSlot <> WSFinished ) then
  92         warnlog( "Slot not finished within 1 second" )
  93     endif
  94
  95
  96     '///+<li>Click &quot;Single Step&quot; on Toolbar</li>
  97     printlog "- Single Step"
  98     SingleStep.Click
  99     if ( WaitSlot <> WSFinished ) then
 100         warnlog( "Slot not finished within 1 second" )
 101     endif
 102
 103
 104     '///+<li>Click &quot;Step Back&quot; on Toolbar</li>
 105     printlog "- Step Back"
 106     StepBack.Click()
 107     if ( WaitSlot <> WSFinished ) then
 108         warnlog( "Slot not finished within 1 second" )
 109     endif
 110
 111
 112     '///+<li>Click &quot;Breakpoint&quot; on Toolbar</li>
 113     printlog "- Breakpoint => activate"
 114     Breakpoint.Click
 115     if ( WaitSlot <> WSFinished ) then
 116         warnlog( "Slot not finished within 1 second" )
 117     endif
 118
 119
 120     '///+<li>Deactivate &quot;Breakpoint&quot; on Toolbar</li>
 121     printlog "- Breakpoint => deactivate"
 122     Breakpoint.Click
 123     if ( WaitSlot <> WSFinished ) then
 124         warnlog( "Slot not finished within 1 second" )
 125     endif
 126
 127
 128     '///+<li>Click &quot;Add Watch&quot; on Toolbar</li>
 129     printlog "- Add Watch => deactivate"
 130     AddWatch.Click
 131     if ( WaitSlot <> WSFinished ) then
 132         warnlog( "Slot not finished within 1 second" )
 133     endif
 134
 135
 136     '///+<li>Click &quot;Find Paranthese&quot; on Toolbar</li>
 137     printlog "- Find Paranthese"
 138
 139     kontext "macrobar"
 140     FindParanthese.Click()
 141     if ( WaitSlot <> WSFinished ) then
 142         warnlog( "Slot not finished within 1 second" )
 143     endif
 144
 145
 146     '///+<li>&quot;Controls&quot;</li>
 147     try
 148         Controls.TearOff()
 149         warnlog "Controls are active in a module window => bug!"
 150     catch
 151         printlog( "Controls are not active->OK" )
 152     endcatch
 153     if ( WaitSlot <> WSFinished ) then
 154         warnlog( "Slot not finished within 1 second" )
 155     endif
 156
 157     printlog( "- Insert Source Text (" & cSourceFile & ")" )
 158
 159     '///+<li>&quot;Insert Source Text&quot;<br>
 160     '///+Insert external file &quot;ResetRegistration.txt&quot;</li>
 161
 162     InsertSourceText.Click()
 163     kontext "oeffnendlg"
 164     if ( OeffnenDlg.exists( 1 ) ) then
 165         Dateiname.SetText( cSourceFile )
 166         Oeffnen.click()
 167     else
 168         warnlog( "File Open dialog did not open" )
 169     endif
 170
 171     ' possible 'could not read from file' error-message -> this is a bug
 172     kontext "Active"
 173     if ( Active.exists( 1 ) ) then
 174         warnlog( "Unexpected active: " & active.gettext() )
 175         active.ok()
 176     endif
 177
 178     kontext "macrobar"
 179     printlog "- Save Source Test "
 180
 181     '///+<li>Click &quot;Save Source Test&quot; on Toolbar, save the file</li>
 182     SaveSourceTest.Click
 183     if ( WaitSlot <> WSFinished ) then
 184         warnlog( "Slot not finished within 1 second" )
 185     endif
 186
 187
 188     kontext "speicherndlg"
 189     if ( SpeichernDlg.exists( 1 ) ) then
 190         Dateiname.SetText ConvertPath (gOfficepath + "user\work\global_test.bas")
 191         Speichern.click()
 192     else
 193         warnlog( "File Save dialog is missing" )
 194     endif
 195
 196     kontext "active"
 197     if ( Active.Exists( 1 ) ) then
 198         Active.Yes()
 199     endif
 200
 201     '///+<li>File/Close for Basic-IDE and Document</li></ul>
 202     hDestroyDocument()   ' for Basic-IDE
 203     hDestroyDocument()   ' the new writer-doc
 204
 205 endcase
 206
 207 '*******************************************************************************
 208
 209 testcase tBasic_IDE_Toolbar_Dialogs
 210
 211     qaerrorlog( "Replace this test asap, the approach is unusable" )
 212
 213     dim bIsOpen as boolean
 214     dim brc as boolean
 215
 216     dim sBasfile1 as string
 217         sBasFile1 = gTesttoolpath & "framework\optional\input\resetregistration.txt"
 218         sBasFile1 = convertpath( sBasFile1 )
 219
 220     dim sBasFile2 as string
 221         sBasFile2 = convertpath( gOfficepath & "user\work\global_test.bas" )
 222
 223     '///<h1>Work with Toolbar on Basic-IDE part 2</h1>
 224     '///<ul>
 225
 226     '///+<li>Open a new writer-doc</li>
 227     printlog "open a new writer-doc"
 228     gApplication = "WRITER"
 229     hCreateDocument()
 230
 231     '///+<li>Create a new module for the new document (named TTModule)</li>
 232     printlog "create a new module "
 233     brc = hOpenBasicOrganizerFromDoc()
 234     brc = hCreateModuleForDoc()
 235
 236     '///+<li>Create a new dialog in BasicIDE</li>
 237     kontext "basicide"
 238     Tabbar.OpenContextMenu
 239     hMenuSelectNr ( 1 )
 240     hMenuSelectNr ( 2 )
 241     if ( DialogWindow.Exists ( 2 ) ) then
 242         printlog( "Dialog Editor window is open. Good." )
 243     else
 244         warnlog "No dialog window is shown!"
 245     end if
 246
 247     '///+<li>Macro execution buttons should be disabled</li>
 248     '///<ul>
 249     '///+<li>Compile</li>
 250     try
 251         kontext "MacroBar"
 252         Compile.Click()
 253         warnlog( """Compile"" is enabled" )
 254     catch
 255         printlog( """Compile"" is disabled" )
 256     endcatch
 257
 258     '///+<li>Run Basic</li>
 259     try
 260         kontext "MacroBar"
 261         BasicRun.Click()
 262         warnlog( """Run Basic"" is enabled" )
 263     catch
 264         printlog( """Run Basic"" is disabled" )
 265     endcatch
 266
 267     '///+<li>Step Procedure</li>
 268     printlog "- Step Procedure (disabled)"
 269     try
 270         kontext "MacroBar"
 271         ProcedureStep.Click()
 272         warnlog( """Step Procedure"" is enabled" )
 273     catch
 274         printlog( """Step Procedure"" is disabled" )
 275     endcatch
 276
 277     '///+<li>Stop Basic</li>
 278     try
 279         kontext "MacroBar"
 280         BasicStop.Click()
 281         warnlog( """Stop Basic"" is enabled" )
 282     catch
 283         printlog( """Stop Basic"" is disabled" )
 284     endcatch
 285
 286     '///+<li>Single Step</li>
 287     try
 288         kontext "MacroBar"
 289         SingleStep.Click()
 290         warnlog( """Single Step"" is enabled" )
 291     catch
 292         printlog( """Single Step"" is enabled" )
 293     endcatch
 294
 295     '///+<li>Single Step Back</li>
 296     try
 297         kontext "MacroBar"
 298         StepBack.Click()
 299         warnlog( """Single Step Back"" is enabled" )
 300     catch
 301         printlog( """Single Step Back"" is enabled" )
 302     endcatch
 303
 304     '///+<li>Breakpoint</li>
 305     try
 306         kontext "MacroBar"
 307         Breakpoint.Click()
 308         warnlog( """Breakpoint"" is enabled" )
 309     catch
 310         printlog( """Breakpoint"" is disabled" )
 311     endcatch
 312
 313
 314     '///+<li>Add Watch</li>
 315     try
 316         kontext "MacroBar"
 317         AddWatch.Click()
 318         warnlog( """Add Watch"" is enabled" )
 319     catch
 320         printlog( """Add Watch"" is disabled" )
 321     endcatch
 322
 323
 324     '///+<li>Find Paranthese</li>
 325     try
 326         kontext "MacroBar"
 327         FindParanthese.Click()
 328         warnlog( """Find Paranthese"" is enabled" )
 329     catch
 330         printlog( """Find Paranthese"" is disabled" )
 331     endcatch
 332
 333
 334     '///+<li>Insert Source Text</li>
 335     try
 336         kontext "macrobar"
 337         InsertSourceText.Click()
 338         warnlog( """Insert Source Text"" is enabled" )
 339
 340         kontext "oeffnendlg"
 341         if ( OeffnenDlg.exists( 2 ) ) then
 342             Dateiname.SetText( sBasFile1 )
 343             Oeffnen.Click()
 344         else
 345             warnlog( "File Open dialog missing" )
 346         endif
 347     catch
 348         printlog( """Insert Source Text"" is disabled" )
 349     endcatch
 350
 351
 352     printlog "- Save Source Test  (disabled)"
 353
 354     '///+<li>Click &quot;Save Source Text&quot; (disabled)<br>
 355     '///+Save it as bas-file</li>
 356     try
 357         kontext "macrobar"
 358         SaveSourceTest.Click()
 359         warnlog( """Save Source Text"" is enabled" )
 360
 361         kontext "speicherndlg"
 362         if ( SpeichernDlg.exists( 2 ) ) then
 363             Dateiname.SetText( sBasFile2 )
 364             Speichern.Click()
 365         else
 366             warnlog( "File Save dialog is missing" )
 367         endif
 368
 369         kontext "active"
 370         if ( Active.Exists( 1 ) ) then
 371             Active.Yes()
 372         endif
 373     catch
 374         printlog( """Save Source Text"" is disabled" )
 375     endcatch
 376
 377     '///</ul>
 378
 379     '///+<li>Tear off controls</li>
 380     bIsOpen = hShowMacroControls()
 381     if ( bIsOpen ) then
 382         ToolsCollectionBar.Close()
 383     end if
 384
 385     '///+<li>File/Close on Basic-IDE and Document</li></ul>
 386     Call hDestroyDocument()   ' for Basic-IDE
 387     Call hDestroyDocument()   ' the new writer-doc
 388     '///</ul>
 389
 390 endcase
 391
 392