testautomation/spreadsheet/required/includes/c_upd_insertmenu.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '
   5 ' Copyright 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/***********************************************************************
  27 '*
  28 '* owner : oliver.craemer@oracle.com
  29 '*
  30 '* short description : Resource Test - Insert Menu
  31 '*
  32 '************************************************************************
  33 '*
  34 ' #1 tInsertManualBreak
  35 ' #1 tInsertCells
  36 ' #1 tInsertRowsColumns
  37 ' #1 tInsertSheet
  38 ' #1 tInsertSheetFromFile
  39 ' #1 tInsertLink
  40 ' #1 tInsertSpecialCharacters
  41 ' #1 tInsertFormattingMark
  42 ' #1 tInsertHyperlink
  43 ' #1 tInsertFunction
  44 ' #1 tInsertFunctionList
  45 ' #1 tInsertNamesDefine
  46 ' #1 tInsertNamesInsert
  47 ' #1 tInsertNamesCreate
  48 ' #1 tInsertNamesLabels
  49 ' #1 tInsertNote
  50 ' #1 tInsertPictureFromFile
  51 ' #1 tInsertMovieSound
  52 ' #1 tInsertObjectOLE
  53 ' #1 tInsertObjectPlugin
  54 ' #1 tInsertObjectSound
  55 ' #1 tInsertObjectVideo
  56 ' #1 tInsertObjectFormular
  57 ' #1 tInsertChart
  58 ' #1 tInsertFloatingFrame
  59
  60 '*
  61 '\***********************************************************************
  62
  63 sub c_upd_insertmenu
  64
  65     Printlog Chr(13) + "--------- Insert Menu (c_upd_insertmenu.inc) ---------"
  66
  67     call tInsertManualBreak
  68     call tInsertCells
  69     call tInsertRowsColumns
  70     call tInsertSheet
  71     call tInsertSheetFromFile
  72     call tInsertLink
  73     call tInsertSpecialCharacters
  74     call tInsertFormattingMark
  75     call tInsertHyperlink
  76     call tInsertFunction
  77     call tInsertFunctionList
  78     call tInsertNamesDefine
  79     call tInsertNamesInsert
  80     call tInsertNamesCreate
  81     call tInsertNamesLabels
  82     call tInsertNote
  83     call tInsertPictureFromFile
  84     call tInsertMovieSound
  85     call tInsertObjectOLE
  86     call tInsertObjectPlugin
  87     call tInsertObjectSound
  88     call tInsertObjectVideo
  89     call tInsertObjectFormular
  90     call tInsertChart
  91     call tInsertFloatingFrame
  92
  93 end sub
  94
  95 '-----------------------------------------------------------
  96
  97 testcase tInsertManualBreak
  98 '///<u><b>Insert - Manual Break</b></u>
  99
 100     '/// Opening new spreadsheet document for getting defined starting environment
 101     printlog " Opening new spreadsheet document for getting defined starting environment"
 102     call hNewDocument
 103     '/// Goto cell D5
 104     printlog " Goto cell D5"
 105     call fCalcSelectRange ("D5")
 106     '/// Insert a manual row break by 'Insert – Manual Break – Row Break'
 107     printlog " Insert a manual row break by 'Insert – Manual Break – Row Break'"
 108     InsertManuelBreakRowBreak
 109     '/// Insert a manual column break by 'Insert – Manual Break – Column Break'
 110     printlog " Insert a manual column break by 'Insert – Manual Break – Column Break'"
 111     InsertManuelBreakColumnBreak
 112     '/// Close starting document
 113     printlog " Close starting document"
 114     call hCloseDocument
 115
 116 endcase
 117
 118 '-----------------------------------------------------------
 119
 120 testcase tInsertCells
 121 '///<u><b>Insert - Cells</b></u>
 122
 123     '/// Open new Spreadsheet document
 124     printlog " Open new Spreadsheet document"
 125     call hNewDocument
 126     '/// Open 'Insert Cells'- dialog by 'Insert – Cells'
 127     printlog " Open 'Insert Cells'- dialog by 'Insert – Cells'"
 128     InsertCells
 129     Kontext "ZellenEinfuegen"
 130     Call DialogTest ( ZellenEinfuegen )
 131     '/// Check option 'Shift cells down'
 132     printlog " Check option 'Shift cells down'"
 133     ZellenNachUnten.Check
 134     '/// Check option 'Shift cells right'
 135     printlog " Check option 'Shift cells right'"
 136     ZellenNachRechts.Check
 137     '/// Check option 'Entire row'
 138     printlog " Check option 'Entire row'"
 139     GanzeZeile.Check
 140     '/// Check option 'Entire column'
 141     printlog " Check option 'Entire column'"
 142     GanzeSpalte.Check
 143     '/// Close dialog with 'Cancel'
 144     printlog " Close dialog with 'Cancel'"
 145     ZellenEinfuegen.Cancel
 146     '/// Close starting document
 147     printlog " Close starting document"
 148     call hCloseDocument
 149
 150 endcase
 151
 152 '-----------------------------------------------------------
 153
 154 testcase tInsertRowsColumns
 155 '///<u><b>Insert - Rows/Columns</b></u>
 156
 157     '/// Open new Spreadsheet document
 158     printlog " Open new Spreadsheet document"
 159     call hNewDocument
 160     '/// Insert a new row by 'Insert - Rows'
 161     printlog " Insert a new row by 'Insert - Rows'"
 162     InsertRowsCalc
 163     '/// Insert a new column by 'Insert - Columns'
 164     printlog " Insert a new column by 'Insert - Columns'"
 165     InsertColumnsCalc
 166     '/// Close document
 167     printlog " Close starting document"
 168     call hCloseDocument
 169
 170 endcase
 171
 172 '-----------------------------------------------------------
 173
 174 testcase tInsertSheet
 175 '///<u><b>Insert - Sheet</b></u>
 176
 177     '/// Open new Spreadsheet document
 178     printlog " Open new Spreadsheet document"
 179     call hNewDocument
 180     '/// Open 'Insert Sheet' – dialog by 'Insert – Sheet'
 181     printlog " Open 'Insert Sheet' – dialog by 'Insert – Sheet'"
 182     InsertSheetCalc
 183     Kontext "TabelleEinfuegenCalc"
 184     Call DialogTest ( TabelleEinfuegenCalc )
 185     '/// Check option 'After current sheet'
 186     printlog " Check option 'After current sheet'"
 187     Nach.Check
 188     '/// Set 'Name' to 'Test'
 189     printlog " Set 'Name' to 'Test'"
 190     TabellenName.SetText "Test"
 191     '/// Set number of sheets to 2
 192     printlog " Set number of sheets to 2"
 193     Anzahl.More
 194     '/// Check option 'From File'
 195     printlog " Check option 'From File'"
 196     AusDateiErstellen.Check
 197     '/// Check option 'Link'
 198     printlog " Check option 'Link'"
 199     Verknuepfen.Check
 200     '/// Click on 'Browse' – button
 201     Durchsuchen.Click
 202     Kontext "OeffnenDLG"
 203     '/// Close 'Insert' – dialog with 'Cancel'
 204     printlog " Close 'Insert' – dialog with 'Cancel'"
 205     OeffnenDLG.Cancel
 206     Kontext "TabelleEinfuegenCalc"
 207     '/// Close 'Insert Sheet' – dialog with 'Cancel'
 208     printlog " Close 'Insert Sheet' – dialog with 'Cancel'"
 209     TabelleEinfuegenCalc.Cancel
 210     '/// Close document
 211     printlog " Close starting document"
 212     call hCloseDocument
 213
 214 endcase
 215
 216 '-----------------------------------------------------------
 217
 218 testcase tInsertSheetFromFile
 219 '///<u><b>Insert - Sheet From File</b></u>
 220
 221     '/// Open new Spreadsheet document
 222     printlog " Open new Spreadsheet document"
 223     call hNewDocument
 224     '/// Open 'Insert Sheet' – dialog by 'Insert – Sheet From File'
 225     printlog " Open 'Insert Sheet' – dialog by 'Insert – Sheet From File'"
 226     InsertSheetFromFile
 227     Kontext "OeffnenDLG"
 228     '/// Set filename 'spreadsheet/required/input/twosheets.ods'
 229     printlog " Set filename 'spreadsheet/required/input/twosheets.ods'"
 230     Dateiname.setText ( convertpath ( gTesttoolPath & "spreadsheet/required/input/twosheets.ods" ) )
 231     '/// Close 'Insert' – dialog with 'Insert'
 232     printlog " Close 'Insert' – dialog with 'Insert'"
 233     Oeffnen.Click
 234     Kontext "TabelleEinfuegenCalc"
 235     '/// Verify that the selected file has two sheets
 236     printlog " Verify that the selected file has two sheets"
 237     if Auswahl.GetItemCount <> 2 then
 238         warnlog "The file has more/less than two sheets"
 239     end if
 240     '/// Close 'Insert Sheet' – dialog with 'Insert'
 241     printlog " Close 'Insert Sheet' – dialog with 'Insert'"
 242     TabelleEinfuegenCalc.Cancel
 243     '/// Close document'
 244     printlog " Close starting document"
 245     call hCloseDocument
 246
 247 endcase
 248
 249 '-----------------------------------------------------------
 250
 251 testcase tInsertLink
 252 '///<u><b>Insert - Link</b></u>
 253
 254     '/// Open new Sreadsheet document
 255     printlog " Open new Spreadsheet document"
 256     call hNewDocument
 257     '/// Open 'External Data' – dialog by 'Insert – Link To External Data'
 258     printlog " Open 'External Data' – dialog by 'Insert – Link To External Data'"
 259     InsertLinkToExternalData
 260     Kontext "ExternalData"
 261     call Dialogtest (ExternalData)
 262     '/// Press browse button for URL
 263     printlog " Press browse button for URL"
 264     FileChoose.Click
 265     Kontext "OeffnenDlg"
 266     '/// Close 'Insert' – dialog with 'Cancel'
 267     printlog " Close 'Insert' – dialog with 'Cancel'"
 268     OeffnenDlg.close
 269     Kontext "ExternalData"
 270     '/// Check option 'Updata every'
 271     printlog " Check option 'Updata every'"
 272     Update.Check
 273     '/// Increase updatetimer by 1
 274     printlog " Increase updatetimer by 1"
 275     UpdateTime.More
 276     '/// Close 'External Data' – dialog with 'Cancel'
 277     printlog " Close 'External Data' – dialog with 'Cancel'"
 278     ExternalData.close
 279     '/// Close starting document
 280     printlog " Close starting document"
 281     call hCloseDocument
 282
 283 endcase
 284
 285 '-----------------------------------------------------------
 286
 287 testcase tInsertSpecialCharacters
 288 '///<u><b>Insert - Special Characters</b></u>
 289
 290     '///Open new Spreadsheet document
 291     printlog " Open new Spreadsheet document"
 292     call hNewDocument
 293     '/// Open 'Special Characters' – dialog by 'Insert – Special Characters'
 294     printlog " Open 'Special Characters' – dialog by 'Insert – Special Characters'"
 295     InsertSpecialCharacterCalc
 296     Kontext "Sonderzeichen"
 297     DialogTest ( Sonderzeichen )
 298     '/// Change 'Font' to next one
 299     printlog " Change 'Font' to next one"
 300         if Schrift.GetItemCount = Schrift.GetSelIndex then
 301                         Schrift.Select(Schrift.GetSelIndex -1)
 302                 else Schrift.Select(Schrift.GetSelIndex +1)
 303         end if
 304     '/// Change 'Subset' to next one
 305     printlog " Change 'Subset' to next one"
 306     If Subset.IsVisible then
 307                 if Subset.GetItemCount = Subset.GetSelIndex then
 308                         Subset.Select(Subset.GetSelIndex -1)
 309                 else Subset.Select(Subset.GetSelIndex +1)
 310                 end if
 311     end if
 312     '/// Choose a character by clicking
 313     printlog " Choose a character by clicking"
 314     Zeichenanzeige.MouseDown 50,50
 315     Zeichenanzeige.MouseUp 50,50
 316     '/// Delete character by 'Delete'
 317     printlog " Delete character by 'Delete'"
 318     Loeschen.Click
 319     '/// Close 'Special Characters' – dialog with 'Cancel'
 320     printlog " Close 'Special Characters' – dialog with 'Cancel'"
 321     Sonderzeichen.Cancel
 322     '/// Close document
 323     printlog " Close starting document"
 324     call hCloseDocument
 325
 326 endcase
 327
 328 '-----------------------------------------------------------
 329
 330 testcase tInsertFormattingMark
 331 '///<u><b>Insert - Formatting Mark</b></u>
 332
 333     Dim bAsianLanguage as boolean
 334     Dim bCTLlanguage as boolean
 335
 336     '/// Open new Spreadsheet document
 337     printlog " Open new Spreadsheet document"
 338     call hNewDocument
 339     '/// Enable support for CJK and CTL by 'Tools-Options-Language Settings'
 340     printlog " Enable support for CJK and CTL by 'Tools-Options-Language Settings'"
 341     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 342     bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
 343     '/// Select cell A1
 344     printlog " Select cell A1"
 345     call fCalcSelectRange ("A1")
 346     '/// Enter 'Test' in cell 'A1' to activate editmode
 347     printlog " Enter 'Test' in cell 'A1' to activate editmode"
 348     DocumentCalc.TypeKeys "Test"
 349     '/// Enter in cell 'Insert – Formatting Mark – Non-Breaking Space'
 350     printlog " Enter in cell 'A' and 'Insert – Formatting Mark – Non-Breaking Space'"
 351     InsertNonBreakingSpace
 352     '/// Enter in cell 'Insert – Formatting Mark – Non-Breaking Hyphen'
 353     printlog " Enter in cell 'Insert – Formatting Mark – Non-Breaking Hyphen'"
 354     InsertHardHyphen
 355     '/// Enter in cell 'Insert – Formatting Mark – Optional Hyphen'
 356     printlog " Enter in cell 'Insert – Formatting Mark – Optional Hyphen'"
 357     InsertSoftHyphen
 358     '/// Enter in cell 'Insert – Formatting Mark – No-Width Optional Break'
 359     printlog " Enter in cell 'Insert – Formatting Mark – No-Width Optional Break'"
 360     InsertZWSP
 361     '/// Enter in cell 'Insert – Formatting Mark – No-Width no break'
 362     printlog " Enter in cell 'Insert – Formatting Mark – No-Width no break'"
 363     InsertZWNBSP
 364     '/// Enter in cell 'Insert – Formatting Mark – Left-to-right-mark'
 365     printlog "/ Enter in cell 'Insert – Formatting Mark – Left-to-right-mark'"
 366     InsertLRM
 367     '/// Enter in cell 'Insert – Formatting Mark – right-to-left-mark'
 368     printlog " Enter in cell 'Insert – Formatting Mark – right-to-left-mark'"
 369     InsertRLM
 370     '/// Leave cell with 'Enter'
 371     printlog " Leave cell with 'Enter'"
 372     DocumentCalc.TypeKeys "<Return>"
 373     '/// Set support for CTL and CJK back to defaults
 374     printlog " Set support for CTL and CJK back to defaults"
 375     if bAsianLanguage = FALSE then
 376         Call ActiveDeactivateAsianSupport(FALSE)
 377     end if
 378     if bCTLLanguage = FALSE then
 379         Call ActiveDeactivateCTLSupport(FALSE)
 380     end if
 381     '/// Close document
 382     printlog " Close starting document"
 383     call hCloseDocument
 384
 385 endcase
 386
 387 '-----------------------------------------------------------
 388
 389 testcase tInsertHyperlink
 390 '///<u><b>Insert - Hyperlink</b></u>
 391
 392     '/// Open new Spreadsheet document
 393     printlog " Open new Spreadsheet document"
 394     call hNewDocument
 395     '/// Open 'Hyperlink' – dialog via 'Insert – Hyperlink'
 396     printlog " Open 'Hyperlink' – dialog via 'Insert – Hyperlink'"
 397     InsertHyperlink
 398
 399     kontext "HyperlinkDialog"
 400     if ( HyperlinkDialog.exists( 2 ) ) then
 401
 402         Kontext "Hyperlink"
 403         '/// Switch to category 'Internet' (first one)
 404         printlog " Switch to category 'Internet'"
 405         Auswahl.TypeKeys "<HOME>"
 406         '/// Choose 'Web'
 407         printlog " Choose 'Web'"
 408         Kontext "TabHyperlinkInternet"
 409         internet.check
 410         Call DialogTest ( TabHyperlinkInternet,1 )
 411         '/// Click on 'Target in Document' – button (the target dialog appears)
 412         printlog " Click on 'Target in Document' – button (the target dialog appears)"
 413         Target.Click
 414         Kontext "ZielImDokument"
 415         Call DialogTest ( ZielImDokument )
 416         '/// Close 'Target' – dialog with 'Close'
 417         printlog " Close 'Target' – dialog with 'Close'"
 418         ZielImDokument.Close
 419         Kontext "TabHyperlinkInternet"
 420         '/// Choose 'FTP'
 421         printlog " Choose 'FTP'"
 422         FTP.check
 423         Call DialogTest ( TabHyperlinkInternet,2 )
 424         '/// Check that the 'Target' – button is disabled
 425         printlog " Check that the 'Target' – button is disabled"
 426         if Target.IsEnabled then
 427             warnlog "The target button is enabled, but should be disabled"
 428         end if
 429         '/// Check option 'Anonymous User'
 430         printlog " Check option 'Anonymous User'"
 431         AnonymerBenutzer.Check
 432         '/// Check that 'Login Name' is disabled
 433         printlog " Check that 'Login Name' is disabled"
 434         if Loginname.IsEnabled then
 435             warnlog "The Loginname is enabled, but should be disabled"
 436         end if
 437         '/// Chose 'Telnet'
 438         printlog " Chose 'Telnet'"
 439         Telnet.check
 440         Call DialogTest ( TabHyperlinkInternet,3 )
 441         '/// Check that the 'Target' – button is disabled
 442         printlog " Check that the 'Target' – button is disabled"
 443         if Target.IsEnabled then
 444             warnlog "The target button is enabled, but should be disabled"
 445         end if
 446         '/// Switch to category 'Mail & News'
 447         Kontext "Hyperlink"
 448         Auswahl.TypeKeys "<DOWN>"
 449         Kontext "TabHyperlinkMailUndNews"
 450         Call DialogTest ( TabHyperlinkMailUndNews )
 451         '/// Click twice on 'Data Source' – button to turn on / off the databasebeamer
 452         printlog " Click twice on 'Data Source' – button to turn on / off the databasebeamer"
 453         Adressbuch.click
 454         Adressbuch.click
 455         '/// Check option 'Mail'
 456         printlog " Check option 'Mail'"
 457         EMail.check
 458         '/// Check that the editfield for 'Receiver' is enabled
 459         printlog " Check that the editfield for 'Receiver' is enabled"
 460         if not Receiver.IsEnabled then
 461             warnlog "Receiver is disabled but should be enabled"
 462         end if
 463         '/// Check that the editfield for 'Subject' is enabled
 464         printlog " Check that the editfield for 'Subject' is enabled"
 465         if not Betreff.IsEnabled then
 466             warnlog "Subject is disabled but should be enabled"
 467         end if
 468         '/// Check option 'News'
 469         printlog " Check option 'News'"
 470         News.check
 471         '/// Check that the editfield for 'Subject' is disabled
 472         printlog " Check that the editfield for 'Subject' is disabled"
 473         if Betreff.IsEnabled then
 474             warnlog "Subject is enabled but should be disabled"
 475         end if
 476         '/// Switch to category Document
 477         printlog " Switch to category Document"
 478         Kontext "Hyperlink"
 479         Auswahl.TypeKeys "<DOWN>"
 480         Kontext "TabHyperlinkDokument"
 481         Call DialogTest ( TabHyperlinkDokument )
 482         '/// Enter 'Test' in 'Path'
 483         printlog " Enter 'Test' in 'Path'"
 484         Path.TypeKeys "Test"
 485         '/// Click on 'Open' – button
 486         printlog " Click on 'Open' – button"
 487         DateiOeffnen.click
 488         Kontext "OeffnenDlg"
 489         '/// Close 'Open' – dialog with 'Cancel'
 490         printlog " Close 'Open' – dialog with 'Cancel'"
 491         OeffnenDlg.Cancel
 492         Kontext "TabHyperlinkDokument"
 493         '/// Click on 'Target in Document' – button (the target dialog appears)
 494         printlog " Click on 'Target in Document' – button (the target dialog appears)"
 495         Target.click
 496         Kontext "ZielImDokument"
 497         '/// Close 'Target' – dialog with 'Close'
 498         printlog " Close 'Target' – dialog with 'Close'"
 499         ZielImDokument.close
 500         Kontext "Hyperlink"
 501         '/// Switch to category 'New Document'
 502         printlog " Switch to category 'New Document'"
 503         Auswahl.TypeKeys "<DOWN>"
 504         Kontext "TabHyperlinkNeuesDokument"
 505         Call DialogTest ( TabHyperlinkNeuesDokument )
 506         '/// Check 'Edit Now'
 507         printlog " Click 'Edit Now'"
 508         SofortBearbeiten.check
 509         '/// Check 'Edit Later'
 510         printlog " Click 'Edit Later'"
 511         SpaeterBearbeiten.check
 512         '/// Click on 'Select Path' – button
 513         printlog " Click on 'Select Path' – button"
 514         Pfad.click
 515         Kontext "OeffnenDlg"
 516         '/// Close 'Select Path' – dialog with 'Cancel'
 517         printlog " Close 'Select Path' – dialog with 'Cancel'"
 518         OeffnenDlg.Cancel
 519         Kontext "TabHyperlinkNeuesDokument"
 520         '/// Check that the 'Frame' listbox has items
 521         printlog " Check that the 'Frame' listbox has items"
 522         if Frame.GetItemCount < 1 then
 523             warnlog "The Frame combobox is empty"
 524         end if
 525         '/// Check that the 'Form' listbox has 2 entries
 526         printlog " Check that the 'Form' listbox has 2 entries"
 527         if Form.GetItemCount <> 2 then
 528             warnlog "The Form combobox has not 2 items"
 529         end if
 530         '/// Close 'Hyperlink' – dialog with 'Close'
 531         printlog " Close 'Hyperlink' – dialog with 'Close'"
 532         kontext "HyperlinkDialog"
 533         HyperlinkDialog.Close()
 534     else
 535         warnlog( "Failed to open <HyperlinkDialog>" )
 536     endif
 537     '/// Close document
 538     printlog " Close starting document"
 539     call hCloseDocument
 540
 541 endcase
 542
 543 '-----------------------------------------------------------
 544
 545 testcase tInsertFunction
 546 '///<u><b>Insert - Function</b></u>
 547
 548     Dim ifunctionCount as integer
 549     Dim ifunctionIndex as integer
 550
 551     '/// Open new Spreadsheet document
 552     printlog " Open new Spreadsheet document"
 553     call hNewDocument
 554     '/// Open the 'Function Wizard' via 'Insert – Function'
 555     printlog " Open the 'Function Wizard' via 'Insert – Function'"
 556     InsertFunction
 557     Kontext "FunctionWizard"
 558     '/// Check that there are 13 entries in the category listbox
 559     printlog " Check that there are 13 entries in the category listbox"
 560     if CategoryLB.GetItemCount <> 13 then
 561         warnlog "There are " &  CategoryLB.GetItemCount & " categories instead of 13"
 562     end if
 563     '/// Choose the second entry (all) in the category listbox
 564     printlog " Choose the second entry (all) in the category listbox"
 565     CategoryLB.Select(2)
 566     '/// Choose all entries in the function list and click 'Next' button
 567     printlog " Choose all entries in the function list"
 568     ifunctionCount = FunctionLB.getItemCount
 569     for ifunctionIndex = 1 To ifunctionCount
 570         CategoryLB.Select(2)
 571         FunctionLB.Select(ifunctionIndex)
 572 '        sleep(1)
 573         printlog FunctionLB.GetSelText
 574         call DialogTest ( FunctionWizard,ifunctionIndex )
 575         '/// Click on 'Next' – button
 576         Forward.Click
 577         call DialogTest ( FunctionWizard,(ifunctionCount + ifunctionIndex) )
 578         Formel.typekeys "<MOD1 A><DELETE>", true
 579     next ifunctionIndex
 580     '/// Check option 'Array'
 581     printlog " Check option 'Array'"
 582     Matrix.check
 583     '/// Choose the third entry (database) in the category listbox
 584     printlog " Choose the third entry (database) in the category listbox"
 585     CategoryLB.Select(3)
 586     '/// Choose first function
 587     printlog " Choose first function"
 588     FunctionLB.Select (1)
 589     '/// Click on 'Next' button
 590     printlog " Click on 'Next' button"
 591     Forward.Click
 592     '/// Click on 'Shrink' – button; the range chooser appears
 593     printlog " Click on 'Shrink' – button; the range chooser appears"
 594     Shrink1.click
 595     '/// Enter 'A1' in rangechooser
 596     printlog " Enter 'A1' in rangechooser"
 597     Editfield1.SetText ("A1")
 598     '/// Click on 'Maximize' – button
 599     printlog " Click on 'Maximize' – button"
 600     maximize.click
 601     '/// Click on 'fx' – button
 602     printlog " Click on 'fx' – button"
 603     Functionsbutton1.click
 604     '/// Switch to tabpage 'Structure'
 605     printlog " Switch to tabpage 'Structure'"
 606     Kontext "FunctionWizardTabControl"
 607     FunctionWizardTabControl.setpage TabFunctionWizardStructure
 608     Kontext "FunctionWizard"
 609     call DialogTest ( FunctionWizard,((ifunctionCount *2)+1) )
 610     '/// Close dialog with 'Cancel'
 611     printlog " Close dialog with 'Cancel'"
 612     FunctionWizard.Cancel
 613     '/// Close document
 614     printlog " Close starting document"
 615     call hCloseDocument
 616
 617 endcase
 618
 619 '-----------------------------------------------------------
 620
 621 testcase tInsertFunctionList
 622 '///<u><b>Insert - Function List</b></u>
 623
 624     '/// Open new Spreadsheet document
 625     printlog " Open new Spreadsheet document"
 626     call hNewDocument
 627     '/// Check if 'function list' is already opened
 628     printlog " Check if 'function list' is already opened"
 629     Kontext "FunctionsCalc"
 630     if FunctionsCalc.Exists(2) then
 631         printlog "Functions List was already open"
 632     else
 633         '/// Open 'function list' by 'Insert – Function List'
 634         printlog " Open 'function list' by 'Insert – Function List'"
 635         InsertFunctionList
 636     end if
 637     '/// Check that there are 13 categories in the listbox
 638     printlog " Check that there are 13 categories in the listbox"
 639     if Category.GetItemCount <> 13 then
 640         warnlog "The count of categories is " & Category.GetItemCount & " instead of 13"
 641     end if
 642     '/// Click on second function
 643     printlog " Click on second function"
 644     FunctionList.Select(2)
 645     call DialogTest ( FunctionsCalc )
 646     '/// Click on 'Insert' – button to insert the function into the cell
 647     printlog " Click on 'Insert' – button to insert the function into the cell"
 648     FunctionInsert.click
 649     '/// Press 'ESC' to leave insert mode
 650     printlog " Press 'ESC' to leave insert mode"
 651     kontext "DocumentCalc"
 652     DocumentCalc.TypeKeys "<ESCAPE>"
 653     '/// Close function list by 'Insert – Function list'
 654     printlog " Close function list by 'Insert – Function list'"
 655     InsertFunctionList
 656     '/// Close document
 657     printlog " Close starting document"
 658     call hCloseDocument
 659
 660 endcase
 661
 662 '-----------------------------------------------------------
 663
 664 testcase tInsertNamesDefine
 665 '///<u><b>Insert - Names – Define</b></u>
 666
 667     '/// Open new Spreadsheet document
 668     printlog " Open new Spreadsheet document"
 669     call hNewDocument
 670     '/// Open 'Define Names' -dialog by 'Insert – Names – Define'
 671     printlog " Open 'Define Names' -dialog by 'Insert – Names – Define'"
 672     InsertNamesDefine
 673     Kontext "NamenFestlegen"
 674     '/// Click on 'More' – button
 675     printlog " Click on 'More' – button"
 676     Zusaetze.Click
 677     DialogTest ( NamenFestlegen )
 678     '/// Check that the 'Add' – button is disabled
 679     printlog " Check that the 'Add' – button is disabled"
 680     if Hinzufuegen.IsEnabled then
 681         warnlog "'Add' is enabled but should be disabled"
 682     end if
 683     '/// Check that the 'Delete' – button is disabled
 684     printlog " Check that the 'Delete' – button is disabled"
 685     if Loeschen.IsEnabled then
 686         warnlog "'Delete' is enabled but should be disabled"
 687     end if
 688     '/// Check that the 'Shrink' – button is disabled
 689     printlog " Check that the 'Shrink' – button is disabled"
 690     if ZugeordnetZuButton.IsEnabled then
 691         warnlog "'Shrink' is enabled but should be disabled"
 692     end if
 693     '/// Check that the 'Print Range' option is disabled
 694     printlog " Check that the 'Print Range' option is disabled"
 695     if Druckbereich.IsEnabled then
 696         warnlog "'Printrange' is enabled but should be disabled"
 697     end if
 698     '/// Check that the 'Filter' option is disabled
 699     printlog " Check that the 'Filter' option is disabled"
 700     if Filter.IsEnabled then
 701         warnlog "'Filter' is enabled but should be disabled"
 702     end if
 703     '/// Check that the 'Repeat Column' option is disabled
 704     printlog " Check that the 'Repeat Column' option is disabled"
 705     if Wiederholungsspalte.IsEnabled then
 706         warnlog "'Repeat Column' is enabled but should be disabled"
 707     end if
 708     '/// Check that the 'Repeat Row' option is disabled
 709     printlog " Check that the 'Repeat Row' option is disabled"
 710     if Wiederholungszeile.IsEnabled then
 711         warnlog "'Repeat Row' is enabled but should be disabled"
 712     end if
 713     '/// Enter the name 'Test'
 714     printlog " Enter the name 'Test'"
 715     BereichsName.SetText "Test"
 716     '/// Press the 'Shrink' – button
 717     printlog " Press the 'Shrink' – button"
 718     ZugeordnetZuButton.click
 719     '/// Click on 'Maximize' – button
 720     printlog " Click on 'Maximize' – button"
 721     ZugeordnetZuButton.click
 722     '/// Check the 'Print Range' option
 723     printlog " Check the 'Print Range' option"
 724     Druckbereich.check
 725     '/// Check the 'Filter' option
 726     printlog " Check the 'Filter' option"
 727     Filter.check
 728     '/// Check the 'Repeat Column' option
 729     printlog " Check the 'Repeat Column' option"
 730     Wiederholungsspalte.check
 731     '/// Check the 'Repeat Row' option
 732     printlog " Check the 'Repeat Row' option"
 733     Wiederholungszeile.check
 734     '/// Press the 'Add' – button
 735     printlog " Press the 'Add' – button"
 736     Hinzufuegen.click
 737     '/// Choose the 'Test' name
 738     printlog " Choose the 'Test' name"
 739     BereichsName.Select "Test"
 740     '/// Press the 'Delete' – button
 741     printlog " Press the 'Delete' – button"
 742     Loeschen.click
 743     '/// On appearing messagebox click 'Yes'
 744     printlog " On appearing messagebox click 'Yes'"
 745     kontext "Active"
 746      if Active.exists( 2 ) then
 747          Active.Yes
 748      end if
 749     '/// Close dialog with 'Cancel'
 750     printlog " Close dialog with 'Cancel'"
 751     Kontext "NamenFestlegen"
 752     NamenFestlegen.Cancel
 753     '/// Close the document
 754     printlog " Close starting document"
 755     call hCloseDocument
 756
 757 endcase
 758
 759 '-----------------------------------------------------------
 760
 761 testcase tInsertNamesInsert
 762 '///<u><b>Insert - Names – Define</b></u>
 763
 764     '/// Open new Spreadsheet document
 765     printlog " Open new Spreadsheet document"
 766     call hNewDocument
 767     '/// Select cell A1
 768     printlog " Select cell A1"
 769     call fCalcSelectRange ("A1")
 770     '/// Open 'Define Names' -dialog by 'Insert – Names – Define'
 771     printlog " Open 'Define Names' -dialog by 'Insert – Names – Define'"
 772     InsertNamesDefine
 773     Kontext "NamenFestlegen"
 774     '/// Enter the name 'Test'
 775     printlog " Enter the name 'Test'"
 776     BereichsName.SetText "Test"
 777     '/// Press the 'Add' – button
 778     printlog " Press the 'Add' – button"
 779     Hinzufuegen.click
 780     '/// Close dialog with 'OK'
 781     printlog " Close dialog with 'OK'"
 782     NamenFestlegen.OK
 783     '/// Select cell D4
 784     printlog " Select cell D4"
 785     call fCalcSelectRange ("D4")
 786     '/// Open 'Insert Names' – dialog by 'Insert – Names – Insert'
 787     printlog " Open 'Insert Names' – dialog by 'Insert – Names – Insert'"
 788     InsertNamesInsert
 789     Kontext "NamenEinfuegen"
 790     Call DialogTest ( NamenEinfuegen )
 791     '/// Select name 'Test'
 792     printlog " Select name 'Test'"
 793     NamenAuswahl.Select "Test"
 794     '/// Press 'OK' – button (the dialog will be closed)
 795     printlog " Press 'OK' – button (the dialog will be closed)"
 796     NamenEinfuegen.OK
 797     '/// Press 'Enter' to leave the editmode of the cell
 798     printlog " Press 'Enter' to leave the editmode of the cell"
 799     kontext "DocumentCalc"
 800     DocumentCalc.TypeKeys "<ESCAPE>"
 801     '/// Open 'Define Names' -dialog by 'Insert – Names – Insert'
 802     printlog " Open 'Define Names' -dialog by 'Insert – Names – Insert'"
 803     InsertNamesInsert
 804     Kontext "NamenEinfuegen"
 805     '/// Press 'Insert All' – button (the dialog will be closed)
 806     printlog " Press 'Insert All' – button (the dialog will be closed)"
 807     Liste.click
 808     '/// Close document
 809     printlog " Close starting document"
 810     call hCloseDocument
 811
 812 endcase
 813
 814 '-----------------------------------------------------------
 815
 816 testcase tInsertNamesCreate
 817 '///<u><b>Insert - Names – Create</b></u>
 818
 819     '/// Open new Spreadsheet document
 820     printlog " Open new Spreadsheet document"
 821     call hNewDocument
 822     '/// Open 'Create Names' – dialog by 'Insert – Names – Create'
 823     printlog " Open 'Create Names' – dialog by 'Insert – Names – Create'"
 824     InsertNameCreate
 825     Kontext "NamenErzeugen"
 826     DialogTest ( NamenErzeugen )
 827     '/// Check option 'Top row'
 828     printlog " Check option 'Top row'"
 829     Kopfzeile.check
 830     '/// Check option 'Left column'
 831     printlog " Check option 'Left column'"
 832     LinkerSpalte.check
 833     '/// Check option 'Bottom row'
 834     printlog " Check option 'Bottom row'"
 835     Fusszeile.check
 836     '/// Check option 'Right column'
 837     printlog " Check option 'Right column'"
 838     RechterSpalte.check
 839     '/// Press 'OK' button
 840     printlog " Press 'OK' button"
 841     NamenErzeugen.OK
 842     '/// Close warningbox with 'OK'
 843     printlog " Close warningbox with 'OK'"
 844     Kontext
 845     if active.exists (1) then
 846         active.ok
 847     end if
 848     '/// Enter 'Create Names Test' in cell A1
 849     printlog " Enter 'Create Names Test' in cell A1"
 850     call fCalcSelectRange ("A1")
 851     DocumentCalc.TypeKeys "Create Names Test<RETURN>"
 852     '/// Select cells A1:A4
 853     printlog " Select cells A1:A4"
 854     call fCalcSelectRange ("A1:A4")
 855     '/// Open 'Create Names' – dialog by 'Insert – Names – Create'
 856     printlog " Open 'Create Names' – dialog by 'Insert – Names – Create'"
 857     InsertNameCreate
 858     Kontext "NamenErzeugen"
 859     '/// Check that option 'Top row' is selected
 860     printlog " Check that option 'Top row' is selected"
 861     if not Kopfzeile.IsChecked then
 862         warnlog "The header was not autodetected"
 863     end if
 864     '/// Press 'OK' button
 865     printlog " Press 'OK' button"
 866     NamenErzeugen.OK
 867     '/// Select cells A1:A3
 868     printlog " Select cells A1:A3"
 869     call fCalcSelectRange ("A1:A3")
 870     '/// Open 'Create Names' – dialog by 'Insert – Names – Create'
 871     printlog " Open 'Create Names' – dialog by 'Insert – Names – Create'"
 872     InsertNameCreate
 873     Kontext "NamenErzeugen"
 874     '/// Press 'OK' button
 875     printlog " Press 'OK' button"
 876     NamenErzeugen.OK
 877     '/// Close replacing messagebox with 'Cancel'
 878     printlog " Close replacing messagebox with 'Cancel'"
 879     Kontext
 880     if active.exists (1) then
 881         active.cancel
 882     end if
 883     '/// Close document
 884     printlog " Close starting document"
 885     call hCloseDocument
 886
 887 endcase
 888
 889 '-----------------------------------------------------------
 890
 891 testcase tInsertNamesLabels
 892 '///<u><b>Insert - Names – Labels</b></u>
 893
 894     '/// Open new Spreadsheet document
 895     printlog " Open new Spreadsheet document"
 896     call hNewDocument
 897     '/// Open 'Define Label Range' – dialog by 'Insert – Names – Labels'
 898     printlog " Open 'Define Label Range' – dialog by 'Insert – Names – Labels'"
 899     InsertNamesLabels
 900     Kontext "BeschriftungsbereichFestlegen"
 901     DialogTest ( BeschriftungsbereichFestlegen )
 902     '/// Press 'Shrink' button for range
 903     printlog " Press 'Shrink' button for range"
 904     ButtonZellbereich.Click
 905     '/// Press 'Maximize' button on rangechooser
 906     printlog " Press 'Maximize' button on rangechooser"
 907     ButtonZellbereich.Click
 908     '/// Press 'Shrink' button for data range
 909     printlog " Press 'Shrink' button for data range"
 910     ButtonDatenbereich.Click
 911     '/// Press 'Maximize' button on rangechooser
 912     printlog " Press 'Maximize' button on rangechooser"
 913     ButtonDatenbereich.Click
 914     '/// Switch between 'Contains ...' options
 915     printlog " Switch between 'Contains ...' options"
 916     Zeilenkoepfe.Check
 917     Spaltenkoepfe.Check
 918     '/// Press 'Add' – button
 919     printlog " Press 'Add' – button"
 920     Hinzufuegen.Click
 921     '/// Select range
 922     printlog " Select range"
 923     Bereich.Select (2)
 924     '/// Press 'Delete' – button
 925     printlog " Press 'Delete' – button"
 926     Loeschen.Click
 927     '/// Confirm mesagebox with 'Yes'
 928     printlog " Confirm mesagebox with 'Yes'"
 929     Kontext
 930     if active.exists then
 931         active.Yes
 932     end if
 933     Kontext "BeschriftungsbereichFestlegen"
 934     '/// Close 'Define Label Range' – dialog with 'Cancel'
 935     printlog " Close 'Define Label Range' – dialog with 'Cancel'"
 936     BeschriftungsbereichFestlegen.Cancel
 937     '/// Close document
 938     printlog " Close starting document"
 939     call hCloseDocument
 940
 941 endcase
 942
 943 '-----------------------------------------------------------
 944
 945 testcase tInsertNote
 946 '///<u><b>Insert - Note</b></u>
 947
 948     '/// Open new Spreadsheet document
 949     printlog " Open new Spreadsheet document"
 950     call hNewDocument
 951     '/// Insert a note via 'Insert – Note'
 952     printlog " Insert a note via 'Insert – Note'"
 953     InsertNoteCalc
 954     Kontext
 955     '/// Enter 'This is a <Return> Testtext' into the note
 956     printlog " Enter 'This is a <Return> Testtext' into the note"
 957     DocumentCalc.TypeKeys "This is a <Return> Testtext"
 958     '/// Leave note with <Escape>
 959     printlog " Leave note with <Escape>"
 960     DocumentCalc.TypeKeys "<Escape>"
 961     '/// Close document
 962     printlog " Close starting document"
 963     call hCloseDocument
 964
 965 endcase
 966
 967 '-----------------------------------------------------------
 968
 969 testcase tInsertPictureFromFile
 970 '///<u><b>Insert - Picture – From File</b></u>
 971
 972     '/// Open new Spreadsheet document
 973     printlog " Open new Spreadsheet document"
 974     call hNewDocument
 975     '/// Open 'Insert Picture' – dialog by 'Insert – Picture – From File'
 976     printlog " Open 'Insert Picture' – dialog by 'Insert – Picture – From File'"
 977     InsertGraphicsFromFile
 978     Kontext "GrafikEinfuegenDlg"
 979     Call DialogTest (GrafikEinfuegenDlg)
 980     '/// Enter filename 'global\input\graf_inp\'
 981     printlog " Enter filename 'global\input\graf_inp\borabora.jpg'"
 982     Dateiname.Settext convertpath(gTesttoolpath + "global\input\graf_inp\borabora.jpg")
 983     '/// Verify that there are more than one filter available
 984     printlog " Verify that there are more than one filter available"
 985     if Dateityp.GetItemCount < 2 then
 986         warnlog "The filterlist is empty"
 987     end if
 988     '/// Check 'Link' – option
 989     printlog " Check 'Link' – option"
 990     Link.Check
 991     '/// Check 'Preview' - option
 992     printlog " Check 'Preview' - option"
 993     Preview.Check
 994     '/// Close dialog with 'Open'
 995     printlog " Close dialog with 'Open'"
 996     Oeffnen.Click
 997     '/// Close document
 998     printlog " Close starting document"
 999     call hCloseDocument
