diff options
Diffstat (limited to 'testautomation/framework/optional/includes/options_ooo_general.inc')
-rw-r--r-- | testautomation/framework/optional/includes/options_ooo_general.inc | 197 |
1 files changed, 197 insertions, 0 deletions
diff --git a/testautomation/framework/optional/includes/options_ooo_general.inc b/testautomation/framework/optional/includes/options_ooo_general.inc new file mode 100644 index 000000000000..311f5bf8543d --- /dev/null +++ b/testautomation/framework/optional/includes/options_ooo_general.inc @@ -0,0 +1,197 @@ +'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 : joerg.skottke@oracle.com +'* +'* short description : 1. test for general group userdata +'* +'\****************************************************************************** + +testcase tOOoGeneral + + dim lsSave (4) as String + dim lbSave (3) as Boolean + + hNewDocument + + ToolsOptions + hToolsOptions ( "StarOffice", "General" ) + + printlog " - save old data" + lsSave ( 1 ) = Zweistellig.GetText + lbSave ( 1 ) = Aktivieren.IsChecked + Aktivieren.Check + + if gPlatgroup = "w95" then + lbSave (2) = StarOfficeDialogeBenutzen.IsChecked + endif + + lbSave ( 3 ) = DruckenStatus.IsChecked + lsSave ( 3 ) = StyleSheet.GetSelText + + printlog " - invert/change data" + Zweistellig.SetText "1950" + Zuruecksetzen.Click + + if gPlatgroup = "w95" then + if lbSave (2) then + StarOfficeDialogeBenutzen.Uncheck + else + StarOfficeDialogeBenutzen.Check + endif + endif + + If lbSave ( 3 ) then + DruckenStatus.Uncheck + else + DruckenStatus.Check + endif + + StyleSheet.Select 3 + + Kontext "ExtrasOptionenDlg" + hCloseDialog( ExtrasOptionenDlg, "ok" ) + hCloseDocument + + printlog " - exit/restart StarOffice" + ExitRestartTheOffice + + printlog " - check data" + ToolsOptions + hToolsOptions ( "StarOffice", "General" ) + + if Zweistellig.GetText <> "1950" then + Warnlog "#i29810# - Year ( 2 digits ) => changes not saved: " + Zweistellig.GetText + endif + + if not Aktivieren.IsChecked then + Warnlog "Enable HelpAgent => changes not saved" + endif + + Zuruecksetzen.Click + + if gPlatgroup = "w95" then + if StarOfficeDialogeBenutzen.IsChecked = lbSave (2) then + Warnlog "Use StarOffice dialogs => changes not saved!" + endif + endif + + If DruckenStatus.IsChecked = lbSave ( 3 ) then + Warnlog "Printing sets 'Document modified' status => changes not saved!" + endif + + printlog " - 2. change data" + Zweistellig.SetText "1800" + DruckenStatus.UnCheck + + Kontext "ExtrasOptionenDlg" + hCloseDialog( ExtrasOptionenDlg, "ok" ) + + printlog " - check data" + ToolsOptions + hToolsOptions ( "StarOffice", "General" ) + + if ( Zweistellig.GetText <> "1800" ) then + Warnlog( "#i29810# - Year ( 2 digits ) => changes not saved : " & Zweistellig.GetText() ) + endif + + If DruckenStatus.IsChecked then + Warnlog "Printing sets 'Document modified' status => changes not saved!" + endif + + if StyleSheet.GetSelIndex <> 3 then + Warnlog "Style sheet for StarOffice Help => changes not saved!" + endif + + printlog " - reset to saved data" + Zweistellig.SetText lsSave ( 1 ) + Aktivieren.Check + Zuruecksetzen.Click + + if lbSave (1) then + Aktivieren.Check + else + Aktivieren.Uncheck + endif + + if gPlatgroup = "w95" then + if lbSave (2) then + StarOfficeDialogeBenutzen.Check + else + StarOfficeDialogeBenutzen.UnCheck + endif + endif + + If lbSave(3) then + DruckenStatus.Check + else + DruckenStatus.UnCheck + endif + + StyleSheet.Select lsSave(3) + + Kontext "ExtrasOptionenDlg" + hCloseDialog( ExtrasOptionenDlg, "ok" ) + + ToolsOptions + hToolsOptions ( "StarOffice", "General" ) + + printlog " - check the reset data" + if Zweistellig.GetText <> lsSave ( 1 ) then + Warnlog "Year ( 2 digits ) => changes not saved" + endif + + if Aktivieren.IsChecked <> lbSave (1) then + Warnlog "Enable HelpAgent => changes not saved" + endif + + Aktivieren.Check + Zuruecksetzen.Click + + if lbSave (1) then + Aktivieren.Check else Aktivieren.Uncheck + endif + + if gPlatgroup = "w95" then + if StarOfficeDialogeBenutzen.IsChecked <> lbSave (2) then + Warnlog "Use StarOffice dialogs => changes not saved!" + endif + endif + + If DruckenStatus.IsChecked <> lbSave(3) then + Warnlog "Printing sets 'Document modified' status => changes not saved!" + endif + + if StyleSheet.GetSelText <> lsSave (3) then + Warnlog "Style sheet for StarOffice Help => changes not saved!" + endif + + Kontext "ExtrasOptionenDlg" + hCloseDialog( ExtrasOptionenDlg, "ok" ) + +endcase + |