Remove testtool

1 files changed, 0 insertions, 749 deletions

diff --git a/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc b/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc
deleted file mode 100644
index 33c52111c384..000000000000
--- a/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc
+++ /dev/null
@@ -1,749 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/***********************************************************************
-'*
-'* owner : oliver.craemer@oracle.com
-'*
-'* short description : Resource Test - File Menu
-'*
-'************************************************************************
-'*
-' #1 tFileNewSpreadsheet     
-' #1 tFileNewSpreadsheetFromTemplate
-' #1 tFileOpen 
-' #1 tFileOpenCSV
-' #1 tFileOpenDBF
-' #1 tFileOpenHTML
-' #1 tFileRecentDocuments
-' #1 tFileClose
-' #1 tFileSave
-' #1 tFileSaveAsCSV
-' #1 tFileSaveAsDBF
-' #1 tFileVersions
-' #1 tFilePagePreview
-'*
-'\***********************************************************************
-
-sub c_upd_filemenu
-
-    Printlog Chr(13) + "--------- FILE Menu (c_upd_filemenu.inc) ---------"
-    
-    Call tFileNewSpreadsheet
-    Call tFileNewSpreadsheetFromTemplate
-    Call tFileOpen
-    Call tFileOpenCSV
-    Call tFileOpenDBF
-    Call tFileOpenHTML
-    Call tFileRecentDocuments
-    Call tFileClose
-    Call tFileSave
-    Call tFileSaveAsCSV
-    Call tFileSaveAsDBF
-    Call tFileVersions
-    Call tFilePagePreview
-    Call g_printing()
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tFileNewSpreadsheet
-    
-    '/// Opening new spreadsheet document for getting defined starting environment
-    Printlog " Opening new spreadsheet document for getting defined starting environment"
-    Call hNewDocument
-    '/// Open new document via Menu FILE-NEW-SPREADSHEET
-    Printlog " Open new document via Menu FILE-NEW-SPREADSHEET"
-    Kontext "DocumentCalc"
-    DocumentCalc.UseMenu 'Selecting Menubar
-    hMenuSelectNr(1) 'Using first entry on Menubar (FILE)
-    hMenuSelectNr(1) 'Using first entry on menu (NEW)
-    hMenuSelectNr(2) 'Using second entry on menu (SPREADSHEET) 
-    Kontext "DocumentCalc"
-    Call DialogTest (DocumentCalc)
-    '/// Close document
-    Printlog " Close document"
-    Call hCloseDocument
-    '/// Close starting document
-    Printlog " Close starting document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileNewSpreadsheetFromTemplate
-
-    '/// Opening new spreadsheet document for getting defined starting environment
-    Printlog " Opening new spreadsheet document for getting defined starting environment"
-    Call hNewDocument
-    '/// Open new document via Menu FILE-NEW-TEMPLATES AND DOCUMENTS
-    Printlog " Open new document via Menu FILE-NEW-FROM TEMPLATES AND DOCUMENTS"
-    Kontext "DocumentCalc"
-    DocumentCalc.UseMenu 'Selecting Menubar
-    hMenuSelectNr(1) 'Using first entry on Menubar (FILE)
-    hMenuSelectNr(1) 'Using first entry on menu (NEW)
-    hMenuSelectNr(12) 'Using second entry on menu (TEMPLATES AND DOCUMENTS) 
-    Kontext "TemplateAndDocuments"
-    Call DialogTest (TemplateAndDocuments)
-    '/// Cancel dialog
-    Printlog " Cancel dialog"
-    TemplateAndDocuments.Cancel
-    '/// Opening TemplateAndDocuments-Dialog via slot FileNewFromTemplate
-    Printlog " Opening TemplateAndDocuments-Dialog via slot FileNewFromTemplate"
-    Kontext "DocumentCalc"
-    FileNewFromTemplate
-    Kontext "TemplateAndDocuments"
-    Call DialogTest (TemplateAndDocuments)
-    '/// Cancel dialog
-    Printlog " Cancel dialog"
-    TemplateAndDocuments.Cancel
-    '/// Close starting document
-    Printlog " Close starting document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileOpen
-
-    '/// Opening new spreadsheet document for getting defined starting environment
-    Printlog " Opening new spreadsheet document for getting defined starting environment"
-    Call hNewDocument
-    '/// Open File-Open-dialog
-    Printlog " Open File-Open-dialog"
-    FileOpen
-    Kontext "OeffnenDlg"
-    Call DialogTest ( OeffnenDlg )
-    '/// Click "Up one level"
-    Printlog " Click Up one level"
-    UebergeordneterOrdner.Click
-    '/// Click "Default directory"
-    Printlog " Click Default directory"
-    Standard.Click
-    '/// Click "New Folder"
-    Printlog " Click New Folder"
-    NeuerOrdner.Click
-    Kontext "NeuerOrdner"
-    Call DialogTest ( NeuerOrdner )
-    '/// Cancel New Folder
-    Printlog " Cancel New Folder"
-    NeuerOrdner.Cancel
-    Kontext "OeffnenDlg"
-    '/// Check "Read only"
-    Printlog " Check Read only"
-    NurLesen.check
-    '/// Close File-Open-dialog with Cancel
-    Printlog " Close File-Open-dialog with Cancel"
-    OeffnenDlg.Cancel
-    '/// Close starting document
-    Printlog " Close starting document"
-    Call hCloseDocument
-    
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileOpenCSV
-
-    dim sTestFile as string
-    
-    sTestFile = convertpath(gTesttoolPath & "spreadsheet/required/input/tFileOpen_CSV.csv"
-    Printlog " Opening new spreadsheet document for getting defined starting environment"
-    Call hNewDocument
-    Printlog " Open File-Open-dialog"
-    FileOpen
-    Kontext "OeffnenDlg"
-    Printlog " Enter filename  spreadsheet/required/input/tFileOpen_CSV.csv"
-    Dateiname.settext (sTestFile)
-    Printlog " Click on Open"
-    Oeffnen.Click
-    Printlog " Check existence of CSV import dialog"
-    Kontext "TextImport"
-    if Not TextImport.exists(2) then
-        'Verify if the file will be loaded in Writer instead
-        Kontext "ASCIIFilterOptionen"
-        if ASCIIFilterOptionen.exists(2) then
-            warnlog "Filterdetection for CSV is broken. Textfilter is used instead"
-            ASCIIFilterOptionen.Cancel
-            Call hCloseDocument
-            goto endsub
-        else
-            Kontext "DocumentWriter"
-            if DocumentWriter.exists(2) then
-                warnlog "CSV import has failed, file is loaded in Writer"
-                'Close Writer document
-                Call hCloseDocument
-                'Close starting document
-                Call hCloseDocument
-                goto endsub
-            else
-                Kontext
-                if Active.exists then 
-                    Active.no
-                    Call hCloseDocument
-                    goto endsub
-                end if
-            end if
-        end if
-    end if
-    Call Dialogtest (TextImport)
-    Kontext "TextImport"
-    Printlog " Use every control"
-    CharacterSet.GetItemCount
-    Language.GetItemCount
-    FromRow.More
-    FixedWidth.Check
-    Separated.Check
-    Tab.Check
-    Semicolon.Check
-    Comma.Check
-    SpaceCB.Check
-    Other.Check
-    OtherText.SetText "a"
-    MergeDelimiter.Check
-    TextDelimiter.GetItemCount
-    QuotedAsText.Check
-    DetectSpecialNumbers.Check
-    Printlog " Cancel Text Import dialog"
-    TextImport.cancel
-    Printlog " Open File-Open-dialog"
-    FileOpen
-    Kontext "OeffnenDlg"
-    Printlog " Enter filename  spreadsheet/required/input/tFileOpen_CSV.csv"
-    Dateiname.settext (sTestFile)
-    Printlog " Click on Open"
-    Oeffnen.Click
-    Kontext "TextImport"
-    TextImport.ok
-    sleep (2)
-    Printlog " - CSV import dialog is in function"
-    sleep (1)
-    Kontext "DocumentCalc"
-    printlog " Close document"
-    Call hCloseDocument
-        
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileOpenDBF
-
-    dim sTestFile as string
-    
-    sTestFile = convertpath(gTesttoolPath & "spreadsheet/required/input/tFileOpen_DBF.dbf"
-    '/// Opening new spreadsheet document for getting defined starting environment
-    Printlog " Opening new spreadsheet document for getting defined starting environment"
-    Call hNewDocument
-    '/// Open File-Open-dialog
-    Printlog " Open File-Open-dialog"
-    FileOpen
-    Kontext "OeffnenDlg"
-    '/// Enter filename  spreadsheet/required/input/tFileOpen_DBF.dbf
-    Printlog " Enter filename  spreadsheet/required/input/tFileOpen_DBF.dbf"
-    Dateiname.settext (sTestFile)
-    '/// Click on Open
-    Printlog " Click on Open"
-    Oeffnen.Click
-    '/// Check if there is no Text document opened
-    Printlog " Check if there is no Text document opened"
-    Kontext "DocumentWriter"
-    if DocumentWriter.exists(2) then
-        warnlog "Filter detection is broken. Text file opened in writer although DBF filter was selected."
-        Call hCloseDocument
-        '/// Close starting document
-        Printlog " Close starting document"
-        Call hCloseDocument
-        goto endsub
-    end if
-    '/// Check existence of import dialog
-    Printlog " Check existence of import dialog"
-    Kontext "ExportCalc"
-    Call Dialogtest (ExportCalc)
-    if ExportCalc.exists(2) then
-        ExportCalc.ok
-        Printlog " - Import dialog is in function"
-        Kontext "DocumentCalc"
-        Call hCloseDocument
-    else
-        warnlog "DBF Import failed"
-        '/// Close starting document
-        Printlog " Close starting document"
-        Call hCloseDocument
-    end if
-        
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileOpenHTML
-
-    Dim sTestFile as string
-    Dim sTestFilter1 as string
-    Dim sTestFilter2 as string
-
-    sTestFile = convertpath(gTesttoolPath & "spreadsheet/required/input/HTML_Doc_Numberformats_in_table.html"
-    sTestFilter1 = hGetUIFiltername ("HTML (StarCalc)")
-    sTestFilter2 = hGetUIFiltername ("calc_HTML_WebQuery")
-
-    Printlog " Opening new spreadsheet document for getting defined starting environment"
-    Call hNewDocument
-    Printlog " Open File-Open-dialog"
-    FileOpen
-    waitslot (5)
-    Kontext "OeffnenDlg"
-    Printlog " Enter filename  spreadsheet/required/input/HTML_Doc_Numberformats_in_table.html"
-    Dateiname.settext (sTestFile)
-    Printlog " Choose Calc HTML filter"
-    Call hSelectUIFilter (sTestFilter1)
-    Printlog " Click on Open"
-    Oeffnen.Click
-    Kontext "HTMLImportOptions"
-    Printlog " Use every control on dialog Import Options"
-    Custom.Check
-    CustomLanguage.GetItemCount
-    Automatic.Check
-    DetectSpecialNumbers.Check
-    HTMLImportOptions.OK
-    sleep (2)
-    Printlog " Close recent document"
-    Call hCloseDocument
-    Printlog " Retry with Calc Web Querry filter"
-    Printlog " Open File-Open-dialog"
-    FileOpen
-    waitslot (5)
-    Kontext "OeffnenDlg"
-    Printlog " Enter filename  spreadsheet/required/input/HTML_Doc_Numberformats_in_table.html"
-    Dateiname.settext (sTestFile)
-    Printlog " Choose Calc Web Query filter"
-    Call hSelectUIFilter (sTestFilter2)
-    Printlog " Click on Open"
-    Oeffnen.Click
-    Kontext "HTMLImportOptions"
-    Printlog " Use every control on dialog Import Options"
-    Custom.Check
-    CustomLanguage.GetItemCount
-    Automatic.Check
-    DetectSpecialNumbers.Check
-    HTMLImportOptions.OK
-    sleep (2)
-    Printlog " Close recent document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileRecentDocuments
-
-if gPlatform = "lin" then
-    warnlog "#110649# Due to bug this testcase is not available"
-    goto endsub
-end if
-    
-    dim sTestFile as string
-      
-    '/// Open new Spreadsheet document
-    Printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enter some text
-    Printlog " Enter some text"
-    Kontext "DocumentCalc"
-    DocumentCalc.Typekeys "The first doc!<RETURN>"
-
-    Printlog " Copy Test File spreadsheet/required/input/recentdocument.ods locally"
-    hFileOpenLocally( gTesttoolpath & "spreadsheet\required\input\recentdocument.ods" )
-    sTestFile = gLastWorkFile ' get the new file location
-
-    'app.FileCopy convertpath(gTesttoolpath & "spreadsheet\required\input\recentdocument.ods"),gOfficePath + ConvertPath("user/work/recentdocument.ods")
-    'Printlog " Load local copied testfile recentdocument.ods"
-    'sTestFile = convertpath(gOfficePath & "user/work/recentdocument.ods")
-    'Call hFileOpen(sTestFile)
-    '/// Close the document.
-    Printlog " Close the document."
-    '/// Now an item in <i>File / Recent Documents</i> should exist
-    Call hCloseDocument
-    '/// Reopen Document using the menu <i>File / Recent Documents</i>
-    Printlog " Reopen Document using the menu File / Recent Documents"
-    Kontext "DocumentCalc"
-    DocumentCalc.UseMenu
-    hMenuSelectNr(1)
-    hMenuSelectNr(3)
-    hMenuSelectNr(1)
-    '/// Check that cell A1 has value "Recent document"
-    Printlog " Check that cell A1 has value Recent document"    
-    Kontext "DocumentCalc"
-    if fCalcGetCellValue ("A1") = "Recent document" then
-        Printlog " - Loading most recent Document seems to work"
-    else
-        'Sometimes the recent doc is loaded in background (#i80533#)
-         if fCalcGetCellValue ("A1") = "The first doc!" then
-            QAErrorLog "Recent document is loaded in background (#i80533#)"
-            Kontext "DocumentCalc"
-            DocumentCalc.UseMenu 
-            hMenuSelectNr(8) 'Open Window menu
-            hMenuSelectNr(hMenuItemGetCount) 'Select last loaded document
-            'Check that cell A1 has value "Recent document"
-            Call fCalcCompareCellValue ("A1","Recent document") 
-        else
-            warnlog "Loading most recent Document seems to fail"
-        end if
-    end if
-    '/// Close recent document
-    Printlog " Close recent document"
-    Call hCloseDocument   
-    '/// Close starting document
-    Printlog " Close starting document"
-    Call hCloseDocument
-    Printlog " Delete local copy of the workfile"
-    hFileDelete( sTestFile )
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileClose
-
-    '/// Open new Spreadsheet document
-    Printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enter some text
-    Printlog " Enter some text"
-    Kontext "DocumentCalc"
-    DocumentCalc.Typekeys "Test <RETURN>"
-    '/// Close document via File / Close
-    Printlog " Close document via File / Close"
-    FileClose
-    '/// Close Messagebox via Cancel
-    Printlog " Close Messagebox via Cancel"
-    Kontext "Active"
-    Active.Cancel
-    Kontext "DocumentCalc"
-    FileClose
-    '/// Close Messagebox via Save
-    Printlog " Close Messagebox via Save"
-    Kontext "Active"
-    Active.Yes
-    '///+ Check if Save Dialog exists
-    Printlog " Check if Save Dialog exists"
-    Kontext "SpeichernDlg"
-    if SpeichernDlg.Exists then
-        SpeichernDlg.Cancel
-    else
-        Kontext "Active"
-        if Active.Exists then
-            Warnlog Active.Gettext
-            Active.Ok
-        else
-            Warnlog "Dialog to Save document isn't up!"
-        end if
-    end if
-    Kontext "DocumentCalc"
-    FileClose
-    '/// Close Messagebox via Discard
-    Printlog " Close Messagebox via Discard"
-    Kontext "Active"
-    Active.No
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileSave
-
-    '/// Opening new spreadsheet document
-    Printlog " Opening new spreadsheet document"
-    Call hNewDocument
-    '/// Enter some text
-    Printlog " Enter some text"
-    Kontext "DocumentCalc"
-    DocumentCalc.Typekeys "Test <RETURN>"
-    '///Open SAVE dialog via File-Save
-    Printlog "Open SAVE dialog via File-Save"
-    FileSave
-    Kontext "SpeichernDlg"
-    Call DialogTest (SpeichernDlg)
-    '/// Click "Up one level"
-    Printlog " Click Up one level"
-    UebergeordneterOrdner.Click
-    '/// Click "Default directory"
-    Printlog " Click Default directory"
-    Standard.Click
-    '/// Click "New Folder"
-    Printlog " Click New Folder"
-    NeuerOrdner.Click
-    Kontext "NeuerOrdner"
-    Call DialogTest ( NeuerOrdner )
-    '/// Cancel New Folder
-    Printlog " Cancel New Folder"
-    NeuerOrdner.Cancel
-    Kontext "SpeichernDlg"
-    '/// Enable save with passwort
-    Printlog " Enable save with passwort"
-    Passwort.Check
-    '/// Enter filename tFileSave
-    Printlog " Enter filename tFileSave"
-    Dateiname.settext "tFileSave"
-    '/// Click on SAVE button
-    Printlog " Click on SAVE button"
-    Speichern.Click
-    Kontext "PasswordFileSave"    
-    Call DialogTest (PasswordFileSave)
-    '/// Set password
-    Password.SetText "OpenSource"
-    '/// Now enter wrong confirmation
-    PasswordConfirm.SetText "CloseSource"
-    '/// Try to leave dialog with OK
-    PasswordFileSave.Ok    
-    '/// MsgBox warning for wrong password confirmation should be visible
-    Kontext
-    if Active.exists(4) then
-        if Active.GetRT = 304 then
-            '/// Confirm warning
-            Printlog " - Wrong passwort has been detected successfully."
-            Active.OK
-        end if
-    else
-        warnlog "There is no messagebox because of a wrong password. Aborting!"
-        Call hCloseDocument
-        goto endsub        
-    end if
-    Kontext "PasswordFileSave"
-    '/// Leave dialog with Cancel
-    PasswordFileSave.Cancel
-    Kontext "DocumentCalc"
-    '/// Open SAVE dialog via File-Save again
-    Printlog " Open SAVE dialog via File-Save again"
-    FileSave
-    Kontext "SpeichernDlg"
-    '/// Close dialog with Cancel
-    SpeichernDlg.Cancel
-    '/// Close document
-    Printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileSaveAsCSV
-
-    Dim UIFilter as string
-    Dim bStatus as boolean
-
-    Printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    Printlog " Fill two cells (10, Test)"
-    Kontext "DocumentCalc"
-    DocumentCalc.Typekeys "10 <TAB> Test <RETURN>"
-    Printlog " Open 'SaveAs' dialog"
-    FileSaveAs
-    Kontext "SpeichernDlg"
-    Printlog " Enter filename 'csv-Test_update'"
-    DateiName.SetText "csv-Test_update"
-    Printlog " Choose file typ CSV"
-    UIFilter = hGetUIFiltername ( "Text - txt - csv (StarCalc)" )
-    bStatus = hSelectUIFilter ( UIFilter )
-    if ( not bStatus ) then
-        warnlog "Filter not found"
-        SpeichernDlg.Cancel
-        Call hCloseDocument
-        goto endsub
-    end if
-    Printlog " Click on Save button"
-    Speichern.click
-    Printlog " Commit overwrite warning if file already exists"
-    Kontext
-    if Active.exists(2) then
-        Active.Yes
-    end if
-    Printlog " Check alien file format warning"
-    Kontext "AlienWarning"
-    if AlienWarning.exists(2) then
-    Printlog "  Commit if exists"
-        AlienWarning.OK
-    else
-        warnlog "Alien file format warning is missing -> Check this out!"
-    end if
-    Printlog " Check existence of export encoding dialog"
-    Kontext "ExportCalc"
-    Call DialogTest (ExportCalc)
-    printlog " Verify that Quote All is disabled by default"
-    if QuoteAll.IsChecked then
-        warnlog " Option Quote All is checked but shouldn't"
-    end if
-    Printlog " Accept dialog by OK"
-    ExportCalc.OK
-    Kontext
-    if Active.exists(2) then
-        Printlog Active.GetText
-        Active.OK
-    else
-        warnlog " Messagebox that only the current sheet is saved is missing"
-    end if
-    Printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileSaveAsDBF
-
-    Dim UIFilter as string
-    Dim bStatus as boolean
-
-    Printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    Printlog " Fill two cells (10, Test)"
-    Kontext "DocumentCalc"
-    DocumentCalc.Typekeys "10 <TAB> Test <RETURN>"
-    Printlog " Open 'SaveAs' dialog"
-    FileSaveAs
-    Kontext "SpeichernDlg"
-    Printlog " Enter filename 'dbf-Test_update'"
-    DateiName.SetText "dbf-Test_update"
-    Printlog " Choose file typ dBase"
-    UIFilter = hGetUIFiltername ( "dBase" )
-    bStatus = hSelectUIFilter ( UIFilter )
-    if ( not bStatus ) then
-        warnlog "Filter not found"
-        SpeichernDlg.Cancel
-        Call hCloseDocument
-        goto endsub
-    end if
-    Printlog " Click on Save button"
-    Speichern.click
-    Printlog " Commit overwrite warning if file already exists"
-    Kontext
-    if Active.exists(2) then
-        Active.Yes
-    end if
-    Printlog " Check alien file format warning"
-    Kontext "AlienWarning"
-    if AlienWarning.exists(2) then
-    Printlog "  Commit if exists"
-        AlienWarning.OK
-    else 
-        warnlog "Alien file format warning is missing -> Check this out!"
-    end if
-    Printlog " Check existence of export encoding dialog"
-    Kontext "ExportCalc"
-    Call DialogTest (ExportCalc)
-    Printlog " Accept dialog by OK"
-    ExportCalc.OK
-    Kontext
-    if Active.exists(2) then
-        printlog " "
-        warnlog "#i87325# - Unexpected messagebox"
-        Printlog Active.GetText
-        Printlog " "
-        Active.OK
-    end if
-    Printlog " Close document"
-    Call hCloseDocument 
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileVersions
-
-    '/// Open new Spreadsheet document
-    Printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enter some text
-    Printlog " Enter some text"
-    Kontext "DocumentCalc"
-    DocumentCalc.Typekeys "Test <RETURN>"
-    '/// Save document as "user/work/version.ods"
-    Printlog " Save document as 'user/work/version.ods'"
-    Call hFileSaveAsKill convertpath(gOfficePath & "user/work/version.ods")
-    '/// Open File-Versions
-    Printlog " Open File-Versions"
-    FileVersions
-    Kontext "Versionen"
-    Call DialogTest (Versionen)
-    '/// Click 'Save New Versions' button
-    Printlog " Click 'Save New Versions' button"
-    Speichern.click
-    Kontext "VersionskommentarEingeben"
-    '/// Check existence of comments dialog
-    Call DialogTest(VersionskommentarEingeben)
-    '/// Cancel comments dialog
-    Printlog " Cancel comments dialog"
-    VersionskommentarEingeben.Cancel
-    Kontext "Versionen"
-    '/// Close versions dialog
-    Printlog " Close versions dialog"
-    Versionen.close
-    '/// Close document
-    Printlog " Close document"    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFilePagePreview
-
-    '/// Open new Spreadsheet document
-    Printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enter some text
-    Printlog " Enter some text"
-    Kontext "DocumentCalc"
-    DocumentCalc.Typekeys "Test <RETURN>"
-    '/// Open File-PagePreview
-    Printlog " Open File-PagePreview"
-    FilePageView
-    Kontext "Previewbar"
-    Call DialogTest (Previewbar)
-'    Printlog " Switch to fullscreen mode"
-'    GanzerBildschirm.Click
-'    Kontext "FullScreenbar"
-'    printlog " Disable fullscreen mode"
-'    FullScreen.click
-'    Kontext "Previewbar"
-    printlog " Enable Margins"
-    try
-        Margins.Click
-	catch
-        warnlog "Pagemargins does not exists."
-    endcatch
-	printlog " Check availability of the scaling slider"
-	if Not ScalingFactor.IsEnabled then
-		warnlog "Scalingslider is not available"
-	end if
-    '/// Close page preview with button in toolbar
-    Printlog " Close page preview with button in toolbar"
-    Seitenansicht.Click
-    '/// Close document
-    Printlog " Close document"
-    Call hCloseDocument
-
-endcase
-