diff options
Diffstat (limited to 'testautomation/framework/optional/includes/options_loadsave_general.inc')
-rw-r--r-- | testautomation/framework/optional/includes/options_loadsave_general.inc | 284 |
1 files changed, 284 insertions, 0 deletions
diff --git a/testautomation/framework/optional/includes/options_loadsave_general.inc b/testautomation/framework/optional/includes/options_loadsave_general.inc new file mode 100644 index 000000000000..39885ffc2e3c --- /dev/null +++ b/testautomation/framework/optional/includes/options_loadsave_general.inc @@ -0,0 +1,284 @@ +'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 : thorsten.bosbach@sun.com +'* +'* short description : Tools->Options Load/Save: General +'* +'\****************************************************************************** + +testcase tLoadSaveGeneral + Dim lbSave(15) as Boolean + Dim lsSave(20) as String + Dim AppCount as Integer + dim i as Integer + + + ToolsOptions + hToolsOptions("LoadSave","General") + printlog " - save old settings" + lbSave(13) = BenutzerspezifischeEinstellungen.IsChecked + lbSave(1) = DokumenteigenschaftenBearbeiten.IsChecked + lbSave(2) = Sicherungskopie.IsChecked + lbSave(3) = AutomatischSpeichern.IsChecked + + if AutomatischSpeichern.IsChecked then + lsSave(1) = Minuten.GetText + endif + + lbSave(10) = NoPrettyPrinting.IsChecked + lbSave(11) = URLimDateisystem.IsChecked + lbSave(12) = URLimInternet.IsChecked + + printlog("Listed Documenttypes are: ") + AppCount = Dokumenttyp.GetItemCount + if (AppCount > 7) then + Warnlog( "Seven applications should be listed, there are " & AppCount ) + for i = 1 to AppCount + DokumentTyp.select(i) + printlog( " - " & DokumentTyp.getSelText) + next i + endif + for i=1 to AppCount + Dokumenttyp.Select(i) + lsSave(2+i) = Dokumenttyp.GetSelText + lsSave(2+AppCount+i) = Filter.GetSelText + next i + + printlog " - invert/change settings" + if lbSave(13) then BenutzerspezifischeEinstellungen.UnCheck else BenutzerspezifischeEinstellungen.Check + if lbSave(1) then DokumenteigenschaftenBearbeiten.Uncheck else DokumenteigenschaftenBearbeiten.Check + if lbSave(2) then Sicherungskopie.Uncheck else Sicherungskopie.Check + if lbSave(3) then AutomatischSpeichern.Uncheck else AutomatischSpeichern.Check + if AutomatischSpeichern.IsChecked then + lsSave(1) = Minuten.GetText + Minuten.SetText "23" + endif + if lbSave(10) then NoPrettyPrinting.Uncheck else NoPrettyPrinting.Check + if lbSave(11) then URLimDateisystem.Uncheck else URLimDateisystem.Check + if lbSave(12) then URLimInternet.Uncheck else URLimInternet.Check + printlog( "Setting filters for documenttypes: Select third item from every list" ) + for i=1 to AppCount + Dokumenttyp.Select(i) + Filter.Select(3) + printlog( "Doctype: " & Dokumenttyp.getSelText() & " has filter: " & Filter.getSelText() ) + next i + + printlog " - close options-dlg with OK" + kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + sleep(3) + + printlog " - exit/restart StarOffice" + ExitRestartTheOffice + + printlog " - check inverting/changes" + ToolsOptions + hToolsOptions ( "LoadSave", "General" ) + + if BenutzerspezifischeEinstellungen.IsChecked = lbSave ( 13 ) then + Warnlog "'Load user setting with document' => changes not saved" + endif + if DokumenteigenschaftenBearbeiten.IsChecked = lbSave ( 1 ) then + Warnlog "'Edit document properties before saving' => changes not saved" + endif + if Sicherungskopie.IsChecked = lbSave ( 2 ) then + Warnlog "'Create backup copy' => changes not saved" + endif + if AutomatischSpeichern.IsChecked = lbSave ( 3 ) then + printlog "AutoSave => changes not saved" + endif + if AutomatischSpeichern.IsChecked then + if Minuten.GetText <> "23" then + Warnlog "Minutes for AutoSave => changes not saved" + endif + endif + if NoPrettyPrinting.IsChecked = lbSave ( 10 ) then + Warnlog "no pretty printing => changes not saved" + endif + if URLimDateisystem.IsChecked = lbSave ( 11 ) then + Warnlog "URL: File system => changes not saved" + endif + if URLimInternet.IsChecked = lbSave ( 12 ) then + Warnlog "URL: Internet => changes not saved" + endif + + printlog( "Verifying filters for documenttypes: Select third item from every list" ) + for i=1 to AppCount + Dokumenttyp.Select(i) + printlog( "Doctype: " & Dokumenttyp.getSelText() & " has filter: " & Filter.getSelText() ) + + if Filter.GetSelIndex <> 3 then + warnlog( "#i79150# some options in Tools/Options->Load/Save->General are not saved" ) + endif + next i + + printlog " - make other changes" + BenutzerspezifischeEinstellungen.Uncheck + DokumenteigenschaftenBearbeiten.Check + Sicherungskopie.Uncheck + AutomatischSpeichern.Check + Minuten.SetText "01" + NoPrettyPrinting.Uncheck + URLimDateisystem.Uncheck + URLimInternet.Uncheck + for i=1 to AppCount + Dokumenttyp.Select(i) + Filter.Select(4) + next i + + printlog " - close options-dlg with OK" + + kontext "extrasoptionendlg" + ExtrasOptionenDlg.OK + Sleep (1) + + printlog " - react on messageboxes for loosing settings after changing default-filters" + kontext "FilterWarning" + for i=1 to AppCount + if FilterWarning.Exists(5) then + FilterWarning.OK + else + i = AppCount + 1 + endif + next i + Sleep (3) + + printlog " - check second changes" + ToolsOptions + hToolsOptions ( "LoadSave", "General" ) + + if BenutzerspezifischeEinstellungen.IsChecked <> FALSE then + Warnlog "'Load user setting with document' => changes not saved" + endif + if DokumenteigenschaftenBearbeiten.IsChecked <> TRUE then + Warnlog "'Edit document properties before saving' => changes not saved" + endif + if Sicherungskopie.IsChecked <> FALSE then + Warnlog "'Create backup copy' => changes not saved" + endif + if AutomatischSpeichern.IsChecked <> TRUE then + Warnlog "AutoSave => changes not saved" + endif + if Minuten.GetText <> "1" then + Warnlog "Minutes for AutoSave => changes not saved" + endif + if NoPrettyPrinting.IsChecked <> FALSE then + Warnlog "no pretty printing => changes not saved" + endif + if URLimDateisystem.IsChecked <> FALSE then + Warnlog "URL: File system => changes not saved" + endif + if URLimInternet.IsChecked <> FALSE then + Warnlog "URL: Internet => changes not saved" + endif + for i=1 to AppCount + Dokumenttyp.Select(i) + if Filter.GetSelIndex <> 4 then + Warnlog "Document '" + Dokumenttyp.GetSelText + "': changes not saved" + endif + next i + + printlog " - reset to saved settings" + if lbSave ( 13 ) = FALSE then + BenutzerspezifischeEinstellungen.UnCheck else BenutzerspezifischeEinstellungen.Check + endif + if lbSave ( 1 ) = FALSE then + DokumenteigenschaftenBearbeiten.UnCheck else DokumenteigenschaftenBearbeiten.Check + endif + if lbSave ( 2 ) = FALSE then + Sicherungskopie.Uncheck else Sicherungskopie.Check + endif + AutomatischSpeichern.Check + Minuten.SetText lsSave ( 1 ) + if lbSave ( 3 ) = FALSE then + AutomatischSpeichern.Uncheck else AutomatischSpeichern.Check + endif + if lbSave ( 10 ) = FALSE then + NoPrettyPrinting.Uncheck else NoPrettyPrinting.Check + endif + if lbSave ( 11 ) = FALSE then + URLimDateisystem.UnCheck else URLimDateisystem.Check + endif + if lbSave ( 12 ) = FALSE then + URLimInternet.UnCheck else URLimInternet.Check + endif + for i=1 to AppCount + Dokumenttyp.Select(i) + if Dokumenttyp.GetSelText <> lsSave ( 2 + i ) then + Warnlog "The sorting of the document-listbox has been changed!" + endif + Filter.Select(lsSave(2+AppCount+i)) + next i + + kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + Sleep (3) + + printlog " - check settings" + ToolsOptions + hToolsOptions ( "LoadSave", "General" ) + + if BenutzerspezifischeEinstellungen.IsChecked <> lbSave ( 13 ) then + Warnlog "'Load user setting with document' => changes not saved" + endif + if DokumenteigenschaftenBearbeiten.IsChecked <> lbSave ( 1 ) then + Warnlog "'Edit document properties before saving' => changes not saved" + endif + if Sicherungskopie.IsChecked <> lbSave ( 2 ) then + Warnlog "'Create backup copy' => changes not saved" + endif + if AutomatischSpeichern.IsChecked <> lbSave ( 3 ) then + Warnlog "AutoSave => changes not saved" + endif + if AutomatischSpeichern.IsChecked then + if Minuten.GetText <> lsSave( 1 ) then + Warnlog "Minutes for AutoSave => changes not saved" + endif + endif + if NoPrettyPrinting.IsChecked <> lbSave ( 10 ) then + Warnlog "no pretty printing => changes not saved" + endif + if URLimDateisystem.IsChecked <> lbSave ( 11 ) then + Warnlog "URL: File system => changes not saved" + endif + if URLimInternet.IsChecked <> lbSave ( 12 ) then + Warnlog "URL: Internet => changes not saved" + endif + for i=1 to AppCount + Dokumenttyp.Select(i) + if Dokumenttyp.GetSelText <> lsSave ( 2 + i ) then + Warnlog "The sorting of the document-listbox has been changed!" + endif + if Filter.GetSelText <> lsSave ( 2 + AppCount + i ) then + Warnlog "Document '" + Dokumenttyp.GetSelText + "': changes not saved" + endif + next i + + kontext "extrasoptionendlg" + ExtrasOptionenDlg.OK +endcase |