testautomation/spreadsheet/required/includes/c_upd_datamenu.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_datamenu.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-09-04 09:18:19 $
  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 - Data Menu
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tDataDefineRange
  41 ' #1 tDataSelectRange
  42 ' #1 tDataSort
  43 ' #1 tDataFilterAutoFilter
  44 ' #1 tDataFilterStandardFilter
  45 ' #1 tDataFilterAdvancedFilter
  46 ' #1 tDataFilterRemoveFilter
  47 ' #1 tDataFilterHideFilter
  48 ' #1 tDataSubtotals
  49 ' #1 tDataValidity
  50 ' #1 tDataMultipleOperations
  51 ' #1 tDataTexttoColumn
  52 ' #1 tDataConsolidate
  53 ' #1 tDataGroupandOutline
  54 ' #1 tDataDataPilot
  55 ' #1 tDataRefreshRange
  56 '*
  57 '\***********************************************************************
  58
  59 sub c_upd_datamenu
  60
  61     Printlog Chr(13) + "--------- Data Menu (c_upd_datamenu.inc) ---------"
  62
  63     call tDataDefineRange
  64     call tDataSelectRange
  65     call tDataSort
  66     call tDataFilterAutoFilter
  67     call tDataFilterStandardFilter
  68     call tDataFilterAdvancedFilter
  69     call tDataFilterRemoveFilter
  70     call tDataFilterHideFilter
  71     call tDataSubtotals
  72     call tDataValidity
  73     call tDataMultipleOperations
  74     call tDataTexttoColumn
  75     call tDataConsolidate
  76     call tDataGroupandOutline
  77     call tDataDataPilot
  78     call tDataRefreshRange
  79
  80
  81 end sub
  82
  83 '-----------------------------------------------------------
  84
  85 testcase tDataDefineRange
  86 '///<u><b>Data – Define Range</b></u>
  87
  88     '/// Opening new spreadsheet document for getting defined starting environment
  89     printlog " Opening new spreadsheet document for getting defined starting environment"
  90     call hNewDocument
  91     '/// Open 'Define Database range' dialog by 'Data – Define Range'
  92     printlog " Open 'Define Database range' dialog by 'Data – Define Range'"
  93     DataDefineRange
  94     Kontext "DatenbankbereichFestlegen"
  95     '/// Enter name 'Testrange'
  96     printlog " Enter name 'Testrange'"
  97     BereichsName.SetText "Testrange_by_TT"
  98     '/// Click on 'More' button
  99     printlog " Click on 'More' button"
 100     Zusaetze.Click
 101     DialogTest ( DatenbankbereichFestlegen )
 102     '/// Click on 'Shrink' button to open rangechooser
 103     printlog " Click on 'Shrink' button to open rangechooser"
 104     BereichMin.Click
 105     '/// Close rangechooser by click on 'Shrink' button
 106     printlog " Close rangechooser by click on 'Shrink' button"
 107     BereichMin.Click
 108     '/// Click on 'Add' button
 109     printlog " Click on 'Add' button"
 110     Hinzufuegen.Click
 111     '/// Select 'Testrange_by_TT'
 112     printlog " Select 'Testrange_by_TT'"
 113     BereichsName.Select "Testrange_by_TT"
 114     '/// Click on 'Modify' button
 115     printlog " Click on 'Modify' button"
 116     Aendern.Click
 117     '/// Select 'Testrange_by_TT'
 118     printlog " Select 'Testrange_by_TT'"
 119     BereichsName.Select "Testrange_by_TT"
 120     '/// Click on 'Delete' button
 121     printlog " Click on 'Delete' button"
 122     Loeschen.Click
 123     '/// Close messagebox with 'Yes'
 124     printlog " Close messagebox with 'Yes'"
 125     Kontext
 126     if Active.exists then
 127         Active.Yes
 128     end if
 129     Kontext "DatenbankbereichFestlegen"
 130     '/// Close 'Define Database range' dialog with 'Cancel'
 131     printlog " Close 'Define Database range' dialog with 'Cancel'"
 132     DatenbankbereichFestlegen.Cancel
 133     '/// Close document
 134     printlog " Close document"
 135     Call hCloseDocument
 136
 137 endcase
 138
 139 '-----------------------------------------------------------
 140
 141 testcase tDataSelectRange
 142 '///<u><b>Data – Select Range</b></u>
 143
 144     '/// Open new Spreadsheet document
 145     printlog " Open new Spreadsheet document"
 146     Call hNewDocument
 147     '/// Open 'Select Database range' dialog by 'Data – Select Range'
 148     printlog " Open 'Select Database range' dialog by 'Data – Select Range'"
 149     DataSelectRange
 150     Kontext "DatenbankbereichWaehlen"
 151     DialogTest ( DatenbankbereichWaehlen )
 152     '/// Close dialog with 'Cancel'
 153     printlog " Close dialog with 'Cancel'"
 154     DatenbankbereichWaehlen.Cancel
 155     '/// Close document
 156     printlog " Close document"
 157     Call hCloseDocument
 158
 159 endcase
 160
 161 '-----------------------------------------------------------
 162
 163 testcase tDataSort
 164 '///<u><b>Data – Sort</b></u>
 165
 166     '/// Open new Spreadsheet document
 167     printlog " Open new Spreadsheet document"
 168     Call hNewDocument
 169     '/// Open 'Sort' dialog by 'Data – Sort'
 170     printlog " Open 'Sort' dialog by 'Data – Sort'"
 171     DataSort
 172     '/// Switch to tabpage 'Sort Criteria'
 173     printlog " Switch to tabpage 'Sort Criteria'"
 174     Kontext
 175     active.SetPage TabSortierkriterien
 176     Kontext "TabSortierkriterien"
 177     Call DialogTest ( TabSortierkriterien )
 178     '/// Verify that combobox 'Sort by' has items
 179     printlog " Verify that combobox 'Sort by' has items"
 180     If SortierenNach.GetItemCount < 1 then
 181         warnlog "The Sortlist is empty"
 182     end if
 183     '/// Switch to tabpage 'Options'
 184     printlog " Switch to tabpage 'Options'"
 185     Kontext
 186     active.SetPage TabSortierenOptionen
 187     Kontext "TabSortierenOptionen"
 188     Call DialogTest ( TabSortierenOptionen )
 189     '/// Verify that the 'Language' combobox has items
 190     printlog " Verify that the 'Language' combobox has items"
 191     If Sprache.GetItemCount < 1 then
 192         warnlog "The Languagelist is empty"
 193     end if
 194     '/// Close 'Sort' dialog with 'Cancel
 195     printlog " Close 'Sort' dialog with 'Cancel"
 196     TabSortierenOptionen.Cancel
 197         printlog " Select cell B3"
 198         Kontext ( "DocumentCalc" )
 199         fCalcSelectRange ( "B3" )
 200         printlog " Fill cells B3:B8 with numbers 1-6"
 201     DocumentCalc.TypeKeys "1<RETURN>2<RETURN>3<RETURN>4<RETURN>5<RETURN>6"
 202         printlog " Select cell C3"
 203         fCalcSelectRange ( "C3" )
 204         printlog " Fill cells C3:C8 with numbers 7-2"
 205     DocumentCalc.TypeKeys "7<RETURN>6<RETURN>5<RETURN>4<RETURN>3<RETURN>2"
 206         printlog " Select cells B5:B6"
 207         fCalcSelectRange ( "B5:B6" )
 208         printlog " Open Data Sort"
 209         DataSort
 210         Kontext ( "SortRange" )
 211         printlog " SortRange dialog has opened"
 212         printlog " Cancel Sort Range dialog"
 213         SortRange.Cancel
 214     '/// Close document
 215     printlog " Close document"
 216     Call hCloseDocument
 217
 218 endcase
 219
 220 '-----------------------------------------------------------
 221
 222 testcase tDataFilterAutoFilter
 223 '///<u><b>Data – Filter – AutoFilter</b></u>
 224
 225     '/// Open new Spreadsheet document
 226     printlog " Open new Spreadsheet document"
 227     Call hNewDocument
 228     '/// Enter 'Value' in A1, '1' in A2, '2' in A3
 229     printlog " Enter 'Value' in A1, '1' in A2, '2' in A3"
 230     DocumentCalc.TypeKeys "Value<Return>1<Return>2<Return><Up>"
 231     '/// Use 'AutoFilter' by 'Data – Filter – AutoFilter'
 232     printlog " Use 'AutoFilter' by 'Data – Filter – AutoFilter'"
 233     DataFilterAutoFilter
 234     '/// Remove 'AutoFilter' by 'Data – Filter – AutoFilter'
 235     printlog " Remove 'AutoFilter' by 'Data – Filter – AutoFilter'"
 236     DataFilterAutoFilter
 237     '/// Close document
 238     printlog " Close document"
 239     Call hCloseDocument
 240
 241 endcase
 242
 243 '-----------------------------------------------------------
 244
 245 testcase tDataFilterStandardFilter
 246 '///<u><b>Data – Filter – Standard Filter</b></u>
 247
 248     '/// Open new Spreadsheet document
 249     printlog " Open new Spreadsheet document"
 250     Call hNewDocument
 251     '/// Open 'Standard Filter' dialog by 'Data – Filter – Standard Filter'
 252     printlog " Open 'Standard Filter' dialog by 'Data – Filter – Standard Filter'"
 253     DataFilterStandardFilter
 254     Kontext "Standardfilter"
 255     '/// Click on 'More' button
 256     printlog " Click on 'More' button"
 257     Zusaetze.Click
 258     DialogTest ( Standardfilter )
 259     '/// Verify that the 'Field name' combobox has items
 260     printlog " Verify that the 'Field name' combobox has items"
 261     If FeldName1.GetItemCount < 1 then
 262         warnlog "The list is empty"
 263     end if
 264     '/// Verify that the 'Condition' combobox has items
 265     printlog " Verify that the 'Condition' combobox has items"
 266     If Bedingung1.GetItemCount < 1 then
 267         warnlog "The list is empty"
 268     end if
 269     '/// Verify that the 'Value' combobox has items
 270     printlog " Verify that the 'Value' combobox has items"
 271     If Wert1.GetItemCount < 1 then
 272         warnlog "The list is empty"
 273     end if
 274     '/// Choose first operator
 275     printlog " Choose first operator"
 276     Verknuepfung2.Select 1
 277     '/// Check option 'Case sensitive'
 278     printlog " Check option 'Case sensitive'"
 279     GrossKleinschreibung.Check
 280     '/// Check option 'Range contains column labels'
 281     printlog " Check option 'Range contains column labels'"
 282     BereicheEnthaeltSpaltenkoepfe.Check
 283     '/// Check option 'Regular expressions'
 284     printlog " Check option 'Regular expressions'"
 285     RegulaererAusdruck.Check
 286     '/// Check option 'No duplication'
 287     printlog " Check option 'No duplication'"
 288     KeineDuplikate.Check
 289     '/// Check option 'Copy results to'
 290     printlog " Check option 'Copy results to'"
 291     FilterergebnisNach.Check
 292     '/// Click on 'Shrink' button to open rangechooser
 293     printlog " Click on 'Shrink' button to open rangechooser"
 294     DialogMin.Click
 295     '/// Close rangechooser by click on 'Shrink' button
 296     printlog " Close rangechooser by click on 'Shrink' button"
 297     DialogMin.Click
 298     '/// Check option 'Keep filter criteria'
 299     printlog " Check option 'Keep filter criteria'"
 300     Persistent.Check
 301     '/// Close 'Standard Filter' dialog with 'Cancel'
 302     printlog " Close 'Standard Filter' dialog with 'Cancel'"
 303     Standardfilter.Cancel
 304     '/// Close document
 305     printlog " Close document"
 306     Call hCloseDocument
 307
 308 endcase
 309
 310 '-----------------------------------------------------------
 311
 312 testcase tDataFilterAdvancedFilter
 313 '///<u><b>Data – Filter – Advanced Filter</b></u>
 314
 315     '/// Open new Spreadsheet document
 316     printlog " Open new Spreadsheet document"
 317     Call hNewDocument
 318     '/// Open 'Advanced Filter' dialog by 'Data – Filter – Advanced Filter'
 319     printlog " Open 'Advanced Filter' dialog by 'Data – Filter – Advanced Filter'"
 320     DataFilterAdvancedFilter
 321     Kontext "Spezialfilter"
 322     '/// Click on 'More' button
 323     printlog " Click on 'More' button"
 324     Zusaetze.Click
 325     DialogTest ( Spezialfilter )
 326     '/// Click on 'Shrink' button to open rangechooser
 327     printlog " Click on 'Shrink' button to open rangechooser"
 328     FilterkriterienMin.Click
 329     '/// Close rangechooser by click on 'Shrink' button
 330     printlog " Close rangechooser by click on 'Shrink' button"
 331     FilterkriterienMin.Click
 332     '/// Check option 'Case sensitive'
 333     printlog " Check option 'Case sensitive'"
 334     GrossKleinschreibung.Check
 335     '/// Check if option 'Range contains column labels' is disabled
 336     printlog " Check if option 'Range contains column labels' is disabled"
 337     If BereichEnthaeltSpaltenkoepfe.IsEnabled then
 338         warnlog "The option is enabled"
 339     end if
 340     '/// Check option 'Regular expressions'
 341     printlog " Check option 'Regular expressions'"
 342     RegulaererAusdruck.Check
 343     '/// Check option 'No duplication'
 344     printlog " Check option 'No duplication'"
 345     KeineDuplikate.Check
 346     '/// Check option 'Copy results to'
 347     printlog " Check option 'Copy results to'"
 348     FilterergebnisAusgeben.Check
 349     '/// Click on 'Shrink' button to open rangechooser
 350     printlog " Click on 'Shrink' button to open rangechooser"
 351     FilterergebnisMin.Click
 352     '/// Close rangechooser by click on 'Shrink' button
 353     printlog " Close rangechooser by click on 'Shrink' button"
 354     FilterergebnisMin.Click
 355     '/// Check option 'Keep filter criteria'
 356     printlog " Check option 'Keep filter criteria'"
 357     Persistent.Check
 358     '/// Close 'Advanced Filter' dialog with 'Cancel'
 359     printlog " Close 'Advanced Filter' dialog with 'Cancel'"
 360     Spezialfilter.Cancel
 361     '/// Close document
 362     printlog " Close document"
 363     Call hCloseDocument
 364
 365 endcase
 366
 367 '-----------------------------------------------------------
 368
 369 testcase tDataFilterRemoveFilter
 370 '///<u><b>Data – Filter – Remove Filter</b></u>
 371
 372     '/// Open new Spreadsheet document
 373     printlog " Open new Spreadsheet document"
 374     Call hNewDocument
 375     '/// Enter 'Value' in A1, '1' in A2, '2' in A3
 376     printlog " Enter 'Value' in A1, '1' in A2, '2' in A3"
 377     DocumentCalc.TypeKeys "Value<Return>1<Return>2<Return><Up>"
 378     '/// Open 'Standard Filter' dialog by 'Data – Filter – Standard Filter'
 379     printlog " Open 'Standard Filter' dialog by 'Data – Filter – Standard Filter'"
 380     DataFilterStandardFilter
 381     Kontext "Standardfilter"
 382     '/// Set 'Field name' to 'Value'
 383     printlog " Set 'Field name' to 'Value'"
 384     Feldname1.select 2
 385     '/// Set 'Condition' to first entry
 386     printlog " Set 'Condition' to first entry"
 387     Bedingung1.select 1
 388     '/// Set 'Value' to last entry
 389     printlog " Set 'Value' to last entry"
 390     Wert1.select 2
 391     '/// Close 'Standard Filter' dialog with 'OK'
 392     printlog " Close 'Standard Filter' dialog with 'OK'"
 393     Standardfilter.Ok
 394     '/// Remove filter by 'Data – Filter – Remove Filter'
 395     printlog " Remove filter by 'Data – Filter – Remove Filter'"
 396     DataFilterRemoveFilter
 397     '/// Close document
 398     printlog " Close document"
 399     Call hCloseDocument
 400
 401 endcase
 402
 403 '-----------------------------------------------------------
 404
 405 testcase tDataFilterHideFilter
 406 '///<u><b>Data – Filter – Hide Filter</b></u>
 407
 408     '/// Open new Spreadsheet document
 409     printlog " Open new Spreadsheet document"
 410     Call hNewDocument
 411     '/// Enter 'Value' in A1, '1' in A2, '2' in A3
 412     printlog " Enter 'Value' in A1, '1' in A2, '2' in A3"
 413     DocumentCalc.TypeKeys "Value<Return>1<Return>2<Return><Up>"
 414     '/// Use 'AutoFilter' by 'Data – Filter – AutoFilter'
 415     printlog " Use 'AutoFilter' by 'Data – Filter – AutoFilter'"
 416     DataFilterAutoFilter
 417     '/// Hide 'AutoFilter' by 'Data – Filter – Hide Filter'
 418     printlog " Hide 'AutoFilter' by 'Data – Filter – Hide Filter'"
 419     DataFilterHideAutoFilter
 420     '/// Close document
 421     printlog " Close document"
 422     Call hCloseDocument
 423
 424 endcase
 425
 426 '-----------------------------------------------------------
 427
 428 testcase tDataSubtotals
 429 '///<u><b>Data – Subtotals</b></u>
 430
 431     '/// Open new Spreadsheet document
 432     printlog " Open new Spreadsheet document"
 433     Call hNewDocument
 434     '/// Open 'Subtotals' dialog by 'Data – Subtotals'
 435     printlog " Open 'Subtotals' dialog by 'Data – Subtotals'"
 436     DataSubtotals
 437     Kontext "Teilergebnisse"
 438     '/// Switch to tabpage '1st Group'
 439     printlog " Switch to tabpage '1st Group'"
 440     Kontext
 441     active.SetPage TabGruppe1
 442     Kontext "TabGruppe1"
 443     Call DialogTest ( TabGruppe1 )
 444     '/// Verify that the 'Group by' combobox has items
 445     printlog " Verify that the 'Group by' combobox has items"
 446     If GruppierenNach.GetItemCount < 1 then
 447         warnlog "The list is empty"
 448     end if
 449     '/// Verify that there are functions available in the  'Use function' control
 450     printlog " Verify that there are functions available in the  'Use function' control"
 451     If Berechnungsvorschrift.GetItemCount < 1 then
 452         warnlog "The list is empty"
 453     end if
 454     '/// Switch to tabpage '2nd Group'
 455     printlog " Switch to tabpage '2nd Group'"
 456     Kontext
 457     active.SetPage TabGruppe2
 458     Kontext "TabGruppe2"
 459     Call DialogTest ( TabGruppe2 )
 460     '/// Verify that the 'Group by' combobox has items
 461     printlog " Verify that the 'Group by' combobox has items"
 462     If GruppierenNach.GetItemCount < 1 then
 463         warnlog "The list is empty"
 464     end if
 465     '/// Verify that there are functions available in the  'Use function' control
 466     printlog " Verify that there are functions available in the  'Use function' control"
 467     If Berechnungsvorschrift.GetItemCount < 1 then
 468         warnlog "The list is empty"
 469     end if
 470     '/// Switch to tabpage '3rd Group'
 471     printlog " Switch to tabpage '3rd Group'"
 472     Kontext
 473     active.SetPage TabGruppe3
 474     Kontext "TabGruppe3"
 475     Call DialogTest ( TabGruppe3 )
 476     '/// Verify that the 'Group by' combobox has items
 477     printlog " Verify that the 'Group by' combobox has items"
 478     If GruppierenNach.GetItemCount < 1 then
 479         warnlog "The list is empty"
 480     end if
 481     '/// Verify that there are functions available in the  'Use function' control
 482     printlog " Verify that there are functions available in the  'Use function' control"
 483     If Berechnungsvorschrift.GetItemCount < 1 then
 484         warnlog "The list is empty"
 485     end if
 486     '/// Switch to tabpage 'Options'
 487     printlog " Switch to tabpage 'Options'"
 488     Kontext
 489     active.SetPage TabTeilergebnisseOptionen
 490     Kontext "TabTeilergebnisseOptionen"
 491     Call DialogTest ( TabTeilergebnisseOptionen )
 492     '/// Check option 'Page break between groups'
 493     printlog " Check option 'Page break between groups'"
 494     NeueSeiteBeiGruppenwechsel.Check
 495     '/// Check option 'Case sensitive'
 496     printlog " Check option 'Case sensitive'"
 497     GrossKleinschreibungBeachten.Check
 498     '/// Check option 'Pre-sort area according to groups'
 499     printlog " Check option 'Pre-sort area according to groups'"
 500     BereichVorherNachGruppenSortieren.Check
 501     '/// Check option 'Ascending'
 502     printlog " Check option 'Ascending'"
 503     Aufsteigend.Check
 504     '/// Check option 'Decending'
 505     printlog " Check option 'Decending'"
 506     Absteigend.Check
 507     '/// Check option 'Include formats'
 508     printlog " Check option 'Include formats'"
 509     FormateEinschliessen.Check
 510     '/// Check option 'Custom sort order'
 511     printlog " Check option 'Custom sort order'"
 512     BenutzerdefinierteSortierreihenfolge.Check
 513     '/// Verify that there are sortorders available
 514     printlog " Verify that there are sortorders available"
 515     If SortierreihenfolgeAnzeige.GetItemCount < 1 then
 516         warnlog "The list is empty"
 517     end if
 518     '/// Close 'Subtotals' dialog with 'Cancel'
 519     printlog " Close 'Subtotals' dialog with 'Cancel'"
 520     TabTeilergebnisseOptionen.Close
 521     '/// Close document
 522     printlog " Close document"
 523     hCloseDocument
 524
 525 endcase
 526
 527 '-----------------------------------------------------------
 528
 529 testcase tDataValidity
 530 '///<u><b>Data – Validity</b></u>
 531
 532     '/// Open new Spreadshet document
 533     printlog " Open new Spreadshet document"
 534     call hNewDocument
 535     '/// Open 'Validity' dialog by 'Data – Validity'
 536     printlog " Open 'Validity' dialog by 'Data – Validity'"
 537     DataValidity
 538     '/// Switch to tabpage 'Criteria'
 539     printlog " Switch to tabpage 'Criteria'"
 540     Kontext
 541     Active.SetPage TabWerte
 542     Kontext "TabWerte"
 543     Call DialogTest ( TabWerte,1 )
 544     '/// Choose 8th entry (Text length) in 'Allow' combobox
 545     printlog " Choose 8th entry (Text length) in 'Allow' combobox"
 546     Zulassen.select (8)
 547     Call DialogTest ( TabWerte,2 )
 548     '/// Choose last entry (not between) in 'Data' combobox
 549     printlog " Choose last entry (not between) in 'Data' combobox"
 550     Daten.select (8)
 551     Call DialogTest ( TabWerte,3 )
 552     '/// Choose 7th entry (Cell range) in 'Allow' combobox
 553     printlog " Choose 7th entry (Cell range) in 'Allow' combobox"
 554     Zulassen.select (7)
 555     Call DialogTest ( TabWerte,4 )
 556     '/// Choose 6th entry (List) in 'Allow' combobox
 557     printlog " Choose 6th entry (List) in 'Allow' combobox"
 558     Zulassen.select (6)
 559     Call DialogTest ( TabWerte,5 )
 560     '/// Switch to tabpage 'Input Help'
 561     printlog " Switch to tabpage 'Input Help'"
 562     Kontext
 563     Active.SetPage TabEingabehilfe
 564     Kontext "TabEingabehilfe"
 565     Call DialogTest ( TabEingabehilfe )
 566     '/// Switch to tabpage 'Error Alert'
 567     printlog " Switch to tabpage 'Error Alert'"
 568     Kontext
 569     Active.SetPage TabFehlermeldung
 570     Kontext "TabFehlermeldung"
 571     Call DialogTest ( TabFehlermeldung )
 572     '/// Choose last entry (Macro) in 'Action' combobox
 573     printlog " Choose last entry (Macro) in 'Action' combobox"
 574     Aktion.Select (4)
 575     '/// Click on 'Browse' button
 576     printlog " Click on 'Browse' button"
 577     Durchsuchen.Click
 578     Kontext "ScriptSelector"
 579     '/// Close 'Macro Selector' with 'Cancel'
 580     printlog " Close 'Macro Selector' with 'Cancel'"
 581     ScriptSelector.Cancel
 582     Kontext "TabFehlermeldung"
 583     '/// Close 'Validity' dialog with 'Cancel'
 584     printlog " Close 'Validity' dialog with 'Cancel'"
 585     TabFehlermeldung.Cancel
 586     '/// Close document
 587     printlog " Close document"
 588     Call hCloseDocument
 589
 590 endcase
 591
 592 '-----------------------------------------------------------
 593
 594 testcase tDataMultipleOperations
 595 '///<u><b>Data – Multiple Operations</b></u>
 596
 597     '/// Open new Spreadsheet ocument
 598     printlog " Open new Spreadsheet ocument"
 599     Call hNewDocument
 600     '/// Select cells A1:D4
 601     printlog " Select cells A1:D4"
 602     Call fCalcSelectRange ("A1:D4")
 603     '/// Open 'Multiple operations' dialog by 'Data – Multiple Operations'
 604     printlog " Open 'Multiple operations' dialog by 'Data – Multiple Operations'"
 605     DataMultipleOperations
 606     Kontext "Mehrfachoperationen"
 607     DialogTest ( Mehrfachoperationen )
 608     '/// Click on 'Shrink' button for Formulas' to open rangechooser
 609     printlog " Click on 'Shrink' button for Formulas' to open rangechooser"
 610     Vorgaben1.Click
 611     '/// Close rangechooser by click on 'Shrink' button
 612     printlog " Close rangechooser by click on 'Shrink' button"
 613     Vorgaben1.Click
 614     '/// Click on 'Shrink' button for 'Row input cell' to open rangechooser
 615     printlog " Click on 'Shrink' button for 'Row input cell' to open rangechooser"
 616     Vorgaben2.Click
 617     '/// Close rangechooser by click on 'Shrink' button
 618     printlog " Close rangechooser by click on 'Shrink' button"
 619     Vorgaben2.Click
 620     '/// Click on 'Shrink' button for 'Column Input Cell' to open rangechooser
 621     printlog " Click on 'Shrink' button for 'Column Input Cell' to open rangechooser"
 622     Vorgaben3.Click
 623     '/// Close rangechooser by click on 'Shrink' button
 624     printlog " Close rangechooser by click on 'Shrink' button"
 625     Vorgaben3.Click
 626     '/// Close 'Multiple operations' dialog with 'Cancel'
 627     printlog " Close 'Multiple operations' dialog with 'Cancel'"
 628     Mehrfachoperationen.Cancel
 629     '/// Close document
 630     printlog " Close document"
 631     Call hCloseDocument
 632
 633 endcase
 634
 635 '-----------------------------------------------------------
 636
 637 testcase tDataTexttoColumn
 638 '///<u><b>Data – Text to Column</b></u>
 639
 640     '/// Open new Spreadsheet document
 641     printlog " Open new Spreadsheet document"
 642     Call hNewDocument
 643     '/// In cell A1 enter string  'First Second'
 644     printlog " In cell A1 enter string  'First Second'"
 645     Call fCalcSelectRange ("A1")
 646     DocumentCalc.TypeKeys "First Second<Return>"
 647     '/// Select cell A1
 648     printlog " Select cell A1"
 649     Call fCalcSelectRange ("A1")
 650     '/// Open 'Text to Column' dialog by 'Data – Text to Columns'
 651     printlog " Open 'Text to Column' dialog by 'Data – Text to Columns'"
 652     DataTextToColumns
 653     Kontext "TextImport"
 654     '/// Close 'Text to Column' dialog
 655     printlog " Close 'Text to Column' dialog"
 656     TextImport.Cancel
 657     '/// Close document
 658     printlog " Close document"
 659     Call hCloseDocument
 660
 661 endcase
 662
 663 '-----------------------------------------------------------
 664
 665 testcase tDataConsolidate
 666 '///<u><b>Data – Consolidate</b></u>
 667
 668     '/// Open new Spreadsheet document
 669     printlog " Open new Spreadsheet document"
 670     Call hNewDocument
 671     '/// Open 'Consolidate' dialog by 'Data – Consolidate'
 672     printlog " Open 'Consolidate' dialog by 'Data – Consolidate'"
 673     DataConsolidate
 674     '/// Click on 'More' button
 675     printlog " Click on 'More' button"
 676     Kontext "Konsolidieren"
 677     Zusaetze.Click
 678     DialogTest ( Konsolidieren )
 679     '/// Verify that the 'Function' combobox has items
 680     printlog " Verify that the 'Function' combobox has items"
 681     If Berechnungsvorschrift.GetItemCount < 1 then
 682         warnlog "The list is empty"
 683     end if
 684     '/// Click on 'Shrink' button for 'Source data range' to open rangechooser
 685     printlog " Click on 'Shrink' button for 'Source data range' to open rangechooser"
 686     ButtonQuelldaten.Click
 687     '/// Close rangechooser by click on 'Shrink' button
 688     printlog " Close rangechooser by click on 'Shrink' button"
 689     ButtonQuelldaten.Click
 690     '/// Click on 'Shrink' button for 'Copy results to' to open rangechooser
 691     printlog " Click on 'Shrink' button for 'Copy results to' to open rangechooser"
 692     ButtonAusgeben.Click
 693     '/// Close rangechooser by click on 'Shrink' button
 694     printlog " Close rangechooser by click on 'Shrink' button"
 695     ButtonAusgeben.Click
 696     '/// Close 'Consolidate' dialog with 'Cancel'
 697     printlog " Close 'Consolidate' dialog with 'Cancel'"
 698     Konsolidieren.Cancel
 699     '/// Close document
 700     printlog " Close document"
 701     Call hCloseDocument
 702
 703 endcase
 704
 705 '-----------------------------------------------------------
 706
 707 testcase tDataGroupandOutline
 708 '///<u><b>Data – Group and Outline</b></u>
 709
 710     '/// Open new Spreadsheet document
 711     printlog " Open new Spreadsheet document"
 712     Call hNewDocument
 713     '/// Select cells A1:D9
 714     printlog " Select cells A1:D9"
 715     Call fCalcSelectRange ("A1:D9")
 716     '/// Open 'Group' dialog by 'Data – Group and Outline – Group'
 717     printlog " Open 'Group' dialog by 'Data – Group and Outline – Group'"
 718     DataOutlineGroup
 719     Kontext "GruppierungAktivieren"
 720     DialogTest ( GruppierungAktivieren )
 721     '/// Check option 'Rows'
 722     printlog " Check option 'Rows'"
 723     Zeilen.Check
 724     '/// Close dialog with 'OK'
 725     printlog " Close dialog with 'OK'"
 726     GruppierungAktivieren.OK
 727     '/// Open 'Group' dialog by 'Data – Group and Outline – Group'
 728     printlog " Open 'Group' dialog by 'Data – Group and Outline – Group'"
 729     DataOutlineGroup
 730     Kontext "GruppierungAktivieren"
 731     '/// Check option 'Rows'
 732     printlog " Check option 'Rows'"
 733     Spalten.Check
 734     '/// Close dialog with 'OK'
 735     printlog " Close dialog with 'OK'"
 736     GruppierungAktivieren.OK
 737     '/// Hide details by 'Data – Group and Outline – Hide details'
 738     printlog " Hide details by 'Data – Group and Outline – Hide details'"
 739     DataOutlineHideDetails
 740     '/// Show details by 'Data – Group and Outline – Show details'
 741     printlog " Show details by 'Data – Group and Outline – Show details'"
 742     DataOutlineShowDetails
 743     '/// Open 'Ungroup' dialog ' Data – Group and Outline – Ungroup'
 744     printlog " Open 'Ungroup' dialog by ' Data – Group and Outline – Ungroup'"
 745     DataOutlineUngroup
 746     Kontext "GruppierungAufheben"
 747     DialogTest ( GruppierungAufheben )
 748     '/// Check option 'Rows'
 749     printlog " Check option 'Rows'"
 750     Spalten.Check
 751     '/// Close dialog with 'OK'
 752     printlog " Close dialog with 'OK'"
 753     GruppierungAufheben.OK
 754     '/// Ungroup data by 'Data – Group and Outline – Ungroup'
 755     printlog " Ungroup data by 'Data – Group and Outline – Ungroup'"
 756     DataOutlineUngroup
 757     '/// Enter '1' in A1, '2' in A2, '3' in A3
 758     printlog " Enter '1' in A1, '2' in A2, '3' in A3"
 759     Call fCalcSelectRange ("A1")
 760     DocumentCalc.TypeKeys "1<Return>2<Return>3<Return>"
 761     '/// Select cell A4 and click on Autosum button on Formularbar
 762     printlog " Select cell A4 and click on Autosum button on Formularbar"
 763     Call fCalcSelectRange ("A4")
 764     Kontext "RechenleisteCalc"
 765     Summe.Click
 766     Kontext "DocumentCalc"
 767     DocumentCalc.TypeKeys "<Return>"
 768     '/// Select cells A1:A4
 769     printlog " Select cells A1:A4"
 770     Call fCalcSelectRange ("A1:A4")
 771     '/// Use 'AutoOutline' by 'Data – Group and Outline – AutoOutline'
 772     printlog " Use 'AutoOutline' by 'Data – Group and Outline – AutoOutline'"
 773     DataOutlineAutoOutline
 774     '/// Remove outline by 'Data – Group and Outline – Remove'
 775     printlog " Remove outline by 'Data – Group and Outline – Remove'"
 776     DataOutlineRemove
 777     '/// Close document
 778     printlog " Close document"
 779     Call hCloseDocument
 780
 781 endcase
 782
 783 '-----------------------------------------------------------
 784
 785 testcase tDataDataPilot
 786 '///<u><b>Data – DataPilot</b></u>
 787
 788     printlog " Close and restart the Office"
 789     ExitRestartTheOffice
 790     '/// Open new Spreadsheet document
 791     printlog " Open new Spreadsheet document"
 792     Call hNewDocument
 793     '/// Enter string 'Month' in A1, 'Value' in B1
 794     printlog " Enter string 'Month' in A1, 'Value' in B1"
 795     Call fCalcSelectRange ("A1")
 796     DocumentCalc.TypeKeys "Month<Right>Value<Return>"
 797     '/// Select A1:B1
 798     printlog " Select A1:B1"
 799     Call fCalcSelectRange ("A1:B1")
 800     '/// Start 'DataPilot' by 'Data – DataPilot'
 801     printlog " Start 'DataPilot' by 'Data – DataPilot'"
 802     DataDataPilotStart
 803     Kontext "QuelleAuswaehlen"
 804     DialogTest ( QuelleAuswaehlen )
 805     '/// Choose 'Current Selection' on 'Select Source' dialog
 806     printlog " Choose 'Current Selection' on 'Select Source' dialog"
 807     AktuelleSelektion.Check
 808     '/// Click 'OK' button
 809     printlog " Click 'OK' button"
 810     QuelleAuswaehlen.OK
 811     '/// On 'DataPilot' dialog click on 'More' button
 812     printlog " On 'DataPilot' dialog click on 'More' button"
 813     Kontext "Datenpilot"
 814     Zusaetze.Open
 815     DialogTest ( Datenpilot )
 816         '/// Verify that the 'Selection from' editfield is correct
 817         printlog "Verify that the 'Selection from' editfield has content"
 818     printlog "The Range is" & DataPilotRange.Gettext
 819     '/// Click on 'Shrink' button for 'Selection from' to open rangechooser
 820     printlog " Click on 'Shrink' button for 'Selection from' to open rangechooser"
 821     DataPilotRangeShrink.Click
 822     '/// Close rangechooser by click on 'Maximize' button
 823     printlog " Close rangechooser by click on 'Maximize' button"
 824     DataPilotRangeShrink.Click
 825     '/// Verify that the 'Results to' combobox has items
 826     printlog " Verify that the 'Results to' combobox has items"
 827     If AusgabeAb.GetItemCount < 1 then
 828         warnlog "The list is empty"
 829     end if
 830     '/// Click on 'Shrink' button for 'Source data range' to open rangechooser
 831     printlog " Click on 'Shrink' button for 'Source data range' to open rangechooser"
 832     Minimieren.Click
 833     '/// Close rangechooser by click on 'Shrink' button
 834     printlog " Close rangechooser by click on 'Shrink' button"
 835     Minimieren.Click
 836     '/// Check option 'Ignore empty rows'
 837     printlog " Check option 'Ignore empty rows'"
 838     LeerzeilenIgnorieren.Check
 839     '/// Check option 'Total columns'
 840     printlog " Check option 'Total columns'"
 841     GesamtSpalten.Check
 842     '/// Check option 'Add filter'
 843     printlog " Check option 'Add filter'"
 844     AddFilter.Check
 845     '/// Check option 'Identify categories'
 846     printlog " Check option 'Identify categories'"
 847     KategorieErkennung.Check
 848     '/// Check option 'Total rows'
 849     printlog " Check option 'Total rows'"
 850     GesamtZeilen.Check
 851     '/// Check option 'Enable drill to details'
 852     printlog " Check option 'Enable drill to details'"
 853     EnableDrillToDetails.Check
 854     '/// Close 'DataPilot' dialog with 'Cancel'
 855     printlog " Close 'DataPilot' dialog with 'Cancel'"
 856     DatenPilot.Cancel
 857
 858     '/// Start datapilot by 'Data – DataPilot'
 859     printlog " Start datapilot by 'Data – DataPilot'"
 860     DataDataPilotStart
 861     Kontext "QuelleAuswaehlen"
 862     '/// Choose 'Data source registered in...' on 'Select Source' dialog
 863     printlog " Choose 'Data source registered in...' on 'Select Source' dialog"
 864     AngemeldeteDatenQuelle.Check
 865     '/// Click 'OK' button
 866     printlog " Click 'OK' button"
 867     QuelleAuswaehlen.OK
 868     Kontext "DatenquelleAuswaehlen"
 869     Call DialogTest ( DatenquelleAuswaehlen )
 870     '/// Count the entries in the 'Database' combobox
 871     printlog " Count the entries in the 'Database' combobox"
 872     Datenbank.GetItemCount
 873     '/// Count the entries in the 'Data source' combobox
 874     printlog " Count the entries in the 'Data source' combobox"
 875     Datenquelle.GetItemCount
 876     '/// Count the entries in the 'Type' combobox
 877     printlog " Count the entries in the 'Type' combobox"
 878     Art.GetItemCount
 879     '/// Close 'Select Data Source' dialog with 'Cancel'
 880     printlog " Close 'Select Data Source' dialog with 'Cancel'"
 881     DatenquelleAuswaehlen.Cancel
 882     '/// Close document
 883     printlog " Close document"
 884     call hCloseDocument
 885
 886     '/// Open testdocument 'gTesttoolPath + spreadsheet\required\input\datapilot.ods'
 887     printlog " Open testdocument 'gTesttoolPath + spreadsheet\required\input\datapilot.ods'"
 888     Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\datapilot.ods" ))
 889     '/// If the file is not editable, click the edit button on standardbar
 890     printlog " If the file is not editable, click the edit button on standardbar"
 891     Call sMakeReadOnlyDocumentEditable
 892     '/// Select cell C34
 893     printlog " Select cell C34"
 894     Call fCalcSelectRange ( "C34" )
 895     '/// Open 'DataPilot' dialog by 'Data – Datapilot – Start'
 896     printlog " Open 'DataPilot' dialog by 'Data – Datapilot – Start'"
 897     DataDataPilotStart
 898     sleep 1
 899     Kontext "Datenpilot"
 900     '/// Select 'Products' in 'Page Fields' by 5 <TAB>
 901     printlog " Select 'Products' in 'Page Fields' by 5 <TAB>"
 902     Datenpilot.TypeKeys "<TAB><TAB><TAB><TAB><TAB>",TRUE
 903     '/// Click on 'Options' button
 904     printlog " Click on 'Options' button"
 905     If Optionen.IsEnabled Then
 906         Optionen.Click
 907     else
 908         warnlog "Option button is not enabled. Aborting"
 909         Datenpilot.Cancel
 910         Call hCloseDocument
 911         goto endsub
 912     end if
 913     Kontext "Datenfeld"
 914     Call DialogTest ( Datenfeld )
 915     '/// On 'Data Field' dialog choose option 'User-defined'
 916     printlog " On 'Data Field' dialog choose option 'User-defined'"
 917     Benutzerdefiniert.Check
 918     '/// Verify that there are functions in the combobox
 919     printlog " Verify that there are functions in the combobox"
 920     If Funktionen.GetItemCount < 1 then
 921         warnlog "There are no functions available"
 922     end if
 923     '/// Check option 'Show items without data'
 924     printlog " Check option 'Show items without data'"
 925     OhneDatenAnzeigen.Check
 926     '/// Click on 'Options' button to open 'Data Filed Options' dialog
 927     printlog " Click on 'Options' button to open 'Data Filed Options' dialog"
 928     Options.Click
 929     Kontext "DataFieldsOptionsDlg"
 930     Call DialogTest ( DataFieldsOptionsDlg )
 931     '/// Choose option 'Ascending'
 932     printlog " Choose option 'Ascending'"
 933     Ascending.Check
 934     '/// Verify that there are items in the 'Sort by' combobox
 935     printlog " Verify that there are items in the 'Sort by' combobox"
 936     If Sortby.GetItemCount < 1 then
 937         warnlog "The list is empty"
 938     end if
 939     '/// Check option 'Show'
 940     printlog " Check option 'Show'"
 941     Show.Check
 942     '/// Increase 'Show Items'
 943     printlog " Increase 'Show Items'"
 944     ShowItems.More
 945     '/// Count items in combobox 'From'
 946     printlog " Count items in combobox 'From'"
 947     ShowFrom.GetItemCount
 948     '/// Count items in combobox 'Using field'
 949     printlog " Count items in combobox 'Using field'"
 950     UsingField.GetItemCount
 951     '/// Close 'Data Filed Options' dialog with 'Cancel'
 952     printlog " Close 'Data Filed Options' dialog with 'Cancel'"
 953     DataFieldsOptionsDlg.Cancel
 954     Kontext "Datenfeld"
 955     '/// Close 'Data Field' dialog with 'Cancel'
 956     printlog " Close 'Data Field' dialog with 'Cancel'"
 957     Datenfeld.Cancel
 958     sleep 2
 959     Kontext "Datenpilot"
 960         printlog " Close 'DataPilot' dialog with 'Cancel'"
 961     Datenpilot.Cancel
 962         printlog " Reopen 'DataPilot' dialog by 'Data – Datapilot – Start'"
 963     DataDataPilotStart
 964     sleep 1
 965     Kontext "Datenpilot"
 966     '/// Select item (Sum – 2001) in 'Data Fields' by 8 <TAB>
 967     printlog " Select item (Sum – 2001) in 'Data Fields' by 8 <TAB>"
 968     Datenpilot.TypeKeys "<TAB><TAB><TAB><TAB><TAB><TAB><TAB><TAB>",TRUE
 969     Sleep 1
 970     '/// Click on 'Options' button to open 'Data Filed' dialog
 971     printlog " Click on 'Options' button to open 'Data Filed' dialog"
 972     If Optionen.IsEnabled Then
 973         Optionen.Click
 974     else
 975         warnlog "Option button is not enabled. Aborting"
 976         Datenpilot.Cancel
 977         Call hCloseDocument
 978         goto endsub
 979     end if
 980         sleep 1
 981     Kontext "DataFieldsFunctionDlg"
 982     '/// Click on 'More' button
 983     printlog " Click on 'More' button"
 984     More.Click
 985     Call DialogTest ( DataFieldsFunctionDlg )
 986     '/// Verify that the 'Function' list has items
 987     printlog " Verify that the 'Function' list has items"
 988     If FunctionList.GetItemCount < 1 then
 989         warnlog "The list is empty"
 990     end if
 991     '/// Choose second entry in 'Type' combobox to enable next both comboboxes
 992     printlog " Choose second entry in 'Type' combobox to enable next both comboboxes"
 993     ValueType.Select 2
 994     '/// Verify that the 'Base field' combobox has items
 995     printlog " Verify that the 'Base field' combobox has items"
 996     If BaseField.GetItemCount < 1 then
 997         warnlog "The list is empty"
 998     end if
 999     '/// Verify that the 'Base item' combobox has items
