testautomation/spreadsheet/required/includes/c_upd_toolsmenu2.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: c_upd_toolsmenu2.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 08:06:07 $
  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 : oliver.craemer@sun.com
  35 '*
  36 '* short description : Resource Test - Tools Menu Part II
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tToolsMacro
  41 ' #1 tToolsExtensionManager
  42 ' #1 tToolsXMLFilterSettings
  43 ' #1 tToolsCustomize
  44 ' #1 tToolsOptions
  45 ' #1 tToolsSolver
  46 '*
  47 '\***********************************************************************
  48
  49 sub c_upd_toolsmenu2
  50
  51     Printlog Chr(13) + "--------- Tools Menu Part II (c_upd_toolsmenu2.inc) ---------"
  52
  53
  54     call tToolsMacro
  55     call tToolsExtensionManager
  56     call tToolsXMLFilterSettings
  57     call tToolsCustomize
  58     call tToolsOptions
  59     call tToolsSolver
  60
  61 end sub
  62
  63 '-----------------------------------------------------------
  64
  65 testcase tToolsMacro
  66 '///<u><b>Tools - Macro</b></u>
  67
  68     '/// Open new Spreadsheet document
  69     printlog " Open new Spreadsheet document"
  70     Call hNewDocument
  71     '/// Record macro by 'Tools – Macro – Record'
  72     printlog " Record macro by 'Tools – Macro – Record'"
  73 '    ToolsMacroRecordMacro
  74 '    Kontext "
  75     '/// Close macro recording by clicking 'Stop Recording'
  76     printlog " Close macro recording by clicking 'Stop Recording'"
  77 '
  78     '/// Open 'Macro Selector' dialog by 'Tools – Macro – Run'
  79     printlog " Open 'Macro Selector' dialog by 'Tools – Macro – Run'"
  80     ToolsMacrosRunMacro
  81     Kontext "ScriptSelector"
  82     Call DialogTest ( ScriptSelector )
  83     '/// Close 'Macro Selector' dialog with 'Cancel
  84     printlog " Close 'Macro Selector' dialog with 'Cancel"
  85     ScriptSelector.Cancel
  86     '/// Open Macro dialog by 'Tools – Macro – Organize Macros – StarOffice Basic'
  87     printlog " Open Macro dialog by 'Tools – Macro – Organize Macros – StarOffice Basic'"
  88     ToolsMacro
  89     Kontext "Makro"
  90     Call DialogTest ( Makro )
  91     '/// Click on 'Assign' button
  92     printlog " Click on 'Assign' button"
  93     Zuordnen.Click
  94     Kontext
  95     Active.SetPage TabCustomizeMenu
  96     Kontext "TabCustomizeMenu"
  97     '/// Close 'Customize' dialog with 'Cancel'
  98     printlog " Close 'Customize' dialog with 'Cancel'"
  99     TabCustomizeMenu.Cancel
 100     Kontext "Makro"
 101     '/// Click on 'Edit' button
 102     printlog " Click on 'Edit' button"
 103     Bearbeiten.Click
 104     '/// Close basic window by window closer
 105     printlog " Close basic window by window closer"
 106     Kontext "BasicIDE"
 107     Call hCloseDocument
 108     '/// Reopen Macro dialog by 'Tools – Macro – Organize Macros – StarOffice Basic'
 109     printlog " Reopen Macro dialog by 'Tools – Macro – Organize Macros – StarOffice Basic'"
 110     ToolsMacro
 111     Kontext "Makro"
 112     '/// Click on 'Delete' button
 113     printlog " Click on 'Delete' button"
 114     Loeschen.Click
 115     '/// Close messagebox by 'No'
 116     printlog " Close messagebox by 'No'"
 117     Kontext
 118     if Active.exists then
 119         Active.no
 120     end if
 121     Kontext "Makro"
 122     '/// Click on Organizer' button
 123     printlog " Click on Organizer' button"
 124     Verwalten.Click
 125     Kontext
 126     Active.SetPage TabModule
 127     Kontext "TabModule"
 128     '/// Close 'Organizer with 'Close'
 129     printlog " Close 'Organizer with 'Close'"
 130     TabModule.Close
 131     Kontext "Makro"
 132     '/// Close macro dialog
 133     printlog " Close macro dialog"
 134     Makro.Close
 135     '/// Open 'JavaScript Macros' dialog by 'Tools – Macro – Organize Macros – JavaScript'
 136     printlog " Open 'JavaScript Macros' dialog by 'Tools – Macro – Organize Macros – JavaScript'"
 137     ToolsMacrosOrganizeMacrosJavaScript
 138     Kontext "ScriptOrganizer"
 139     '/// Close 'JavaScript Macros' dialog by 'Close'
 140     printlog " Close 'JavaScript Macros' dialog by 'Close'"
 141     ScriptOrganizer.Close
 142     '/// Open 'BeanShell Macros' dialog by 'Tools – Macro – Organize Macros –  BeanShell'
 143     printlog " Open 'BeanShell Macros' dialog by 'Tools – Macro – Organize Macros –  BeanShell'"
 144     ToolsMacrosOrganizeMacrosBeanShell
 145     Kontext "ScriptOrganizer"
 146     '/// Close ' BeanShell Macros' dialog by 'Close'
 147     printlog " Close ' BeanShell Macros' dialog by 'Close'"
 148     ScriptOrganizer.Close
 149     '/// Use 'Tools – Macro – Signature'
 150     printlog " Use 'Tools – Macro – Signature'"
 151     ToolsMacrosSignature
 152     '/// Accept  saving messagebox with 'Yes'
 153     printlog " Accept  saving messagebox with 'Yes'"
 154     Kontext
 155     if Active.exists then
 156         Active.yes
 157     end if
 158     Kontext "SpeichernDlg"
 159     '/// Enter 'File name' 'MacroSignature_created_by_Testtool'
 160     printlog " Enter 'File name' 'MacroSignature_created_by_Testtool'"
 161     DateiName.SetText "MacroSignature_created_by_Testtool"
 162     '/// Click 'Save' button
 163     printlog " Click 'Save' button"
 164     Speichern.Click
 165     '/// If the file allready exists because of an earlier testrun, close messagebox by YES
 166     printlog " If the file allready exists because of an earlier testrun, close messagebox by YES"
 167     Kontext
 168     if Active.exists then
 169         Active.yes
 170     end if
 171     Kontext "DigitalSignature"
 172     Call DialogTest ( DigitalSignature )
 173     '/// On 'Digital Signatures' dialog press 'Add' button
 174     printlog " On 'Digital Signatures' dialog press 'Add' button"
 175     Add.Click
 176     Kontext "SelectCertificate"
 177     Call DialogTest ( SelectCertificate )
 178     '/// Close Select Certificate' dialog with 'Cancel'
 179     printlog " Close Select Certificate' dialog with 'Cancel'"
 180     SelectCertificate.Cancel
 181     Kontext "DigitalSignature"
 182     '/// Close 'Digital Signatures' dialog with 'Cancel'
 183     printlog " Close 'Digital Signatures' dialog with 'Cancel'"
 184     DigitalSignature.Cancel
 185     '/// Open 'Macro Organizer' by 'Tools – Macro – Organize Dialogs'
 186     printlog " Open 'Macro Organizer' by 'Tools – Macro – Organize Dialogs'"
 187     ToolsMacrosOrganizeDialogs
 188     '/// Switch to tabpage 'Modules'
 189     printlog " Switch to tabpage 'Modules'"
 190     Kontext
 191     Active.SetPage TabModule
 192     Kontext "TabModule"
 193     Call DialogTest ( TabModule )
 194     '/// Switch to tabpage 'Dialogs'
 195     printlog " Switch to tabpage 'Dialogs'"
 196     Kontext
 197     Active.SetPage TabDialogs
 198     Kontext "TabDialogs"
 199     Call DialogTest ( TabDialogs )
 200     '/// Switch to tabpage 'Libraries'
 201     printlog " Switch to tabpage 'Libraries'"
 202     Kontext
 203     Active.SetPage TabBibliotheken
 204     Kontext "TabBibliotheken"
 205     Call DialogTest ( TabBibliotheken )
 206     '/// Close dialog with 'Close'
 207     printlog " Close dialog with 'Close'"
 208     TabBibliotheken.Close
 209     '/// Close document
 210     printlog " Close document"
 211     Call hCloseDocument
 212
 213 endcase
 214
 215 '-----------------------------------------------------------
 216
 217 testcase tToolsExtensionManager
 218 '///<u><b>Tools - Extension Manager</b></u>
 219
 220     '/// Open new Spreadsheet document
 221     printlog " Open new Spreadsheet document"
 222     Call hNewDocument
 223     '/// Open 'Extension Manager' by 'Tools – Extension Manager'
 224     printlog " Open 'Extension Manager' by 'Tools – Extension Manager'"
 225     ToolsPackagemanager
 226     Kontext "PackageManager"
 227     Call DialogTest ( PackageManager )
 228     '/// Close 'Extension Manager' with 'Close'
 229     printlog " Close 'Extension Manager' with 'Close'"
 230     PackageManager.Close
 231     '/// Close document
 232     printlog " Close document"
 233     Call hCloseDocument
 234
 235 endcase
 236
 237 '-----------------------------------------------------------
 238
 239 testcase tToolsXMLFilterSettings
 240 '///<u><b>Tools - XML Filter Settings</b></u>
 241
 242     '/// Open new Spreadsheet document
 243     printlog " Open new Spreadsheet document"
 244     Call hNewDocument
 245     '/// Open 'XML Filter Settings' dialog by 'Tools – XML Filter Settings'
 246     printlog " Open 'XML Filter Settings' dialog by 'Tools – XML Filter Settings'"
 247     ToolsXMLFilterSettings
 248     Kontext "XMLFilterSettings"
 249     Call DialogTest ( XMLFilterSettings )
 250     '/// Close dialog with 'Close'
 251     printlog " Close dialog with 'Close'"
 252     CloseBtn.Click
 253     '/// Close document
 254     printlog " Close document"
 255     Call hCloseDocument
 256
 257 endcase
 258
 259 '-----------------------------------------------------------
 260
 261 testcase tToolsCustomize
 262 '///<u><b>Tools - Customize</b></u>
 263
 264     '/// Open new Spreadsheet document
 265     printlog " Open new Spreadsheet document"
 266     Call hNewDocument
 267     '/// Open 'Customize' dialog by 'Tools – Customize'
 268     printlog " Open 'Customize' dialog by 'Tools – Customize'"
 269     ToolsCustomize
 270     '/// Switch to tabpage 'Menus'
 271     printlog " Switch to tabpage 'Menus'"
 272     Kontext
 273     Active.SetPage TabCustomizeMenu
 274     Kontext "TabCustomizeMenu"
 275     Call DialogTest ( TabCustomizeMenu )
 276     '/// Switch to tabpage 'Keyboard'
 277     printlog " Switch to tabpage 'Keyboard'"
 278     Kontext
 279     Active.SetPage TabTastatur
 280     Kontext "TabTastatur"
 281     Call DialogTest ( TabTastatur )
 282     '/// Switch to tabpage 'Toolbars'
 283     printlog " Switch to tabpage 'Toolbars'"
 284     Kontext
 285     Active.SetPage TabCustomizeToolbars
 286     Kontext "TabCustomizeToolbars"
 287     Call DialogTest ( TabCustomizeToolbars )
 288     '/// Switch to tabpage 'Events'
 289     printlog " Switch to tabpage 'Events'"
 290     Kontext
 291     Active.SetPage TabCustomizeEvents
 292     Kontext "TabCustomizeEvents"
 293     Call DialogTest ( TabCustomizeEvents )
 294     '/// Close 'Customize' dialog with 'Cancel'
 295     printlog " Close 'Customize' dialog with 'Cancel'"
 296     TabCustomizeEvents.Cancel
 297     '/// Close document
 298     printlog " Close document"
 299     Call hCloseDocument
 300
 301 endcase
 302
 303 '-----------------------------------------------------------
 304
 305 testcase tToolsOptions
 306 '///<u><b>Tools - Options</b></u>
 307
 308     '/// Open new Spreadsheet document
 309     printlog " Open new Spreadsheet document"
 310     Call hNewDocument
 311     '/// Open 'Options' dialog by 'Tools – Options'
 312     printlog " Open 'Options' dialog by 'Tools – Options'"
 313     ToolsOptions
 314     '/// Choose 'Calc – General'
 315     printlog " Choose 'Calc – General'"
 316     hToolsOptions("CALC", "GENERAL")
 317     Call DialogTest ( TabLayoutCalc )
 318     '/// Verify that the 'Measurement' combobox has items
 319     printlog " Verify that the 'Measurement' combobox has items"
 320     if Masseinheit.GetItemCount < 1 then
 321         warnlog "The listbox is empty"
 322     end if
 323     '/// Increase 'Tab stops'
 324     printlog " Increase 'Tab stops'"
 325     Tabulator.More
 326     '/// Verify that the 'Move selection' combobox has four items
 327     printlog " Verify that the 'Move selection' combobox has four items"
 328     If SelektionNach.GetItemCount <> 4 then
 329         warnlog "There are not 4 moves possible"
 330     end if
 331     '/// Choose 'Calc – View'
 332     printlog " Choose 'Calc – View'"
 333     hToolsOptions("CALC", "VIEW")
 334     Call DialogTest ( TabInhaltCalc )
 335     '/// Verify that the 'Color' combobox has items
 336     printlog " Verify that the 'Color' combobox has items"
 337     if Farbe.GetItemCount < 1 then
 338         warnlog "The listbox is empty"
 339     end if
 340     '/// Verify that the 'Objects' combobox has items
 341     printlog " Verify that the 'Objects' combobox has items"
 342     if ObjekteGrafiken.GetItemCount < 1 then
 343         warnlog "The listbox is empty"
 344     end if
 345     '/// Verify that the 'Charts' combobox has items
 346     printlog " Verify that the 'Charts' combobox has items"
 347     if Diagramme.GetItemCount < 1 then
 348         warnlog "The listbox is empty"
 349     end if
 350     '/// Verify that the 'Drawing objects' combobox has items
 351     printlog " Verify that the 'Drawing objects' combobox has items"
 352     if Zeichenobjekte.GetItemCount < 1 then
 353         warnlog "The listbox is empty"
 354     end if
 355     '/// Choose 'Calc – Calculate'
 356     printlog " Choose 'Calc – Calculate'"
 357     hToolsOptions("CALC", "CALCULATE")
 358     Call DialogTest ( TabBerechnen )
 359     '/// Choose 'Calc – Sortlists'
 360     printlog " Choose 'Calc – Sortlists'"
 361     hToolsOptions("CALC", "SORTLISTS")
 362     Call DialogTest ( TabSortierlisten )
 363     '/// Verify that there are sortlists available
 364     printlog " Verify that there are sortlists available"
 365     if Listen.GetItemCount < 1 then
 366         warnlog "The listbox is empty"
 367     end if
 368     '/// Choose 'Calc – Changes'
 369     printlog " Choose 'Calc – Changes'"
 370     hToolsOptions("CALC", "CHANGES")
 371     Call DialogTest ( TabAenderungenCalc )
 372     '/// Verify that the 'Changes' combobox has items
 373     printlog " Verify that the 'Changes' combobox has items"
 374     if Aenderungen.GetItemCount < 1 then
 375         warnlog "The listbox is empty"
 376     end if
 377     '/// Choose 'Calc – Grid'
 378     printlog " Choose 'Calc – Grid'"
 379     hToolsOptions("CALC", "GRID")
 380     Call DialogTest ( TabRaster )
 381     '/// Decrease 'Horizontal Resolution'
 382     printlog " Decrease 'Horizontal Resolution'"
 383     RasterAufloesungXAchse.Less
 384     '/// Increase 'Horizontal Subdivision'
 385     printlog " Increase 'Horizontal Subdivision'"
 386     RasterUnterteilungXAchse.More
 387     '/// Choose 'Calc – Print'
 388     printlog " Choose 'Calc – Print'"
 389     hToolsOptions("CALC", "PRINT")
 390     Call DialogTest ( TabPrintCalcOptions )
 391     '/// Close 'Options' dialog with 'Cancel'
 392     printlog " Close 'Options' dialog with 'Cancel'"
 393     Kontext "OptionenDlg"
 394     OptionenDlg.Cancel
 395     '/// Close document
 396     printlog " Close document"
 397     Call hCloseDocument
 398
 399 endcase
 400
 401 '-----------------------------------------------------------
 402
 403 testcase tToolsSolver
 404 '///<u><b>Tools - Solver</b></u>
 405
 406     Dim i as integer
 407
 408     '/// Open new Spreadsheet document
 409     printlog " Open new Spreadsheet document"
 410     Call hNewDocument
 411     '/// Open 'Solver' dialog by 'Tools - Solver'
 412     printlog " Open 'Solver' dialog by 'Tools - Solver'"
 413     try
 414         ToolsSolver
 415     catch
 416         qaerrorlog "Solver not available. This is true for versions older than SRC680_m246"
 417         call hCloseDocument
 418         goto endsub
 419     endcatch
 420     Kontext "Solver"
 421     DialogTest ( Solver )
 422     '/// Enter A1 for 'TargetCell'
 423     printlog " Enter A1 for 'TargetCell'"
 424     TargetCell.SetText "A1"
 425     '/// Press 'Shrink' button for 'Target cell'
 426     printlog " Press 'Shrink' button for 'Target cell'"
 427     Shrink.Click
 428     '/// On minimized dialog press 'Shrink' button again
 429     printlog " On minimized dialog press 'Shrink' button again"
 430     Shrink.Click
 431     '/// Select 'Maximum'
 432     printlog " Select 'Maximum'"
 433     OptimizeMaximum.Check
 434     '/// Select 'Minimum'
 435     printlog " Select 'Minimum'"
 436     OptimizeMinimum.Check
 437     '/// Select 'Value of'
 438     printlog " Select 'Value of'"
 439     OptimizeValueOf.Check
 440     '/// Minimize dialog by pressing 'Shrink' button for 'Value of'
 441     printlog " Minimize dialog by pressing 'Shrink' button for 'Value of'"
 442     OptimizeValueEditShrink.Click
 443     '/// On minimized dialog press 'Shrink' button again
 444     printlog " On minimized dialog press 'Shrink' button again"
 445     OptimizeValueEditShrink.Click
 446     '/// Minimize dialog by pressing 'Shrink' button for 'By changing cells'
 447     printlog " Minimize dialog by pressing 'Shrink' button for 'By changing cells'"
 448     ChangingCellsShrink.Click
 449     '/// On minimized dialog press 'Shrink' button again
 450     printlog " On minimized dialog press 'Shrink' button again"
 451     ChangingCellsShrink.Click
 452     '/// Enter 'A2' in edit box for 'Cell reference 1'
 453     printlog " Enter 'A2' in edit box for 'Cell reference 1'"
 454     CellReference1.SetText "A2"
 455     '/// Minimize dialog by pressing 'Shrink' button for 'Cell reference 1'
 456     printlog " Minimize dialog by pressing 'Shrink' button for 'Cell reference 1'"
 457     CellReferenceShrink1.Click
 458     '/// On minimized dialog press 'Shrink' button again
 459     printlog " On minimized dialog press 'Shrink' button again"
 460     CellReferenceShrink1.Click
 461     '/// Verify that there are 'Operators' available
 462     printlog " Verify that there are 'Operators' available"
 463     If Operator1.GetItemCount < 1 then
 464         warnlog "There are no operators available"
 465     end if
 466     '/// Minimize dialog by pressing 'Shrink' button for 'Value 1'
 467     printlog " Minimize dialog by pressing 'Shrink' button for 'Value 1'"
 468     ValueShrink1.Click
 469     '/// On minimized dialog press 'Shrink' button again
 470     printlog " On minimized dialog press 'Shrink' button again"
 471     ValueShrink1.Click
 472     '/// Press 'Remove' button
 473     printlog " Press 'Remove' button"
 474     Remove1.Click
 475     '/// Press 'Options' button
 476     printlog " Press 'Options' button"
 477     Options.Click
 478     Kontext "SolverOptions"
 479     DialogTest ( SolverOptions )
 480     '/// On 'Options' dialog verify that there is min 1 'Solver engine' available
 481     printlog " On 'Options' dialog verify that there is min 1 'Solver engine' available"
 482     If SolverEngine.GetItemCount < 1 then
 483         warnlog "There is no SolverEngine available"
 484     end if
 485     '/// Check for 'Settings' which enables the edit button (e.g.Epsilon level)
 486     printlog " Check for 'Settings' which enables the edit button (e.g.Epsilon level)"
 487     For i = 1 to SolverSettings.GetItemCount
 488         SolverSettings.Select i
 489         if SolverSettingsEdit.IsEnabled then
 490             i = SolverSettings.GetItemCount
 491         end if
 492     next i
 493     If not SolverSettingsEdit.IsEnabled then
 494         warnlog "Edit is not enabled"
 495         SolverOptions.Cancel
 496         Kontext "Solver"
 497         Solver.Close
 498         call hCloseDocument
 499         goto endsub
 500     else
 501         '/// Click 'Edit' button to open 'Edit Setting' dialog
 502         printlog " Click 'Edit' button to open 'Edit Setting' dialog"
 503         SolverSettingsEdit.Click
 504         Kontext "SolverEditSetting"
 505         DialogTest ( SolverEditSetting )
 506     end if
 507     '/// Increase 'Epsilon level'
 508     printlog " Increase 'Epsilon level'"
 509     SolverNumeric.More
 510     '/// Close 'Edit Setting' dialog by 'Cancel'
 511     printlog " Close 'Edit Setting' dialog by 'Cancel'"
 512     SolverEditSetting.Cancel
 513     Kontext "SolverOptions"
 514     '/// Close 'Options' dialog by 'Cancel'
 515     printlog " Close 'Options' dialog by 'Cancel'"
 516     SolverOptions.Cancel
 517     '/// Close 'Solver' dialog by 'Close'
 518     printlog " Close 'Solver' dialog by 'Close'"
 519     Kontext "Solver"
 520     Solver.Close
 521     '/// Close document
 522     printlog " Close document"
 523     Call hCloseDocument
 524
 525 endcase
 526
 527 '-----------------------------------------------------------
 528