diff options
Diffstat (limited to 'testautomation/writer/required/includes/w_001a_.inc')
-rwxr-xr-x[-rw-r--r--] | testautomation/writer/required/includes/w_001a_.inc | 182 |
1 files changed, 37 insertions, 145 deletions
diff --git a/testautomation/writer/required/includes/w_001a_.inc b/testautomation/writer/required/includes/w_001a_.inc index cbfd5de23047..4151d095cd94 100644..100755 --- a/testautomation/writer/required/includes/w_001a_.inc +++ b/testautomation/writer/required/includes/w_001a_.inc @@ -1,33 +1,28 @@ +'encoding UTF-8 Do not remove or change this line! '************************************************************************** -'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* -'* Copyright 2008 by Sun Microsystems, Inc. -'* -'* OpenOffice.org - a multi-platform office productivity suite -'* -'* $RCSfile: w_001a_.inc,v $ -'* -'* $Revision: 1.2 $ -'* -'* last change: $Author: vg $ $Date: 2008-08-18 12:40:41 $ -'* -'* 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. -'* + * 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 : helge.delfs@sun.com @@ -49,7 +44,11 @@ sub w_001a_ Call tFileTemplatesEdit Call tFilePagePreview - Call tFilePrint + Call tPrintCommon() + Call tPrintGeneral() + Call tPrintApplication() + Call tPrintLayout() + Call tPrintOptions() Call tFilePrinterSetup 'Writer Master Document @@ -360,22 +359,14 @@ testcase tFilePagePreview QAErrorlog "No default printer!" Active.ok Sleep 1 - Kontext "DruckenDlg" - if DruckenDlg.Exists then DruckenDlg.Cancel + Kontext "Printing" + if Printing.Exists then Printing.Cancel else printlog " Close 'Print' dialog with cancel" - Kontext "DruckenDlg" - DruckenDlg.Cancel + Kontext "Printing" + Printing.Cancel end if - printlog " Click 'Print options page preview' in toolbar" - Kontext "PreviewObjectbar" - Skalierung.Click - printlog " Close 'Print Options' dialog with cancel" - Kontext "DruckOptionen" - Call DialogTest ( DruckOptionen ) - DruckOptionen.Cancel - printlog " Close Page Preview with button 'Close Preview' in toolbar" Kontext "PreviewObjectbar" SeitenansichtSchliessen.Click @@ -389,97 +380,6 @@ endcase '----------------------------------------------------------- -testcase tFilePrint - PrintLog " Open new document" - Call hNewDocument - - PrintLog " File / Print" - FilePrint - - Kontext "Active" - WaitSlot(1000) - if Active.Exists then - if Active.GetRT = 304 then - QAErrorlog "No Default Printer!" - Active.Ok - Kontext "DruckenDlg" - if DruckenDlg.Exists then DruckenDlg.Cancel - Call hCloseDocument - goto endsub - end if - end if - Kontext "DruckenDlg" - if DruckenDlg.Exists then - PrintLog " In printer dialog click 'Options'" - Zusaetze.Click - Sleep 1 - - Kontext "DruckerZusaetzeWriter" - PrintLog " Close 'Print options' with 'Cancel'" - DruckerZusaetzeWriter.Cancel - Kontext "DruckenDlg" - - if gPlatGroup = "unx" then - if NOT Eigenschaften.IsEnabled AND gPlatform = "osx" then - QAErrorlog "#i81545#-macport File -> Print|Printer Settings: Properties button disabled" - Kontext "DruckenDlg" - DruckenDlg.Cancel - Call hCloseDocument - goto endsub - end if - PrintLog " On Unix-Platforms select 'Properties" - Eigenschaften.Click - sleep (3) - Kontext "TabSPAPaper" - if NOT TabSPAPaper.Exists then - Kontext "TabSPADevice" - if NOT TabSPADevice.Exists then - Warnlog "#i88799# - Non functional options-button in Print-dialog." - else - Kontext - Active.Setpage TabSPAPaper - Kontext "TabSPAPaper" - Call DialogTest ( TabSPAPaper ) - - printlog( "ALLES WIRD GUT!" ) - Kontext - Active.Setpage TabSPADevice - Kontext "TabSPADevice" - Call DialogTest ( TabSPADevice ) - - PrintLog " Cancel Printer Properties' (only unix)" - TabSPADevice.Cancel - end if - else - Kontext - Active.Setpage TabSPAPaper - Kontext "TabSPAPaper" - Call DialogTest ( TabSPAPaper ) - - printlog( "ALLES WIRD GUT!" ) - Kontext - Active.Setpage TabSPADevice - Kontext "TabSPADevice" - Call DialogTest ( TabSPADevice ) - - PrintLog " Cancel Printer Properties' (only unix)" - TabSPADevice.Cancel - end if - end if - Kontext "DruckenDlg" - Call DialogTest ( DruckenDlg ) - PrintLog " Close 'Print' dialog" - DruckenDlg.Cancel - else - Warnlog "Print dialog is not up !" - end if - - PrintLog " Close active document" - Call hCloseDocument -endcase - -'----------------------------------------------------------- - testcase tFilePrinterSetup PrintLog " Open new document" Call hNewDocument @@ -552,22 +452,14 @@ testcase tMasterDocFilePagePreview QAErrorlog "No default printer!" Active.ok Sleep 1 - Kontext "DruckenDlg" - if DruckenDlg.Exists then DruckenDlg.Cancel + Kontext "Printing" + if Printing.Exists then Printing.Cancel else printlog " Close 'Print' dialog with cancel" - Kontext "DruckenDlg" - DruckenDlg.Cancel + Kontext "Printing" + Printing.Cancel end if - printlog " Click 'Print options page preview' in toolbar" - Kontext "PreviewObjectbar" - Skalierung.Click - printlog " Close 'Print Options' dialog with cancel" - Kontext "DruckOptionen" - Call DialogTest ( DruckOptionen ) - DruckOptionen.Cancel - printlog " Close Page Preview with button 'Close Preview' in toolbar" Kontext "PreviewObjectbar" SeitenansichtSchliessen.Click |