testautomation/framework/optional/includes/basic_macros.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_macros.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 : check macro-dialogs / BASIC-IDE ( 1. part )
  37 ' **
  38 '\******************************************************************************
  39
  40
  41 testcase tMakro_In_All_Apps
  42
  43     '///<h1>Create a module for all applications, open and close Basic-IDE</h1>
  44
  45     dim brc as boolean
  46     dim cApp as string
  47     dim iApp as Integer
  48     dim bBug as Boolean
  49     dim cMsg as string
  50     bBug = FALSE
  51
  52     const CMACRO = "AppMakro"
  53
  54     '///<ul>
  55
  56     for iApp = 1 to 7
  57
  58         cApp = hNumericDoctype( iApp )
  59         printlog( cApp )
  60
  61         '///+<li>Open a new document</li>
  62         printlog( "Open a new document" )
  63         brc = hCreateDocument()
  64
  65         '///+<li>Open the BASIC Macro Organizer</li>
  66         '///+<li>Create a new library for the current document</li>
  67         '///+<li>Create a new module for the current document<br>
  68         '///+ -&gt; The Basic IDE opens</li>
  69         brc = hInitBasicIde( CMACRO )
  70         if ( not brc ) then
  71             warnlog( "Could not open the BASIC Macro Organizer, aborting" )
  72             call hDestroyDocument()
  73             goto endsub
  74         endif
  75
  76         '///+<li>Close the BASIC-IDE</li>
  77         printlog "Close the BASIC-IDE"
  78         brc = hCloseBasicIde()
  79
  80         '///+<li>Close the navigator (Master-Doc)</li>
  81         printlog( "Close the navigator (Master-doc)" )
  82         brc = hCloseNavigator()
  83
  84         '///+<li>Close the document</li>
  85         printlog( "Close the document" )
  86         FileClose
  87
  88         '///+<li>Close the messagebox (document changed)</li>
  89         printlog( "Close the messagebox (document changed)" )
  90         kontext "messagebox"
  91         if ( MessageBox.Exists( 1 ) ) then
  92             cMsg = MessageBox.getText()
  93             cMsg = hRemoveLineBreaks( cMsg )
  94             printlog( "MessageBox: " & cMsg )
  95             MessageBox.No()
  96         else
  97             warnlog( "No warning for changed document" )
  98         end if
  99
 100     next iApp
 101     '///</ul>
 102
 103 endcase
 104
 105 '*******************************************************************************
 106
 107 testcase tMakro_Dialog
 108
 109     if ( gBuild < 9305 ) then
 110         warnlog( "#i87457# - Application macros assigned to userlayer" )
 111         goto endsub
 112     endif
 113
 114     '///<h1>Dialogs: Macro Object Organizer, Tools/Customize</h1>
 115     '///<ul>
 116
 117     dim brc as boolean
 118     dim cMsg as string
 119
 120     dim iPos as integer
 121     dim iLibraryItemCount as integer
 122
 123     dim iCurrentLibrary as Integer
 124     dim XLBFILE as String
 125         XLBFILE = gTesttoolPath & "framework\optional\input\AppLibrary1\script.xlb"
 126     const CFN = "tMakro_Dialog::"
 127     const CMACRO = "MacroDlg"
 128
 129
 130     gApplication = "WRITER"
 131     '///+<li>Open a new document</li>
 132     printlog( "Open a new document" )
 133     brc = hCreateDocument()
 134
 135     '///+<li>Open the basic organizer</li>
 136     '///+<li>Create a new library for the current document</li>
 137     '///+<li>Create a new module for the current document<br>
 138     '///+ -&gt; The Basic-Ide opens</li>
 139     printlog( "Create a new library, a new module, open Basic-Ide" )
 140     brc = hInitBasicIde( CMACRO )
 141     if ( not brc ) then
 142         warnlog( CFN & "Could not open BASIC-IDE, aborting" )
 143         goto endsub
 144     endif
 145
 146     '///+<li>Close the Basic IDE</li>
 147     printlog( "Close the Basic-Ide" )
 148     kontext "BasicIDE"
 149     hCloseBasicIde()
 150
 151     '///+<li>Open the Basic Organizer</li>
 152     printlog( "Open the Basic Macro Organizer" )
 153     brc = hOpenBasicOrganizerFromDoc()
 154
 155     '///+<li>Select the module we created before</li>
 156     printlog( "Select the last Module for the current document" )
 157     iPos = hSelectTheLastNode( MakroAus )
 158
 159     '///+<li>Open the Macro Obkect Organizer (Click Organize...)</li>
 160     printlog( "Click Organize..." )
 161     Verwalten.Click()
 162
 163     '///+<li>Select the Modules-tab</li>
 164     printlog( "Select Modules-tab" )
 165     brc = hSelectBasicObjectOrganizerTab( 1 )
 166
 167
 168     '///+<li>Create a new module</li>
 169     printlog( "Press 'new module'" )
 170     kontext "tabmodule"
 171     NeuesModul.Click()
 172
 173     kontext "neuesmodul"
 174     '///+<li>Cancel the 'New Module' dialog</li>
 175     printlog( "Cancel the dialog" )
 176     NeuesModul.Cancel()
 177
 178     '///+<li>Create a 'New Dialog'</li>
 179     brc = hSelectBasicObjectOrganizerTab( 2 )
 180
 181     kontext "tabdialogs"
 182     printlog( "Press 'new dialog'" )
 183     NewDialog.Click()
 184
 185     '///+<li>Cancel the dialog</li>
 186     printlog( "Cancel the dialog" )
 187     kontext "neuerdialog"
 188     NeuerDialog.Cancel()
 189
 190     kontext
 191     '///+<li>Activate TabLibrary on it 'New' / 'Password' / 'Delete' / 'Append' / 'Edit'</li>
 192     printlog( "Select the libraries Tab" )
 193     brc = hSelectBasicObjectOrganizerTab( 3 )
 194
 195
 196     '///+<li>Press 'New' on the libraries tab</li>
 197     printlog( "Press 'New' on the libraries tab" )
 198     kontext "tabbibliotheken"
 199     Neu.Click()
 200
 201     kontext "neuebibliothek"
 202     '///+<li>Close the dialog with 'OK'</li>
 203     printlog( "Close the dialog with 'OK'" )
 204     Call DialogTest( NeueBibliothek )
 205     NeueBibliothek.OK()
 206
 207     '///+<li>Delete the new default library</li>
 208     printlog( "Delete 'Library1'" )
 209     kontext "tabbibliotheken"
 210     Loeschen.Click()
 211
 212     '///+<li>Close the deletion warning</li>
 213     printlog( "Close the warning" )
 214     kontext "active"
 215     if ( Active.Exists() ) then
 216         cMsg = active.getText()
 217         cMsg = hRemoveLineBreaks( cMsg )
 218         printlog( "MessageBox: " & cMsg )
 219         Active.Yes()
 220     else
 221         warnlog( "Deletion warning is missing" )
 222     endif
 223
 224     '///+<li>Check the number of entries in the Libraries-List, one expected</li>
 225     printlog( "Check the number of libraries in list" )
 226     kontext "tabbibliotheken"
 227     iLibraryItemCount = Bibliotheksliste.getItemCount()
 228     if ( iLibraryItemCount <> 1 ) then
 229         if ( iLibraryItemCount = 11 ) then
 230             warnlog( "#i87457# Macros moved from 'OpenOffice.org Macros' to 'My Macros'" )
 231         else
 232             warnlog( "Incorrect item count. Should be 1, is: " & iLibraryItemCount )
 233         endif
 234     endif
 235
 236     '///+<li>Append a library by pressing 'Append'</li>
 237     printlog( "Append a xlb-file" )
 238     kontext "tabbibliotheken"
 239     Hinzufuegen.Click()
 240
 241     '///+<li>Select a valid library and open it</li>
 242     printlog( "Select 'AppLibrary1/script.xlb' from the files list"
 243     kontext "oeffnendlg"
 244     Dateiname.SetText( ConvertPath ( XLBFILE ) )
 245     Oeffnen.Click()
 246
 247     ' If the .xlb file cannot be found the test cannot continue. Warn and cleanup.
 248     kontext "Active"
 249     if ( Active.exists( 1 ) ) then
 250
 251         try
 252             Active.getButtonCount()
 253
 254             warnlog( "Script does not exist warning displayed. Aborting test" )
 255             printlog( Active.getText() )
 256             active.ok()
 257
 258             kontext "OeffnenDlg"
 259             if ( OeffnenDlg.exists( 1 ) ) then
 260                 printlog( "Closing File Open dialog" )
 261                 OeffnenDlg.cancel()
 262             endif
 263
 264             kontext "tabbibliotheken"
 265             if ( TabBibliotheken.exists( 1 ) ) then
 266                 printlog( "Closing Libaries tab" )
 267                 TabBibliotheken.close()
 268             endif
 269
 270             kontext "Makro"
 271             if ( Makro.exists( 1 ) ) then
 272                 printlog( "Closing Macro organizer" )
 273                 Makro.close()
 274             endif
 275
 276             printlog( "Exiting test" )
 277             goto endsub
 278         catch
 279             printlog( "Script found and loaded. Good." )
 280         endcatch
 281
 282     endif
 283
 284     '///+<li>Make sure 'Insert as Reference' is unchecked</li>
 285     printlog( "Ensure 'Insert as Reference' is unchecked" )
 286     kontext "appendlibraries"
 287     InsertAsReference.UnCheck()
 288
 289     '///+<li>Check 'Replace Existing Library'</li>
 290     printlog( "Check 'Replace existing library'" )
 291     ReplaceExistingLibraries.Check()
 292
 293     '///+<li>Press 'OK' to append the library</li>
 294     printlog( "Press 'OK' to append the library" )
 295     kontext "appendlibraries"
 296     try
 297         AppendLibraries.OK()
 298     catch
 299         warnlog( "#i85254# Appending libraries leads to crash" )
 300     endcatch
 301
 302     '///+<li>Check the number of entries in the Libraries-List, two expected</li>
 303     printlog( "Check the number of libraries in list (should be two)" )
 304     kontext "tabbibliotheken"
 305     iLibraryItemCount = Bibliotheksliste.getItemCount()
 306     if ( iLibraryItemCount <> 2 ) then
 307         qaerrorlog( "#i87457# Two entries in list expected, found " & iLibraryItemCount )
 308     endif
 309
 310     '///+<li>Select 'AppLibrary1' and click 'Password'</li>
 311     printlog( "Select the first item" )
 312     Bibliotheksliste.TypeKeys( "<HOME>" )
 313     for iCurrentLibrary = 1 to iLibraryItemCount
 314         if ( Bibliotheksliste.getSelText() = "AppLibrary1" ) then
 315             printlog( "Found AppLibrary1" )
 316             exit for
 317         endif
 318         printlog( "This was not AppLibrary1, trying again" )
 319         Bibliotheksliste.Typekeys( "<DOWN>" )
 320     next iCurrentLibrary
 321
 322     '///+<li>Click to set a password for AppLibrary1, cancel dialog</li>
 323     printlog( "Set a password for AppLibrary1" )
 324     kontext "tabbibliotheken"
 325     if ( Passwort.IsEnabled() ) then
 326         Passwort.Click()
 327         kontext "passwddlg"
 328         PasswdDLG.Cancel()
 329     else
 330         warnlog( "Password is disabled for 'AppLibrary1'" )
 331     endif
 332
 333     '///+<li>Delete the inserted library (AppLibrary1)</li>
 334     printlog( "Delete 'AppLibrary1'" )
 335     kontext "tabbibliotheken"
 336     Loeschen.Click()
 337
 338     '///+<li>Close the warning with YES</li>
 339     printlog( "Close the warning with YES" )
 340     kontext "active"
 341     if ( Active.Exists() ) then
 342         cMsg = active.getText()
 343         cMsg = hRemoveLineBreaks( cMsg )
 344         printlog( "MessageBox: " & cMsg )
 345         Active.Yes()
 346     else
 347         warnlog( "Expected confirmation dialog for delete" )
 348     endif
 349
 350     '///+<li>Click on the Edit-button -&gt; The Basic-Ide opens</li>
 351     kontext "tabbibliotheken"
 352     printlog( "Press 'edit' on 'Libraries'-tab" )
 353     Bearbeiten.Click()
 354
 355     '///+<li>Close the Basic-Ide</li>
 356     kontext "BasicIDE"
 357     if ( BasicIDE.Exists( 5 ) ) then
 358
 359         hInsertMacro( 3 )
 360
 361         printlog( "Close the basic-document" )
 362         brc = hCloseBasicIde()
 363
 364         kontext "active"
 365         if ( Active.Exists ( 2 ) ) then
 366             cMsg = active.getText()
 367             cMsg = hRemoveLineBreaks( cMsg )
 368             warnlog( "Unexpected MessageBox: " & cMsg )
 369             Active.NO()
 370         endif
 371
 372     else
 373         warnlog("#i38978# The Macro-Document is not open, aborting test")
 374         call hDestroyDocument()
 375         goto endsub
 376     endif
 377
 378     '///+<li>Open the BASIC Macro Organizer from the current document</li>
 379     printlog( "Open the BASIC Macro Organizer" )
 380     brc = hOpenBasicOrganizerFromDoc()
 381
 382     '///+<li>Go to the last macro in the list</li>
 383     printlog( "Select the last macro from the list" )
 384     kontext "makro"
 385     iPos = hSelectTheLastNode( MakroAus )
 386
 387     try
 388         '///+<li>Assign the macro by pressing 'Assign' -&gt; Tools/customize opens</li>
 389         printlog( "Assign the macro, Tools/customize dialog should open" )
 390         Zuordnen.Click ()
 391     catch
 392         warnlog( "#i106853# Assign-Button is disabled or macro is missing" )
 393     endcatch
 394
 395     '///+<li>Activate all tapages and cancel the Tools/Customize dialog</li>
 396     printlog( "Activate all tapages and cancel the Tools/Customize dialog" )
 397
 398     brc = hToolsCustomizeSelectTab( "menu" )
 399     brc = hToolsCustomizeSelectTab( "keyboard"
 400     if ( not brc ) then
 401         qaerrorlog( "#i61765# Keyboard tab missing when called via Tools/Macros->Assign" )
 402     endif
 403     brc = hToolsCustomizeSelectTab( "events" )
 404     brc = hToolsCustomizeSelectTab( "toolbars" )
 405
 406     '///+<li>Cancel Tools/Customize dialog -&gt; Back to Macro Organizer</li>
 407     printlog( "Cancel Tools/Customize dialog -> Macro Organizer should be open" )
 408     brc = hToolsCustomizeClose( 2 )
 409
 410
 411     '///+<li>Click to run the macro</li>
 412     printlog "Click to run macro"
 413     kontext "makro"
 414     try
 415         Ausfuehren.Click()
 416     catch
 417         warnlog( "Unable to run macro" )
 418         kontext "Makro"
 419         Makro.close()
 420     endcatch
 421
 422     '///+<li>The macro thriggers a messagebox, close it</li>
 423     kontext "active"
 424     if ( active.exists() ) then
 425         cMsg = active.getText()
 426         cMsg = hRemoveLineBreaks( cMsg )
 427         if ( cMsg = "TTMacro3" ) then
 428             printlog( "The correct macro has been executed" )
 429         else
 430             warnlog( "Unknown Messagebox: " & cMsg )
 431         endif
 432         Active.OK()
 433     endif
 434
 435     '///+<li>Open Macro organizer from the current document</li>
 436     printlog( "Open macro organizer from the current document" )
 437     brc = hOpenBasicOrganizerFromDoc()
 438
 439     '///+<li>Select the last item in the treelist</li>
 440     printlog( "Select the last item in the treelist" )
 441     brc = hSelectTheLastNode( MakroAus )
 442
 443     '///+<li>Delete the module we created earlier</li>
 444     printlog( "Delete the new module" )
 445     Loeschen.Click()
 446
 447     '///+<li>Close the deletion warning</li>
 448     printlog( "Close the deletion warning" )
 449     kontext "active"
 450     if ( active.exists() ) then
 451         cMsg = active.getText()
 452         cMsg = hRemoveLineBreaks( cMsg )
 453         printlog( "MessageBox: " & cMsg )
 454         Active.Yes()
 455     else
 456         warnlog( "No confirmation dialog for delete" )
 457     endif
 458
 459     '///+<li>Close the macro organizer</li>
 460     printlog( "Close the macro organizer" )
 461     kontext "makro"
 462     Makro.Close()
 463
 464     '///+<li>Close the document</li>
 465     printlog( "Close the document" )
 466     Call hDestroyDocument()
 467
 468     '///</ul>
 469
 470 endcase
 471
 472
 473