1000     printlog " Verify that the 'Base item' combobox has items"
1001     If BaseItem.GetItemCount < 1 then
1002         warnlog "The list is empty"
1003     end if
1004     '/// Close 'Data Field' dialog with 'Cancel'
1005     printlog " Close 'Data Field' dialog with 'Cancel'"
1006     DataFieldsFunctionDlg.Cancel
1007     Kontext "Datenpilot"
1008     '/// Close 'DataPilot' dialog with 'Cancel'
1009     printlog " Close 'DataPilot' dialog with 'Cancel'"
1010     Datenpilot.Cancel
1011
1012     '/// Refresh 'DataPilot' by 'Data – DataPilot – Refresh'
1013     printlog " Refresh 'DataPilot' by 'Data – DataPilot – Refresh'"
1014     DataDataPilotRefresh
1015
1016     '/// Delete 'DataPilot' by 'Data – DataPilot – Delete'
1017     printlog " Delete 'DataPilot' by 'Data – DataPilot – Delete'"
1018     DataDataPilotDelete
1019
1020     '/// Close document without saving
1021     printlog " Close document without saving"
1022     Call hCloseDocument
1023
1024 endcase
1025
1026 '-----------------------------------------------------------
1027
1028 testcase tDataRefreshRange
1029 '///<u><b>Data – Refresh Range</b></u>
1030
1031     '/// Load testdocument Database_Refresh
1032     printlog " Load testdocument Database_Refresh"
1033     Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\Database_Refresh.ods" ))
1034     '/// If the file is not editable, click the edit button on standardbar
1035     printlog " If the file is not editable, click the edit button on standardbar"
1036     Call sMakeReadOnlyDocumentEditable
1037     '/// Refresh Database by 'Data – Refresh Range'
1038     printlog " Refresh Database by 'Data – Refresh Range'"
1039     DataRefreshRange
1040     '/// Close document
1041     printlog " Close document"
1042     Call hCloseDocument
1043
1044 endcase
1045
1046 '-----------------------------------------------------------
1047