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 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: c_upd_insertmenu.inc,v $
  10 '*
  11 '* $Revision: 1.3 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-09-04 09:18:30 $
  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 - Insert Menu
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tInsertManualBreak
  41 ' #1 tInsertCells
  42 ' #1 tInsertRowsColumns
  43 ' #1 tInsertSheet
  44 ' #1 tInsertSheetFromFile
  45 ' #1 tInsertLink
  46 ' #1 tInsertSpecialCharacters
  47 ' #1 tInsertFormattingMark
  48 ' #1 tInsertHyperlink
  49 ' #1 tInsertFunction
  50 ' #1 tInsertFunctionList
  51 ' #1 tInsertNamesDefine
  52 ' #1 tInsertNamesInsert
  53 ' #1 tInsertNamesCreate
  54 ' #1 tInsertNamesLabels
  55 ' #1 tInsertNote
  56 ' #1 tInsertPictureFromFile
  57 ' #1 tInsertMovieSound
  58 ' #1 tInsertObjectOLE
  59 ' #1 tInsertObjectPlugin
  60 ' #1 tInsertObjectSound
  61 ' #1 tInsertObjectVideo
  62 ' #1 tInsertObjectFormular
  63 ' #1 tInsertChart
  64 ' #1 tInsertFloatingFrame
  65
  66 '*
  67 '\***********************************************************************
  68
  69 sub c_upd_insertmenu
  70
  71     Printlog Chr(13) + "--------- Insert Menu (c_upd_insertmenu.inc) ---------"
  72
  73     call tInsertManualBreak
  74     call tInsertCells
  75     call tInsertRowsColumns
  76     call tInsertSheet
  77     call tInsertSheetFromFile
  78     call tInsertLink
  79     call tInsertSpecialCharacters
  80     call tInsertFormattingMark
  81     call tInsertHyperlink
  82     call tInsertFunction
  83     call tInsertFunctionList
  84     call tInsertNamesDefine
  85     call tInsertNamesInsert
  86     call tInsertNamesCreate
  87     call tInsertNamesLabels
  88     call tInsertNote
  89     call tInsertPictureFromFile
  90     call tInsertMovieSound
  91     call tInsertObjectOLE
  92     call tInsertObjectPlugin
  93     call tInsertObjectSound
  94     call tInsertObjectVideo
  95     call tInsertObjectFormular
  96     call tInsertChart
  97     call tInsertFloatingFrame
  98
  99 end sub
 100
 101 '-----------------------------------------------------------
 102
 103 testcase tInsertManualBreak
 104 '///<u><b>Insert - Manual Break</b></u>
 105
 106     '/// Opening new spreadsheet document for getting defined starting environment
 107     printlog " Opening new spreadsheet document for getting defined starting environment"
 108     call hNewDocument
 109     '/// Goto cell D5
 110     printlog " Goto cell D5"
 111     call fCalcSelectRange ("D5")
 112     '/// Insert a manual row break by 'Insert – Manual Break – Row Break'
 113     printlog " Insert a manual row break by 'Insert – Manual Break – Row Break'"
 114     InsertManuelBreakRowBreak
 115     '/// Insert a manual column break by 'Insert – Manual Break – Column Break'
 116     printlog " Insert a manual column break by 'Insert – Manual Break – Column Break'"
 117     InsertManuelBreakColumnBreak
 118     '/// Close starting document
 119     printlog " Close starting document"
 120     call hCloseDocument
 121
 122 endcase
 123
 124 '-----------------------------------------------------------
 125
 126 testcase tInsertCells
 127 '///<u><b>Insert - Cells</b></u>
 128
 129     '/// Open new Spreadsheet document
 130     printlog " Open new Spreadsheet document"
 131     call hNewDocument
 132     '/// Open 'Insert Cells'- dialog by 'Insert – Cells'
 133     printlog " Open 'Insert Cells'- dialog by 'Insert – Cells'"
 134     InsertCells
 135     Kontext "ZellenEinfuegen"
 136     Call DialogTest ( ZellenEinfuegen )
 137     '/// Check option 'Shift cells down'
 138     printlog " Check option 'Shift cells down'"
 139     ZellenNachUnten.Check
 140     '/// Check option 'Shift cells right'
 141     printlog " Check option 'Shift cells right'"
 142     ZellenNachRechts.Check
 143     '/// Check option 'Entire row'
 144     printlog " Check option 'Entire row'"
 145     GanzeZeile.Check
 146     '/// Check option 'Entire column'
 147     printlog " Check option 'Entire column'"
 148     GanzeSpalte.Check
 149     '/// Close dialog with 'Cancel'
 150     printlog " Close dialog with 'Cancel'"
 151     ZellenEinfuegen.Cancel
 152     '/// Close starting document
 153     printlog " Close starting document"
 154     call hCloseDocument
 155
 156 endcase
 157
 158 '-----------------------------------------------------------
 159
 160 testcase tInsertRowsColumns
 161 '///<u><b>Insert - Rows/Columns</b></u>
 162
 163     '/// Open new Spreadsheet document
 164     printlog " Open new Spreadsheet document"
 165     call hNewDocument
 166     '/// Insert a new row by 'Insert - Rows'
 167     printlog " Insert a new row by 'Insert - Rows'"
 168     InsertRowsCalc
 169     '/// Insert a new column by 'Insert - Columns'
 170     printlog " Insert a new column by 'Insert - Columns'"
 171     InsertColumnsCalc
 172     '/// Close document
 173     printlog " Close starting document"
 174     call hCloseDocument
 175
 176 endcase
 177
 178 '-----------------------------------------------------------
 179
 180 testcase tInsertSheet
 181 '///<u><b>Insert - Sheet</b></u>
 182
 183     '/// Open new Spreadsheet document
 184     printlog " Open new Spreadsheet document"
 185     call hNewDocument
 186     '/// Open 'Insert Sheet' – dialog by 'Insert – Sheet'
 187     printlog " Open 'Insert Sheet' – dialog by 'Insert – Sheet'"
 188     InsertSheetCalc
 189     Kontext "TabelleEinfuegenCalc"
 190     Call DialogTest ( TabelleEinfuegenCalc )
 191     '/// Check option 'After current sheet'
 192     printlog " Check option 'After current sheet'"
 193     Nach.Check
 194     '/// Set 'Name' to 'Test'
 195     printlog " Set 'Name' to 'Test'"
 196     TabellenName.SetText "Test"
 197     '/// Set number of sheets to 2
 198     printlog " Set number of sheets to 2"
 199     Anzahl.More
 200     '/// Check option 'From File'
 201     printlog " Check option 'From File'"
 202     AusDateiErstellen.Check
 203     '/// Check option 'Link'
 204     printlog " Check option 'Link'"
 205     Verknuepfen.Check
 206     '/// Click on 'Browse' – button
 207     Durchsuchen.Click
 208     Kontext "OeffnenDLG"
 209     '/// Close 'Insert' – dialog with 'Cancel'
 210     printlog " Close 'Insert' – dialog with 'Cancel'"
 211     OeffnenDLG.Cancel
 212     Kontext "TabelleEinfuegenCalc"
 213     '/// Close 'Insert Sheet' – dialog with 'Cancel'
 214     printlog " Close 'Insert Sheet' – dialog with 'Cancel'"
 215     TabelleEinfuegenCalc.Cancel
 216     '/// Close document
 217     printlog " Close starting document"
 218     call hCloseDocument
 219
 220 endcase
 221
 222 '-----------------------------------------------------------
 223
 224 testcase tInsertSheetFromFile
 225 '///<u><b>Insert - Sheet From File</b></u>
 226
 227     '/// Open new Spreadsheet document
 228     printlog " Open new Spreadsheet document"
 229     call hNewDocument
 230     '/// Open 'Insert Sheet' – dialog by 'Insert – Sheet From File'
 231     printlog " Open 'Insert Sheet' – dialog by 'Insert – Sheet From File'"
 232     InsertSheetFromFile
 233     Kontext "OeffnenDLG"
 234     '/// Set filename 'spreadsheet/required/input/twosheets.ods'
 235     printlog " Set filename 'spreadsheet/required/input/twosheets.ods'"
 236     Dateiname.setText ( convertpath ( gTesttoolPath & "spreadsheet/required/input/twosheets.ods" ) )
 237     '/// Close 'Insert' – dialog with 'Insert'
 238     printlog " Close 'Insert' – dialog with 'Insert'"
 239     Oeffnen.Click
 240     Kontext "TabelleEinfuegenCalc"
 241     '/// Verify that the selected file has two sheets
 242     printlog " Verify that the selected file has two sheets"
 243     if Auswahl.GetItemCount <> 2 then
 244         warnlog "The file has more/less than two sheets"
 245     end if
 246     '/// Close 'Insert Sheet' – dialog with 'Insert'
 247     printlog " Close 'Insert Sheet' – dialog with 'Insert'"
 248     TabelleEinfuegenCalc.Cancel
 249     '/// Close document'
 250     printlog " Close starting document"
 251     call hCloseDocument
 252
 253 endcase
 254
 255 '-----------------------------------------------------------
 256
 257 testcase tInsertLink
 258 '///<u><b>Insert - Link</b></u>
 259
 260     '/// Open new Sreadsheet document
 261     printlog " Open new Spreadsheet document"
 262     call hNewDocument
 263     '/// Open 'External Data' – dialog by 'Insert – Link To External Data'
 264     printlog " Open 'External Data' – dialog by 'Insert – Link To External Data'"
 265     InsertLinkToExternalData
 266     Kontext "ExternalData"
 267     call Dialogtest (ExternalData)
 268     '/// Press browse button for URL
 269     printlog " Press browse button for URL"
 270     FileChoose.Click
 271     Kontext "OeffnenDlg"
 272     '/// Close 'Insert' – dialog with 'Cancel'
 273     printlog " Close 'Insert' – dialog with 'Cancel'"
 274     OeffnenDlg.close
 275     Kontext "ExternalData"
 276     '/// Check option 'Updata every'
 277     printlog " Check option 'Updata every'"
 278     Update.Check
 279     '/// Increase updatetimer by 1
 280     printlog " Increase updatetimer by 1"
 281     UpdateTime.More
 282     '/// Close 'External Data' – dialog with 'Cancel'
 283     printlog " Close 'External Data' – dialog with 'Cancel'"
 284     ExternalData.close
 285     '/// Close starting document
 286     printlog " Close starting document"
 287     call hCloseDocument
 288
 289 endcase
 290
 291 '-----------------------------------------------------------
 292
 293 testcase tInsertSpecialCharacters
 294 '///<u><b>Insert - Special Characters</b></u>
 295
 296     '///Open new Spreadsheet document
 297     printlog " Open new Spreadsheet document"
 298     call hNewDocument
 299     '/// Open 'Special Characters' – dialog by 'Insert – Special Characters'
 300     printlog " Open 'Special Characters' – dialog by 'Insert – Special Characters'"
 301     InsertSpecialCharacterCalc
 302     Kontext "Sonderzeichen"
 303     DialogTest ( Sonderzeichen )
 304     '/// Change 'Font' to next one
 305     printlog " Change 'Font' to next one"
 306         if Schrift.GetItemCount = Schrift.GetSelIndex then
 307                         Schrift.Select(Schrift.GetSelIndex -1)
 308                 else Schrift.Select(Schrift.GetSelIndex +1)
 309         end if
 310     '/// Change 'Subset' to next one
 311     printlog " Change 'Subset' to next one"
 312     If Subset.IsVisible then
 313                 if Subset.GetItemCount = Subset.GetSelIndex then
 314                         Subset.Select(Subset.GetSelIndex -1)
 315                 else Subset.Select(Subset.GetSelIndex +1)
 316                 end if
 317     end if
 318     '/// Choose a character by clicking
 319     printlog " Choose a character by clicking"
 320     Zeichenanzeige.MouseDown 50,50
 321     Zeichenanzeige.MouseUp 50,50
 322     '/// Delete character by 'Delete'
 323     printlog " Delete character by 'Delete'"
 324     Loeschen.Click
 325     '/// Close 'Special Characters' – dialog with 'Cancel'
 326     printlog " Close 'Special Characters' – dialog with 'Cancel'"
 327     Sonderzeichen.Cancel
 328     '/// Close document
 329     printlog " Close starting document"
 330     call hCloseDocument
 331
 332 endcase
 333
 334 '-----------------------------------------------------------
 335
 336 testcase tInsertFormattingMark
 337 '///<u><b>Insert - Formatting Mark</b></u>
 338
 339     Dim bAsianLanguage as boolean
 340     Dim bCTLlanguage as boolean
 341
 342     '/// Open new Spreadsheet document
 343     printlog " Open new Spreadsheet document"
 344     call hNewDocument
 345     '/// Enable support for CJK and CTL by 'Tools-Options-Language Settings'
 346     printlog " Enable support for CJK and CTL by 'Tools-Options-Language Settings'"
 347     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 348     bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
 349     '/// Select cell A1
 350     printlog " Select cell A1"
 351     call fCalcSelectRange ("A1")
 352     '/// Enter 'Test' in cell 'A1' to activate editmode
 353     printlog " Enter 'Test' in cell 'A1' to activate editmode"
 354     DocumentCalc.TypeKeys "Test"
 355     '/// Enter in cell 'Insert – Formatting Mark – Non-Breaking Space'
 356     printlog " Enter in cell 'A' and 'Insert – Formatting Mark – Non-Breaking Space'"
 357     InsertNonBreakingSpace
 358     '/// Enter in cell 'Insert – Formatting Mark – Non-Breaking Hyphen'
 359     printlog " Enter in cell 'Insert – Formatting Mark – Non-Breaking Hyphen'"
 360     InsertHardHyphen
 361     '/// Enter in cell 'Insert – Formatting Mark – Optional Hyphen'
 362     printlog " Enter in cell 'Insert – Formatting Mark – Optional Hyphen'"
 363     InsertSoftHyphen
 364     '/// Enter in cell 'Insert – Formatting Mark – No-Width Optional Break'
 365     printlog " Enter in cell 'Insert – Formatting Mark – No-Width Optional Break'"
 366     InsertZWSP
 367     '/// Enter in cell 'Insert – Formatting Mark – No-Width no break'
 368     printlog " Enter in cell 'Insert – Formatting Mark – No-Width no break'"
 369     InsertZWNBSP
 370     '/// Enter in cell 'Insert – Formatting Mark – Left-to-right-mark'
 371     printlog "/ Enter in cell 'Insert – Formatting Mark – Left-to-right-mark'"
 372     InsertLRM
 373     '/// Enter in cell 'Insert – Formatting Mark – right-to-left-mark'
 374     printlog " Enter in cell 'Insert – Formatting Mark – right-to-left-mark'"
 375     InsertRLM
 376     '/// Leave cell with 'Enter'
 377     printlog " Leave cell with 'Enter'"
 378     DocumentCalc.TypeKeys "<Return>"
 379     '/// Set support for CTL and CJK back to defaults
 380     printlog " Set support for CTL and CJK back to defaults"
 381     if bAsianLanguage = FALSE then
 382         Call ActiveDeactivateAsianSupport(FALSE)
 383     end if
 384     if bCTLLanguage = FALSE then
 385         Call ActiveDeactivateCTLSupport(FALSE)
 386     end if
 387     '/// Close document
 388     printlog " Close starting document"
 389     call hCloseDocument
 390
 391 endcase
 392
 393 '-----------------------------------------------------------
 394
 395 testcase tInsertHyperlink
 396 '///<u><b>Insert - Hyperlink</b></u>
 397
 398     '/// Open new Spreadsheet document
 399     printlog " Open new Spreadsheet document"
 400     call hNewDocument
 401     '/// Open 'Hyperlink' – dialog via 'Insert – Hyperlink'
 402     printlog " Open 'Hyperlink' – dialog via 'Insert – Hyperlink'"
 403     InsertHyperlink
 404     WaitSlot( 5000 )
 405
 406     Kontext "Hyperlink"
 407     '/// Switch to category 'Internet' (first one)
 408     printlog " Switch to category 'Internet'"
 409     Auswahl.TypeKeys "<HOME>"
 410     '/// Choose 'Web'
 411     printlog " Choose 'Web'"
 412     Kontext "TabHyperlinkInternet"
 413     internet.check
 414     Call DialogTest ( TabHyperlinkInternet,1 )
 415     '/// Click on 'Target in Document' – button (the target dialog appears)
 416     printlog " Click on 'Target in Document' – button (the target dialog appears)"
 417     Target.Click
 418     Kontext "ZielImDokument"
 419     Call DialogTest ( ZielImDokument )
 420     '/// Close 'Target' – dialog with 'Close'
 421     printlog " Close 'Target' – dialog with 'Close'"
 422     ZielImDokument.Close
 423     Kontext "TabHyperlinkInternet"
 424     '/// Choose 'FTP'
 425     printlog " Choose 'FTP'"
 426     FTP.check
 427     Call DialogTest ( TabHyperlinkInternet,2 )
 428     '/// Check that the 'Target' – button is disabled
 429     printlog " Check that the 'Target' – button is disabled"
 430     if Target.IsEnabled then
 431         warnlog "The target button is enabled, but should be disabled"
 432     end if
 433     '/// Check option 'Anonymous User'
 434     printlog " Check option 'Anonymous User'"
 435     AnonymerBenutzer.Check
 436     '/// Check that 'Login Name' is disabled
 437     printlog " Check that 'Login Name' is disabled"
 438     if Loginname.IsEnabled then
 439         warnlog "The Loginname is enabled, but should be disabled"
 440     end if
 441     '/// Chose 'Telnet'
 442     printlog " Chose 'Telnet'"
 443     Telnet.check
 444     Call DialogTest ( TabHyperlinkInternet,3 )
 445     '/// Check that the 'Target' – button is disabled
 446     printlog " Check that the 'Target' – button is disabled"
 447     if Target.IsEnabled then
 448         warnlog "The target button is enabled, but should be disabled"
 449     end if
 450     '/// Switch to category 'Mail & News'
 451     Kontext "Hyperlink"
 452     Auswahl.TypeKeys "<DOWN>"
 453     Kontext "TabHyperlinkMailUndNews"
 454     Call DialogTest ( TabHyperlinkMailUndNews )
 455     '/// Click twice on 'Data Source' – button to turn on / off the databasebeamer
 456     printlog " Click twice on 'Data Source' – button to turn on / off the databasebeamer"
 457     Adressbuch.click
 458     Adressbuch.click
 459     '/// Check option 'Mail'
 460     printlog " Check option 'Mail'"
 461     EMail.check
 462     '/// Check that the editfield for 'Receiver' is enabled
 463     printlog " Check that the editfield for 'Receiver' is enabled"
 464     if not Receiver.IsEnabled then
 465         warnlog "Receiver is disabled but should be enabled"
 466     end if
 467     '/// Check that the editfield for 'Subject' is enabled
 468     printlog " Check that the editfield for 'Subject' is enabled"
 469     if not Betreff.IsEnabled then
 470         warnlog "Subject is disabled but should be enabled"
 471     end if
 472     '/// Check option 'News'
 473     printlog " Check option 'News'"
 474     News.check
 475     '/// Check that the editfield for 'Subject' is disabled
 476     printlog " Check that the editfield for 'Subject' is disabled"
 477     if Betreff.IsEnabled then
 478         warnlog "Subject is enabled but should be disabled"
 479     end if
 480     '/// Switch to category Document
 481     printlog " Switch to category Document"
 482     Kontext "Hyperlink"
 483     Auswahl.TypeKeys "<DOWN>"
 484     Kontext "TabHyperlinkDokument"
 485     Call DialogTest ( TabHyperlinkDokument )
 486     '/// Enter 'Test' in 'Path'
 487     printlog " Enter 'Test' in 'Path'"
 488     Path.TypeKeys "Test"
 489     '/// Click on 'Open' – button
 490     printlog " Click on 'Open' – button"
 491     DateiOeffnen.click
 492     Kontext "OeffnenDlg"
 493     '/// Close 'Open' – dialog with 'Cancel'
 494     printlog " Close 'Open' – dialog with 'Cancel'"
 495     OeffnenDlg.Cancel
 496     Kontext "TabHyperlinkDokument"
 497     '/// Click on 'Target in Document' – button (the target dialog appears)
 498     printlog " Click on 'Target in Document' – button (the target dialog appears)"
 499     Target.click
 500     Kontext "ZielImDokument"
 501     '/// Close 'Target' – dialog with 'Close'
 502     printlog " Close 'Target' – dialog with 'Close'"
 503     ZielImDokument.close
 504     Kontext "Hyperlink"
 505     '/// Switch to category 'New Document'
 506     printlog " Switch to category 'New Document'"
 507     Auswahl.TypeKeys "<DOWN>"
 508     Kontext "TabHyperlinkNeuesDokument"
 509     Call DialogTest ( TabHyperlinkNeuesDokument )
 510     '/// Check 'Edit Now'
 511     printlog " Click 'Edit Now'"
 512     SofortBearbeiten.check
 513     '/// Check 'Edit Later'
 514     printlog " Click 'Edit Later'"
 515     SpaeterBearbeiten.check
 516     '/// Click on 'Select Path' – button
 517     printlog " Click on 'Select Path' – button"
 518     Pfad.click
 519     Kontext "OeffnenDlg"
 520     '/// Close 'Select Path' – dialog with 'Cancel'
 521     printlog " Close 'Select Path' – dialog with 'Cancel'"
 522     OeffnenDlg.Cancel
 523     Kontext "TabHyperlinkNeuesDokument"
 524     '/// Check that the 'Frame' listbox has items
 525     printlog " Check that the 'Frame' listbox has items"
 526     if Frame.GetItemCount < 1 then
 527         warnlog "The Frame combobox is empty"
 528     end if
 529     '/// Check that the 'Form' listbox has 2 entries
 530     printlog " Check that the 'Form' listbox has 2 entries"
 531     if Form.GetItemCount <> 2 then
 532         warnlog "The Form combobox has not 2 items"
 533     end if
 534     '/// Close 'Hyperlink' – dialog with 'Close'
 535     printlog " Close 'Hyperlink' – dialog with 'Close'"
 536     TabHyperlinkNeuesDokument.Cancel
 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