path: root/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc

'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 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 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"
    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"
    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
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 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