1000
1001 endcase
1002
1003 '-----------------------------------------------------------
1004
1005 testcase tInsertMovieSound
1006 '///<u><b>Insert - Movie and Sound</b></u>
1007
1008     '/// Open new Spreadsheet document
1009     printlog " Open new Spreadsheet document"
1010     call hNewDocument
1011     '/// Open 'Insert Movie and Sound' – dialog by 'Insert – Movie and Sound'
1012     printlog " Open 'Insert Movie and Sound' – dialog by 'Insert – Movie and Sound'"
1013     InsertMovieAndSound
1014     Kontext "OeffnenDLG"
1015     '/// Verify that there are more than one filter available
1016     printlog " Verify that there are more than one filter available"
1017     if Dateityp.GetItemCount < 2 then
1018         warnlog "The filterlist is empty"
1019     end if
1020     '/// Close dialog with 'Cancel'
1021     printlog " Close dialog with 'Cancel'"
1022     OeffnenDLG.Cancel
1023     '/// Close document
1024     printlog " Close starting document"
1025     call hCloseDocument
1026
1027 endcase
1028
1029 '-----------------------------------------------------------
1030
1031 testcase tInsertObjectOLE
1032 '///<u><b>Insert - Object – OLE Object</b></u>
1033
1034     '/// Open new Spreadsheet document
1035     printlog " Open new Spreadsheet document"
1036     call hNewDocument
1037     '/// Open 'Insert OLE Object' – dialog  by 'Insert – Object – OLE Object'
1038     printlog " Open 'Insert OLE Object' – dialog  by 'Insert – Object – OLE Object'"
1039     InsertObjectOLEObject
1040     Kontext "OLEObjektEinfuegen"
1041     '/// Choose 'Create new'
1042     printlog " Choose 'Create new'"
1043     NeuErstellen.Check
1044     Call DialogTest (OLEObjektEinfuegen, 1)
1045     '/// Check that there are more than 1 entries (amount is dependant from operating system)
1046     printlog " Check that there are more than 1 entries (amount is dependant from operating system)"
1047     if Objekttyp.getitemcount < 2 then
1048         warnlog "There are no OLE-Objects in the listbox"
1049     end if
1050     '/// Choose 'Create from file'
1051     printlog " Choose 'Create from file'"
1052     AusDateierstellen.Check
1053     Call DialogTest (OLEObjektEinfuegen, 2)
1054     '/// Click on 'Search' – button
1055     printlog " Click on 'Search' – button"
1056     Durchsuchen.Click
1057     Kontext "OeffnenDLG"
1058     '/// Close 'Open' – dialog with 'Cancel'
1059     printlog " Close 'Open' – dialog with 'Cancel'"
1060     OeffnenDLG.Cancel
1061     Kontext "OLEObjektEinfuegen"
1062     '/// Check option 'Link to file'
1063     printlog " Check option 'Link to file'"
1064     Verknuepfen.check
1065     '/// Close dialog with 'Cancel'
1066     printlog " Close dialog with 'Cancel'"
1067     OLEObjektEinfuegen.Cancel
1068     '/// Close document
1069     printlog " Close starting document"
1070     call hCloseDocument
1071
1072 endcase
1073
1074 '-----------------------------------------------------------
1075
1076 testcase tInsertObjectPlugin
1077 '///<u><b>Insert - Object – Plug-in</b></u>
1078
1079     '/// Open new Spreadsheet document
1080     printlog " Open new Spreadsheet document"
1081     call hNewDocument
1082     '/// Open 'Insert Plug-in' – dialog by 'Insert – Object – Plug-in'
1083     printlog " Open 'Insert Plug-in' – dialog by 'Insert – Object – Plug-in'"
1084     InsertObjectPlugIn
1085     Kontext "PlugInEinfuegen"
1086     Call DialogTest (PlugInEinfuegen)
1087     '/// Click on 'Browse' – button
1088     printlog " Click on 'Browse' – button"
1089     DurchSuchen.Click
1090     Kontext "OeffnenDLG"
1091     '/// Click on 'Default Directory' – button
1092     printlog " Click on 'Default Directory' – button"
1093     Standard.click
1094     '/// Click on 'Create New Directory' – button
1095     printlog " Click on 'Create New Directory' – button"
1096     NeuerOrdner.Click
1097     Kontext "NeuerOrdner"
1098     '/// Close namedialog with 'Cancel'
1099     printlog " Close namedialog with 'Cancel'"
1100     NeuerOrdner.cancel
1101     Kontext "OeffnenDLG"
1102     '/// Close 'Open' – dialog with 'Cancel'
1103     printlog " Close 'Open' – dialog with 'Cancel'"
1104     OeffnenDlg.Cancel
1105     '/// Close 'Insert Plug-in' – dialog with 'Cancel'
1106     printlog " Close 'Insert Plug-in' – dialog with 'Cancel'"
1107     Kontext "PluginEinfuegen"
1108     PlugInEinfuegen.Cancel
1109     '/// Close document
1110     printlog " Close starting document"
1111     call hCloseDocument
1112
1113 endcase
1114
1115 '-----------------------------------------------------------
1116
1117 testcase tInsertObjectSound
1118 '///<u><b>Insert - Object – Sound</b></u>
1119
1120     '/// Open new Spreadsheet document
1121     printlog " Open new Spreadsheet document"
1122     call hNewDocument
1123     try
1124         '/// If enabled (depends on additional instalations on the OS) open the 'Insert Sound' – dialog by 'Insert – Object – Sound'
1125         printlog " If enabled (depends on additional instalations on the OS) open the 'Insert Sound' – dialog by 'Insert – Object – Sound'"
1126         InsertObjectSound
1127         Kontext "OeffnenDlg"
1128         '/// Click on 'Default Directory' – button
1129         printlog " Click on 'Default Directory' – button"
1130         Standard.click
1131         '/// Click on 'Create New Directory' – button
1132         printlog " Click on 'Create New Directory' – button"
1133         NeuerOrdner.Click
1134         Kontext "NeuerOrdner"
1135         '/// Close namedialog with 'Cancel'
1136         printlog " Close namedialog with 'Cancel'"
1137         NeuerOrdner.cancel
1138         Kontext "OeffnenDLG"
1139         '/// Close 'Open' – dialog with 'Cancel'
1140         printlog " Close 'Open' – dialog with 'Cancel'"
1141         OeffnenDlg.Cancel
1142     catch
1143         printlog "Insert - Object - Sound is not possible on this machine"
1144     endcatch
1145     '/// Close document
1146     printlog " Close starting document"
1147     call hCloseDocument
1148
1149 endcase
1150
1151 '-----------------------------------------------------------
1152
1153 testcase tInsertObjectVideo
1154 '///<u><b>Insert - Object – Video</b></u>
1155
1156     '/// Open new Spreadsheet document
1157     printlog " Open new Spreadsheet document"
1158     call hNewDocument
1159 try
1160         '/// If enabled (depends on additional instalations on the OS) open the 'Insert Video' – dialog by 'Insert – Object – Sound'
1161         printlog " If enabled (depends on additional instalations on the OS) open the 'Insert Video' – dialog by 'Insert – Object – Sound'"
1162         InsertObjectVideo
1163         Kontext "OeffnenDlg"
1164         '/// Click on 'Default Directory' – button
1165         printlog " Click on 'Default Directory' – button"
1166         Standard.click
1167         '/// Click on 'Create New Directory' – button
1168         printlog " Click on 'Create New Directory' – button"
1169         NeuerOrdner.Click
1170         Kontext "NeuerOrdner"
1171         '/// Close namedialog with 'Cancel'
1172         printlog " Close namedialog with 'Cancel'"
1173         NeuerOrdner.cancel
1174         Kontext "OeffnenDLG"
1175         '/// Close 'Open' – dialog with 'Cancel'
1176         printlog " Close 'Open' – dialog with 'Cancel'"
1177         OeffnenDlg.Cancel
1178     catch
1179         printlog "Insert - Object - Video is not possible on this machine"
1180     endcatch
1181     printlog " Close starting document"
1182     call hCloseDocument
1183
1184 endcase
1185
1186 '-----------------------------------------------------------
1187
1188 testcase tInsertObjectFormular
1189 '///<u><b>Insert - Object – Formular</b></u>
1190
1191     '/// Open new Spraedsheet document
1192     printlog " Open new Spreadsheet document"
1193     call hNewDocument
1194     '/// Insert Formular by 'Insert – Object – Formular'
1195     printlog " Insert Formular by 'Insert – Object – Formular'"
1196     InsertObjectFormulaCalc
1197     Kontext "SelectionMath"
1198     if SelectionMath.Exists(2) then
1199         call DialogTest (SelectionMath)
1200     else
1201         try
1202             Kontext "DocumentCalc"
1203             ViewSelectionCalc
1204             Kontext "SelectionMath"
1205             call DialogTest (SelectionMath)
1206         catch
1207             qaerrorlog "#i93427# Math Selection Dialog is not available"
1208         endcatch
1209     end if
1210     '/// Close Formular with 'Esc'
1211     printlog " Close Formular with 'Esc'"
1212     Kontext "DocumentCalc"
1213     DocumentCalc.TypeKeys "<Escape>"
1214     '/// Close document
1215     printlog " Close starting document"
1216     call hCloseDocument
1217
1218 endcase
1219
1220 '-----------------------------------------------------------
1221
1222 testcase tInsertChart
1223 '///<u><b>Insert - Chart</b></u>
1224
1225     '/// Open new Spreadsheet document
1226     printlog " Open new Spreadsheet document"
1227     call hNewDocument
1228     '/// Open 'Chart Wizard' by 'Insert – Chart'
1229     printlog " Open 'Chart Wizard' by 'Insert – Chart'"
1230     InsertChart
1231     Kontext "ChartWizard"
1232     if ChartWizard.Exists(1) then
1233         Call Dialogtest(ChartWizard)
1234         '/// Close 'Chart Wizard' with 'Cancel'
1235         ChartWizard.Cancel
1236     else
1237         warnlog "Chart wizard is not available"
1238     end if
1239     '/// Close document
1240     printlog " Close starting document"
1241     call hCloseDocument
1242
1243 endcase
1244
1245 '-----------------------------------------------------------
1246
1247 testcase tInsertFloatingFrame
1248 '///<u><b>Insert - Floating Frame</b></u>
1249
1250     '/// Open new Spreadsheet document
1251     printlog " Open new Spreadsheet document"
1252     call hNewDocument
1253     '/// Open 'Floating Frame Properties' – dialog by 'Insert – Floating Frame'
1254     printlog " Open 'Floating Frame Properties' – dialog by 'Insert – Floating Frame'"
1255     InsertFloatingFrame
1256     Kontext "TabEigenschaften"
1257     Dialogtest (TabEigenschaften)
1258     '/// Click on 'Browse' – button for 'Contents'
1259     printlog " Click on 'Browse' – button for 'Contents'"
1260     Oeffnen.Click
1261     Kontext "OeffnenDlg"
1262     '/// Click on 'Default Directory' – button
1263     printlog " Click on 'Default Directory' – button"
1264     Standard.click
1265     '/// Click on 'Create New Directory' – button
1266     printlog " Click on 'Create New Directory' – button"
1267     NeuerOrdner.Click
1268     Kontext "NeuerOrdner"
1269     '/// Close namedialog with 'Cancel'
1270     printlog " Close namedialog with 'Cancel'"
1271     NeuerOrdner.cancel
1272     Kontext "OeffnenDLG"
1273     '/// Close 'Select File for Floating Frame' – dialog with 'Cancel'
1274     printlog " Close 'Select File for Floating Frame' – dialog with 'Cancel'"
1275     OeffnenDlg.Cancel
1276     Kontext "TabEigenschaften"
1277     '/// Check 'Scrollbar' on
1278     printlog " Check 'Scrollbar' on"
1279     An.Check
1280     '/// Check 'Scrollbar' off
1281     printlog " Check 'Scrollbar' off"
1282     Aus.Check
1283     '/// Check 'Scrollbar' automatic
1284     printlog " Check 'Scrollbar' automatic"
1285     Automatisch.Check
1286     '/// Check 'Border Off'
1287     printlog " Check 'Border Off'"
1288     UmrandungAus.Check
1289     '/// Check 'Border On'
1290     printlog " Check 'Border On'"
1291     UmrandungAn.Check
1292     '/// Uncheck 'Default'
1293     printlog " Uncheck 'Default'"
1294     BreiteStandard.UnCheck
1295     '/// Increase 'Width' by 1
1296     printlog " Increase 'Width' by 1"
1297     Breite.More
1298     '/// Increase 'Height' by 1
1299     printlog " Increase 'Height' by 1"
1300     Hoehe.More
1301     '/// Check 'Default'
1302     printlog " Check 'Default'"
1303     HoeheStandard.Check
1304     '/// Close 'Floating Frame Properties' – dialog  with 'Cancel'
1305     printlog " Close 'Floating Frame Properties' – dialog  with 'Cancel'"
1306     TabEigenschaften.Cancel
1307     '/// Close document
1308     printlog " Close starting document"
1309     call hCloseDocument
1310
1311 endcase
1312
1313