testautomation/spreadsheet/required/includes/c_upd_filemenu.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 - File Menu
  31 '*
  32 '************************************************************************
  33 '*
  34 ' #1 tFileNewSpreadsheet
  35 ' #1 tFileNewSpreadsheetFromTemplate
  36 ' #1 tFileOpen
  37 ' #1 tFileOpenCSV
  38 ' #1 tFileOpenDBF
  39 ' #1 tFileOpenHTML
  40 ' #1 tFileRecentDocuments
  41 ' #1 tFileClose
  42 ' #1 tFileSave
  43 ' #1 tFileSaveAsCSV
  44 ' #1 tFileSaveAsDBF
  45 ' #1 tFileVersions
  46 ' #1 tFilePagePreview
  47 '*
  48 '\***********************************************************************
  49
  50 sub c_upd_filemenu
  51
  52     Printlog Chr(13) + "--------- FILE Menu (c_upd_filemenu.inc) ---------"
  53
  54     Call tFileNewSpreadsheet
  55     Call tFileNewSpreadsheetFromTemplate
  56     Call tFileOpen
  57     Call tFileOpenCSV
  58     Call tFileOpenDBF
  59     Call tFileOpenHTML
  60     Call tFileRecentDocuments
  61     Call tFileClose
  62     Call tFileSave
  63     Call tFileSaveAsCSV
  64     Call tFileSaveAsDBF
  65     Call tFileVersions
  66     Call tFilePagePreview
  67     Call g_printing()
  68
  69 end sub
  70
  71 '-----------------------------------------------------------
  72
  73 testcase tFileNewSpreadsheet
  74
  75     '/// Opening new spreadsheet document for getting defined starting environment
  76     Printlog " Opening new spreadsheet document for getting defined starting environment"
  77     Call hNewDocument
  78     '/// Open new document via Menu FILE-NEW-SPREADSHEET
  79     Printlog " Open new document via Menu FILE-NEW-SPREADSHEET"
  80     Kontext "DocumentCalc"
  81     DocumentCalc.UseMenu 'Selecting Menubar
  82     hMenuSelectNr(1) 'Using first entry on Menubar (FILE)
  83     hMenuSelectNr(1) 'Using first entry on menu (NEW)
  84     hMenuSelectNr(2) 'Using second entry on menu (SPREADSHEET)
  85     Kontext "DocumentCalc"
  86     Call DialogTest (DocumentCalc)
  87     '/// Close document
  88     Printlog " Close document"
  89     Call hCloseDocument
  90     '/// Close starting document
  91     Printlog " Close starting document"
  92     Call hCloseDocument
  93
  94 endcase
  95
  96 '-----------------------------------------------------------
  97
  98 testcase tFileNewSpreadsheetFromTemplate
  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     '/// Open new document via Menu FILE-NEW-TEMPLATES AND DOCUMENTS
 104     Printlog " Open new document via Menu FILE-NEW-FROM TEMPLATES AND DOCUMENTS"
 105     Kontext "DocumentCalc"
 106     DocumentCalc.UseMenu 'Selecting Menubar
 107     hMenuSelectNr(1) 'Using first entry on Menubar (FILE)
 108     hMenuSelectNr(1) 'Using first entry on menu (NEW)
 109     hMenuSelectNr(12) 'Using second entry on menu (TEMPLATES AND DOCUMENTS)
 110     Kontext "TemplateAndDocuments"
 111     Call DialogTest (TemplateAndDocuments)
 112     '/// Cancel dialog
 113     Printlog " Cancel dialog"
 114     TemplateAndDocuments.Cancel
 115     '/// Opening TemplateAndDocuments-Dialog via slot FileNewFromTemplate
 116     Printlog " Opening TemplateAndDocuments-Dialog via slot FileNewFromTemplate"
 117     Kontext "DocumentCalc"
 118     FileNewFromTemplate
 119     Kontext "TemplateAndDocuments"
 120     Call DialogTest (TemplateAndDocuments)
 121     '/// Cancel dialog
 122     Printlog " Cancel dialog"
 123     TemplateAndDocuments.Cancel
 124     '/// Close starting document
 125     Printlog " Close starting document"
 126     Call hCloseDocument
 127
 128 endcase
 129
 130 '-----------------------------------------------------------
 131
 132 testcase tFileOpen
 133
 134     '/// Opening new spreadsheet document for getting defined starting environment
 135     Printlog " Opening new spreadsheet document for getting defined starting environment"
 136     Call hNewDocument
 137     '/// Open File-Open-dialog
 138     Printlog " Open File-Open-dialog"
 139     FileOpen
 140     Kontext "OeffnenDlg"
 141     Call DialogTest ( OeffnenDlg )
 142     '/// Click "Up one level"
 143     Printlog " Click Up one level"
 144     UebergeordneterOrdner.Click
 145     '/// Click "Default directory"
 146     Printlog " Click Default directory"
 147     Standard.Click
 148     '/// Click "New Folder"
 149     Printlog " Click New Folder"
 150     NeuerOrdner.Click
 151     Kontext "NeuerOrdner"
 152     Call DialogTest ( NeuerOrdner )
 153     '/// Cancel New Folder
 154     Printlog " Cancel New Folder"
 155     NeuerOrdner.Cancel
 156     Kontext "OeffnenDlg"
 157     '/// Check "Read only"
 158     Printlog " Check Read only"
 159     NurLesen.check
 160     '/// Close File-Open-dialog with Cancel
 161     Printlog " Close File-Open-dialog with Cancel"
 162     OeffnenDlg.Cancel
 163     '/// Close starting document
 164     Printlog " Close starting document"
 165     Call hCloseDocument
 166
 167 endcase
 168
 169 '-----------------------------------------------------------
 170
 171 testcase tFileOpenCSV
 172
 173     dim sTestFile as string
 174
 175     sTestFile = convertpath(gTesttoolPath & "spreadsheet/required/input/tFileOpen_CSV.csv"
 176     Printlog " Opening new spreadsheet document for getting defined starting environment"
 177     Call hNewDocument
 178     Printlog " Open File-Open-dialog"
 179     FileOpen
 180     Kontext "OeffnenDlg"
 181     Printlog " Enter filename  spreadsheet/required/input/tFileOpen_CSV.csv"
 182     Dateiname.settext (sTestFile)
 183     Printlog " Click on Open"
 184     Oeffnen.Click
 185     Printlog " Check existence of CSV import dialog"
 186     Kontext "TextImport"
 187     if Not TextImport.exists(2) then
 188         'Verify if the file will be loaded in Writer instead
 189         Kontext "ASCIIFilterOptionen"
 190         if ASCIIFilterOptionen.exists(2) then
 191             warnlog "Filterdetection for CSV is broken. Textfilter is used instead"
 192             ASCIIFilterOptionen.Cancel
 193             Call hCloseDocument
 194             goto endsub
 195         else
 196             Kontext "DocumentWriter"
 197             if DocumentWriter.exists(2) then
 198                 warnlog "CSV import has failed, file is loaded in Writer"
 199                 'Close Writer document
 200                 Call hCloseDocument
 201                 'Close starting document
 202                 Call hCloseDocument
 203                 goto endsub
 204             else
 205                 Kontext
 206                 if Active.exists then
 207                     Active.no
 208                     Call hCloseDocument
 209                     goto endsub
 210                 end if
 211             end if
 212         end if
 213     end if
 214     Call Dialogtest (TextImport)
 215     Kontext "TextImport"
 216     Printlog " Use every control"
 217     CharacterSet.GetItemCount
 218     Language.GetItemCount
 219     FromRow.More
 220     FixedWidth.Check
 221     Separated.Check
 222     Tab.Check
 223     Semicolon.Check
 224     Comma.Check
 225     SpaceCB.Check
 226     Other.Check
 227     OtherText.SetText "a"
 228     MergeDelimiter.Check
 229     TextDelimiter.GetItemCount
 230     QuotedAsText.Check
 231     DetectSpecialNumbers.Check
 232     Printlog " Cancel Text Import dialog"
 233     TextImport.cancel
 234     Printlog " Open File-Open-dialog"
 235     FileOpen
 236     Kontext "OeffnenDlg"
 237     Printlog " Enter filename  spreadsheet/required/input/tFileOpen_CSV.csv"
 238     Dateiname.settext (sTestFile)
 239     Printlog " Click on Open"
 240     Oeffnen.Click
 241     Kontext "TextImport"
 242     TextImport.ok
 243     sleep (2)
 244     Printlog " - CSV import dialog is in function"
 245     sleep (1)
 246     Kontext "DocumentCalc"
 247     printlog " Close document"
 248     Call hCloseDocument
 249
 250 endcase
 251
 252 '-----------------------------------------------------------
 253
 254 testcase tFileOpenDBF
 255
 256     dim sTestFile as string
 257
 258     sTestFile = convertpath(gTesttoolPath & "spreadsheet/required/input/tFileOpen_DBF.dbf"
 259     '/// Opening new spreadsheet document for getting defined starting environment
 260     Printlog " Opening new spreadsheet document for getting defined starting environment"
 261     Call hNewDocument
 262     '/// Open File-Open-dialog
 263     Printlog " Open File-Open-dialog"
 264     FileOpen
 265     Kontext "OeffnenDlg"
 266     '/// Enter filename  spreadsheet/required/input/tFileOpen_DBF.dbf
 267     Printlog " Enter filename  spreadsheet/required/input/tFileOpen_DBF.dbf"
 268     Dateiname.settext (sTestFile)
 269     '/// Click on Open
 270     Printlog " Click on Open"
 271     Oeffnen.Click
 272     '/// Check if there is no Text document opened
 273     Printlog " Check if there is no Text document opened"
 274     Kontext "DocumentWriter"
 275     if DocumentWriter.exists(2) then
 276         warnlog "Filter detection is broken. Text file opened in writer although DBF filter was selected."
 277         Call hCloseDocument
 278         '/// Close starting document
 279         Printlog " Close starting document"
 280         Call hCloseDocument
 281         goto endsub
 282     end if
 283     '/// Check existence of import dialog
 284     Printlog " Check existence of import dialog"
 285     Kontext "ExportCalc"
 286     Call Dialogtest (ExportCalc)
 287     if ExportCalc.exists(2) then
 288         ExportCalc.ok
 289         Printlog " - Import dialog is in function"
 290         Kontext "DocumentCalc"
 291         Call hCloseDocument
 292     else
 293         warnlog "DBF Import failed"
 294         '/// Close starting document
 295         Printlog " Close starting document"
 296         Call hCloseDocument
 297     end if
 298
 299 endcase
 300
 301 '-----------------------------------------------------------
 302
 303 testcase tFileOpenHTML
 304
 305     Dim sTestFile as string
 306     Dim sTestFilter1 as string
 307     Dim sTestFilter2 as string
 308
 309     sTestFile = convertpath(gTesttoolPath & "spreadsheet/required/input/HTML_Doc_Numberformats_in_table.html"
 310     sTestFilter1 = hGetUIFiltername ("HTML (StarCalc)")
 311     sTestFilter2 = hGetUIFiltername ("calc_HTML_WebQuery")
 312
 313     Printlog " Opening new spreadsheet document for getting defined starting environment"
 314     Call hNewDocument
 315     Printlog " Open File-Open-dialog"
 316     FileOpen
 317     waitslot (5)
 318     Kontext "OeffnenDlg"
 319     Printlog " Enter filename  spreadsheet/required/input/HTML_Doc_Numberformats_in_table.html"
 320     Dateiname.settext (sTestFile)
 321     Printlog " Choose Calc HTML filter"
 322     Call hSelectUIFilter (sTestFilter1)
 323     Printlog " Click on Open"
 324     Oeffnen.Click
 325     Kontext "HTMLImportOptions"
 326     Printlog " Use every control on dialog Import Options"
 327     Custom.Check
 328     CustomLanguage.GetItemCount
 329     Automatic.Check
 330     DetectSpecialNumbers.Check
 331     HTMLImportOptions.OK
 332     sleep (2)
 333     Printlog " Close recent document"
 334     Call hCloseDocument
 335     Printlog " Retry with Calc Web Querry filter"
 336     Printlog " Open File-Open-dialog"
 337     FileOpen
 338     waitslot (5)
 339     Kontext "OeffnenDlg"
 340     Printlog " Enter filename  spreadsheet/required/input/HTML_Doc_Numberformats_in_table.html"
 341     Dateiname.settext (sTestFile)
 342     Printlog " Choose Calc Web Query filter"
 343     Call hSelectUIFilter (sTestFilter2)
 344     Printlog " Click on Open"
 345     Oeffnen.Click
 346     Kontext "HTMLImportOptions"
 347     Printlog " Use every control on dialog Import Options"
 348     Custom.Check
 349     CustomLanguage.GetItemCount
 350     Automatic.Check
 351     DetectSpecialNumbers.Check
 352     HTMLImportOptions.OK
 353     sleep (2)
 354     Printlog " Close recent document"
 355     Call hCloseDocument
 356
 357 endcase
 358
 359 '-----------------------------------------------------------
 360
 361 testcase tFileRecentDocuments
 362
 363 if gPlatform = "lin" then
 364     warnlog "#110649# Due to bug this testcase is not available"
 365     goto endsub
 366 end if
 367
 368     dim sTestFile as string
 369
 370     '/// Open new Spreadsheet document
 371     Printlog " Open new Spreadsheet document"
 372     Call hNewDocument
 373     '/// Enter some text
 374     Printlog " Enter some text"
 375     Kontext "DocumentCalc"
 376     DocumentCalc.Typekeys "The first doc!<RETURN>"
 377
 378     Printlog " Copy Test File spreadsheet/required/input/recentdocument.ods locally"
 379     hFileOpenLocally( gTesttoolpath & "spreadsheet\required\input\recentdocument.ods" )
 380     sTestFile = gLastWorkFile ' get the new file location
 381
 382     'app.FileCopy convertpath(gTesttoolpath & "spreadsheet\required\input\recentdocument.ods"),gOfficePath + ConvertPath("user/work/recentdocument.ods")
 383     'Printlog " Load local copied testfile recentdocument.ods"
 384     'sTestFile = convertpath(gOfficePath & "user/work/recentdocument.ods")
 385     'Call hFileOpen(sTestFile)
 386     '/// Close the document.
 387     Printlog " Close the document."
 388     '/// Now an item in <i>File / Recent Documents</i> should exist
 389     Call hCloseDocument
 390     '/// Reopen Document using the menu <i>File / Recent Documents</i>
 391     Printlog " Reopen Document using the menu File / Recent Documents"
 392     Kontext "DocumentCalc"
 393     DocumentCalc.UseMenu
 394     hMenuSelectNr(1)
 395     hMenuSelectNr(3)
 396     hMenuSelectNr(1)
 397     '/// Check that cell A1 has value "Recent document"
 398     Printlog " Check that cell A1 has value Recent document"
 399     Kontext "DocumentCalc"
 400     if fCalcGetCellValue ("A1") = "Recent document" then
 401         Printlog " - Loading most recent Document seems to work"
 402     else
 403         'Sometimes the recent doc is loaded in background (#i80533#)
 404          if fCalcGetCellValue ("A1") = "The first doc!" then
 405             QAErrorLog "Recent document is loaded in background (#i80533#)"
 406             Kontext "DocumentCalc"
 407             DocumentCalc.UseMenu
 408             hMenuSelectNr(8) 'Open Window menu
 409             hMenuSelectNr(hMenuItemGetCount) 'Select last loaded document
 410             'Check that cell A1 has value "Recent document"
 411             Call fCalcCompareCellValue ("A1","Recent document")
 412         else
 413             warnlog "Loading most recent Document seems to fail"
 414         end if
 415     end if
 416     '/// Close recent document
 417     Printlog " Close recent document"
 418     Call hCloseDocument
 419     '/// Close starting document
 420     Printlog " Close starting document"
 421     Call hCloseDocument
 422     Printlog " Delete local copy of the workfile"
 423     hFileDelete( sTestFile )
 424 endcase
 425
 426 '-----------------------------------------------------------
 427
 428 testcase tFileClose
 429
 430     '/// Open new Spreadsheet document
 431     Printlog " Open new Spreadsheet document"
 432     Call hNewDocument
 433     '/// Enter some text
 434     Printlog " Enter some text"
 435     Kontext "DocumentCalc"
 436     DocumentCalc.Typekeys "Test <RETURN>"
 437     '/// Close document via File / Close
 438     Printlog " Close document via File / Close"
 439     FileClose
 440     '/// Close Messagebox via Cancel
 441     Printlog " Close Messagebox via Cancel"
 442     Kontext "Active"
 443     Active.Cancel
 444     Kontext "DocumentCalc"
 445     FileClose
 446     '/// Close Messagebox via Save
 447     Printlog " Close Messagebox via Save"
 448     Kontext "Active"
 449     Active.Yes
 450     '///+ Check if Save Dialog exists
 451     Printlog " Check if Save Dialog exists"
 452     Kontext "SpeichernDlg"
 453     if SpeichernDlg.Exists then
 454         SpeichernDlg.Cancel
 455     else
 456         Kontext "Active"
 457         if Active.Exists then
 458             Warnlog Active.Gettext
 459             Active.Ok
 460         else
 461             Warnlog "Dialog to Save document isn't up!"
 462         end if
 463     end if
 464     Kontext "DocumentCalc"
 465     FileClose
 466     '/// Close Messagebox via Discard
 467     Printlog " Close Messagebox via Discard"
 468     Kontext "Active"
 469     Active.No
 470
 471 endcase
 472
 473 '-----------------------------------------------------------
 474
 475 testcase tFileSave
 476
 477     '/// Opening new spreadsheet document
 478     Printlog " Opening new spreadsheet document"
 479     Call hNewDocument
 480     '/// Enter some text
 481     Printlog " Enter some text"
 482     Kontext "DocumentCalc"
 483     DocumentCalc.Typekeys "Test <RETURN>"
 484     '///Open SAVE dialog via File-Save
 485     Printlog "Open SAVE dialog via File-Save"
 486     FileSave
 487     Kontext "SpeichernDlg"
 488     Call DialogTest (SpeichernDlg)
 489     '/// Click "Up one level"
 490     Printlog " Click Up one level"
 491     UebergeordneterOrdner.Click
 492     '/// Click "Default directory"
 493     Printlog " Click Default directory"
 494     Standard.Click
 495     '/// Click "New Folder"
 496     Printlog " Click New Folder"
 497     NeuerOrdner.Click
 498     Kontext "NeuerOrdner"
 499     Call DialogTest ( NeuerOrdner )
 500     '/// Cancel New Folder
 501     Printlog " Cancel New Folder"
 502     NeuerOrdner.Cancel
 503     Kontext "SpeichernDlg"
 504     '/// Enable save with passwort
 505     Printlog " Enable save with passwort"
 506     Passwort.Check
 507     '/// Enter filename tFileSave
 508     Printlog " Enter filename tFileSave"
 509     Dateiname.settext "tFileSave"
 510     '/// Click on SAVE button
 511     Printlog " Click on SAVE button"
 512     Speichern.Click
 513     Kontext "PasswordFileSave"
 514     Call DialogTest (PasswordFileSave)
 515     '/// Set password
 516     Password.SetText "OpenSource"
 517     '/// Now enter wrong confirmation
 518     PasswordConfirm.SetText "CloseSource"
 519     '/// Try to leave dialog with OK
 520     PasswordFileSave.Ok
 521     '/// MsgBox warning for wrong password confirmation should be visible
 522     Kontext
 523     if Active.exists(4) then
 524         if Active.GetRT = 304 then
 525             '/// Confirm warning
 526             Printlog " - Wrong passwort has been detected successfully."
 527             Active.OK
 528         end if
 529     else
 530         warnlog "There is no messagebox because of a wrong password. Aborting!"
 531         Call hCloseDocument
 532         goto endsub
 533     end if
 534     Kontext "PasswordFileSave"
 535     '/// Leave dialog with Cancel
 536     PasswordFileSave.Cancel
 537     Kontext "DocumentCalc"
 538     '/// Open SAVE dialog via File-Save again
 539     Printlog " Open SAVE dialog via File-Save again"
 540     FileSave
 541     Kontext "SpeichernDlg"
 542     '/// Close dialog with Cancel
 543     SpeichernDlg.Cancel
 544     '/// Close document
 545     Printlog " Close document"
 546     Call hCloseDocument
 547
 548 endcase
 549
 550 '-----------------------------------------------------------
 551
 552 testcase tFileSaveAsCSV
 553
 554     Dim UIFilter as string
 555     Dim bStatus as boolean
 556
 557     Printlog " Open new Spreadsheet document"
 558     Call hNewDocument
 559     Printlog " Fill two cells (10, Test)"
 560     Kontext "DocumentCalc"
 561     DocumentCalc.Typekeys "10 <TAB> Test <RETURN>"
 562     Printlog " Open 'SaveAs' dialog"
 563     FileSaveAs
 564     Kontext "SpeichernDlg"
 565     Printlog " Enter filename 'csv-Test_update'"
 566     DateiName.SetText "csv-Test_update"
 567     Printlog " Choose file typ CSV"
 568     UIFilter = hGetUIFiltername ( "Text - txt - csv (StarCalc)" )
 569     bStatus = hSelectUIFilter ( UIFilter )
 570     if ( not bStatus ) then
 571         warnlog "Filter not found"
 572         SpeichernDlg.Cancel
 573         Call hCloseDocument
 574         goto endsub
 575     end if
 576     Printlog " Click on Save button"
 577     Speichern.click
 578     Printlog " Commit overwrite warning if file already exists"
 579     Kontext
 580     if Active.exists(2) then
 581         Active.Yes
 582     end if
 583     Printlog " Check alien file format warning"
 584     Kontext "AlienWarning"
 585     if AlienWarning.exists(2) then
 586     Printlog "  Commit if exists"
 587         AlienWarning.OK
 588     else
 589         warnlog "Alien file format warning is missing -> Check this out!"
 590     end if
 591     Printlog " Check existence of export encoding dialog"
 592     Kontext "ExportCalc"
 593     Call DialogTest (ExportCalc)
 594     printlog " Verify that Quote All is disabled by default"
 595     if QuoteAll.IsChecked then
 596         warnlog " Option Quote All is checked but shouldn't"
 597     end if
 598     Printlog " Accept dialog by OK"
 599     ExportCalc.OK
 600     Kontext
 601     if Active.exists(2) then
 602         Printlog Active.GetText
 603         Active.OK
 604     else
 605         warnlog " Messagebox that only the current sheet is saved is missing"
 606     end if
 607     Printlog " Close document"
 608     Call hCloseDocument
 609
 610 endcase
 611
 612 '-----------------------------------------------------------
 613
 614 testcase tFileSaveAsDBF
 615
 616     Dim UIFilter as string
 617     Dim bStatus as boolean
 618
 619     Printlog " Open new Spreadsheet document"
 620     Call hNewDocument
 621     Printlog " Fill two cells (10, Test)"
 622     Kontext "DocumentCalc"
 623     DocumentCalc.Typekeys "10 <TAB> Test <RETURN>"
 624     Printlog " Open 'SaveAs' dialog"
 625     FileSaveAs
 626     Kontext "SpeichernDlg"
 627     Printlog " Enter filename 'dbf-Test_update'"
 628     DateiName.SetText "dbf-Test_update"
 629     Printlog " Choose file typ dBase"
 630     UIFilter = hGetUIFiltername ( "dBase" )
 631     bStatus = hSelectUIFilter ( UIFilter )
 632     if ( not bStatus ) then
 633         warnlog "Filter not found"
 634         SpeichernDlg.Cancel
 635         Call hCloseDocument
 636         goto endsub
 637     end if
 638     Printlog " Click on Save button"
 639     Speichern.click
 640     Printlog " Commit overwrite warning if file already exists"
 641     Kontext
 642     if Active.exists(2) then
 643         Active.Yes
 644     end if
 645     Printlog " Check alien file format warning"
 646     Kontext "AlienWarning"
 647     if AlienWarning.exists(2) then
 648     Printlog "  Commit if exists"
 649         AlienWarning.OK
 650     else
 651         warnlog "Alien file format warning is missing -> Check this out!"
 652     end if
 653     Printlog " Check existence of export encoding dialog"
 654     Kontext "ExportCalc"
 655     Call DialogTest (ExportCalc)
 656     Printlog " Accept dialog by OK"
 657     ExportCalc.OK
 658     Kontext
 659     if Active.exists(2) then
 660         printlog " "
 661         warnlog "#i87325# - Unexpected messagebox"
 662         Printlog Active.GetText
 663         Printlog " "
 664         Active.OK
 665     end if
 666     Printlog " Close document"
 667     Call hCloseDocument
 668
 669 endcase
 670
 671 '-----------------------------------------------------------
 672
 673 testcase tFileVersions
 674
 675     '/// Open new Spreadsheet document
 676     Printlog " Open new Spreadsheet document"
 677     Call hNewDocument
 678     '/// Enter some text
 679     Printlog " Enter some text"
 680     Kontext "DocumentCalc"
 681     DocumentCalc.Typekeys "Test <RETURN>"
 682     '/// Save document as "user/work/version.ods"
 683     Printlog " Save document as 'user/work/version.ods'"
 684     Call hFileSaveAsKill convertpath(gOfficePath & "user/work/version.ods")
 685     '/// Open File-Versions
 686     Printlog " Open File-Versions"
 687     FileVersions
 688     Kontext "Versionen"
 689     Call DialogTest (Versionen)
 690     '/// Click 'Save New Versions' button
 691     Printlog " Click 'Save New Versions' button"
 692     Speichern.click
 693     Kontext "VersionskommentarEingeben"
 694     '/// Check existence of comments dialog
 695     Call DialogTest(VersionskommentarEingeben)
 696     '/// Cancel comments dialog
 697     Printlog " Cancel comments dialog"
 698     VersionskommentarEingeben.Cancel
 699     Kontext "Versionen"
 700     '/// Close versions dialog
 701     Printlog " Close versions dialog"
 702     Versionen.close
 703     '/// Close document
 704     Printlog " Close document"
 705     Call hCloseDocument
 706
 707 endcase
 708
 709 '-----------------------------------------------------------
 710
 711 testcase tFilePagePreview
 712
 713     '/// Open new Spreadsheet document
 714     Printlog " Open new Spreadsheet document"
 715     Call hNewDocument
 716     '/// Enter some text
 717     Printlog " Enter some text"
 718     Kontext "DocumentCalc"
 719     DocumentCalc.Typekeys "Test <RETURN>"
 720     '/// Open File-PagePreview
 721     Printlog " Open File-PagePreview"
 722     FilePageView
 723     Kontext "Previewbar"
 724     Call DialogTest (Previewbar)
 725 '    Printlog " Switch to fullscreen mode"
 726 '    GanzerBildschirm.Click
 727 '    Kontext "FullScreenbar"
 728 '    printlog " Disable fullscreen mode"
 729 '    FullScreen.click
 730 '    Kontext "Previewbar"
 731     printlog " Enable Margins"
 732     try
 733         Margins.Click
 734         catch
 735         warnlog "Pagemargins does not exists."
 736     endcatch
 737         printlog " Check availability of the scaling slider"
 738         if Not ScalingFactor.IsEnabled then
 739                 warnlog "Scalingslider is not available"
 740         end if
 741     '/// Close page preview with button in toolbar
 742     Printlog " Close page preview with button in toolbar"
 743     Seitenansicht.Click
 744     '/// Close document
 745     Printlog " Close document"
 746     Call hCloseDocument
 747
 748 endcase
 749