From 5c94a8213a881a66aa00c059aa29caf8de0808bc Mon Sep 17 00:00:00 2001 From: Joerg Sievers Date: Mon, 16 Jun 2008 11:19:07 +0000 Subject: Creating clean testautomation modul with changed structure which will be included into the CWS process. --- .../includes/options_ooo_accessibility.inc | 211 +++++++++++++++++++++ 1 file changed, 211 insertions(+) create mode 100755 testautomation/framework/optional/includes/options_ooo_accessibility.inc (limited to 'testautomation/framework/optional/includes/options_ooo_accessibility.inc') diff --git a/testautomation/framework/optional/includes/options_ooo_accessibility.inc b/testautomation/framework/optional/includes/options_ooo_accessibility.inc new file mode 100755 index 000000000000..bdc82c32afcb --- /dev/null +++ b/testautomation/framework/optional/includes/options_ooo_accessibility.inc @@ -0,0 +1,211 @@ +'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: options_ooo_accessibility.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-16 12:18:15 $ +'* +'* 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 +'* +'* for a copy of the LGPLv3 License. +'* +'/************************************************************************ +'* +'* owner : thorsten.bosbach@sun.com +'* +'* short description : Tools->Options: OpenOffice.org Accessibility +'* +'\****************************************************************************** + +testcase tOOoAccessibility + +'///check if all settings are saved in configuration ( StarOffice / Accessibility ) + Dim lbSave ( 10 ) as Boolean + Dim sSave as String + + printlog " - save default setting" +'///save settings +'///tools / options / staroffice / accessibility + ToolsOptions + hToolsOptions ( "StarOffice", "Accessibility" ) + + lbSave (9) = AutomaticDetectHC.IsChecked + lbSave (2) = ForPagePreviews.IsChecked + lbSave (3) = HelpTips.IsChecked + sSave = After.GetText + lbSave (4) = AllowAnimatedGraphics.IsChecked + lbSave (5) = AllowAnimatedText.IsChecked + lbSave (6) = AlwaysUseAutomaticFontColor.IsChecked + 'lbSave (7) = UseSystemFont.IsChecked + lbSave (10) = UseTextSelectionCursor.IsChecked + if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then + lbSave (8) = SupportAssistiveTechnologyTools.IsChecked + end if + + +'///revers/change settings + printlog " - revers/change settings" + if lbSave (9) = TRUE then AutomaticDetectHC.UnCheck else AutomaticDetectHC.Check + if lbSave (2) = TRUE then ForPagePreviews.Uncheck else ForPagePreviews.Check + HelpTips.Check + After.SetText "17" + if lbSave (3) = TRUE then HelpTips.Uncheck else HelpTips.Check + if lbSave (4) = TRUE then AllowAnimatedGraphics.Uncheck else AllowAnimatedGraphics.Check + if lbSave (5) = TRUE then AllowAnimatedText.Uncheck else AllowAnimatedText.Check + if lbSave (6) = TRUE then AlwaysUseAutomaticFontColor.Uncheck else AlwaysUseAutomaticFontColor.Check + 'if lbSave (7) = TRUE then UseSystemFont.Uncheck else UseSystemFont.Check + if lbSave (10) = TRUE then UseTextSelectionCursor.Uncheck else UseTextSelectionCursor.Check + if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then + '/// - 'Support assistive technology tools' is only available on windows platform ///' + '/// - if you enable it, and you have not the right / or none version of teh Java Access Bridge a system dialog comes up ///' + '/// - this is a wanted behaviour! but can't be handled by testtool. so this option won't be checked! ///' + if (gPlatgroup <> "unx") then + Printlog "'Support assistive technology tools' won't be tested due to system dialog could come up and look the test out :-(" + else + Warnlog "unexpected error 4711 :-)" + endif +' if lbSave (8) = TRUE then SupportAssistiveTechnologyTools.Uncheck else SupportAssistiveTechnologyTools.Check + else + if (gPlatgroup <> "unx") then + Warnlog "'Support assistive technology tools' is not available :-(" + endif + end if + +'///press OK at the options dialog + printlog " - press OK at the options dialog" + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + Sleep (3) + +'///exit and restart StarOffice + printlog " - exit/restart StarOffice" + ExitRestartTheOffice + +'///check the changes + printlog " - check settings" +'///tools / options / staroffice / accessibility + ToolsOptions + hToolsOptions ( "StarOffice", "Accessibility" ) + + if AutomaticDetectHC.IsChecked = lbSave (9) then warnlog "Automatic Detect HC ... : => changes not saved!" + if ForPagePreviews.IsChecked = lbSave (2) then warnlog "For Page Previews : => changes not saved!" + if HelpTips.IsChecked = lbSave (3) then warnlog "Help Tips : => changes not saved!" + HelpTips.Check + if After.GetText <> "17" then warnlog "After... : => changes not saved!" + if AllowAnimatedGraphics.IsChecked = lbSave (4) then warnlog "Allow Animated Graphics : => changes not saved!" + if AllowAnimatedText.IsChecked = lbSave (5) then warnlog "Allow Animated Text : => changes not saved!" + if AlwaysUseAutomaticFontColor.IsChecked = lbSave (6) then warnlog "Always Use Automatic Font Color : => changes not saved!" + 'if UseSystemFont.IsChecked = lbSave (7) then warnlog "Use System Font : => changes not saved!" + if UseTextSelectionCursor.IsChecked = lbSave (10) then warnlog "Use Text Selection Cursor : => changes not saved!" +' if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then +' if SupportAssistiveTechnologyTools.IsChecked = lbSave (8) then warnlog "Support Assistive Technology Tools : => changes not saved!" +' end if + + printlog " - second settings" +'///second changes + AutomaticDetectHC.UnCheck + ForPagePreviews.Check + HelpTips.Check + After.SetText "1" + AllowAnimatedGraphics.Uncheck + AllowAnimatedText.Check + AlwaysUseAutomaticFontColor.Uncheck + 'UseSystemFont.Check + UseTextSelectionCursor.UnCheck + if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then + SupportAssistiveTechnologyTools.Uncheck + end if + +'///press OK at the options dialog + printlog " - press OK at the options dialog" + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + Sleep (3) + +'///check the changes + printlog " - check changes" +'///tools / options / staroffice / accessibility + ToolsOptions + hToolsOptions ( "StarOffice", "Accessibility" ) + + if AutomaticDetectHC.IsChecked <> FALSE then warnlog "Automatic Detect HC ... : => changes not saved!" + if ForPagePreviews.IsChecked <> TRUE then warnlog "For Page Previews : => changes not saved!" + if HelpTips.IsChecked <> TRUE then warnlog "Help Tips : => changes not saved!" + if After.GetText <> "1" then warnlog "After... : => changes not saved!" + if AllowAnimatedGraphics.IsChecked <> FALSE then warnlog "Allow Animated Graphics : => changes not saved!" + if AllowAnimatedText.IsChecked <> TRUE then warnlog "Allow Animated Text : => changes not saved!" + if AlwaysUseAutomaticFontColor.IsChecked <> FALSE then warnlog "Always Use Automatic Font Color : => changes not saved!" + 'if UseSystemFont.IsChecked <> TRUE then warnlog "Use System Font : => changes not saved!" + if UseTextSelectionCursor.IsChecked <> FALSE then warnlog "Use Text Selection Cursor : => changes not saved!" + if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then + if SupportAssistiveTechnologyTools.IsChecked <> FALSE then warnlog "Support Assistive Technology Tools : => changes not saved!" + end if + +'///reset to default + if lbSave (9) = TRUE then AutomaticDetectHC.Check else AutomaticDetectHC.UnCheck + if lbSave (2) = TRUE then ForPagePreviews.Check else ForPagePreviews.UnCheck + HelpTips.Check + After.SetText sSave + if lbSave (3) = TRUE then HelpTips.Check else HelpTips.UnCheck + if lbSave (4) = TRUE then AllowAnimatedGraphics.Check else AllowAnimatedGraphics.UnCheck + if lbSave (5) = TRUE then AllowAnimatedText.Check else AllowAnimatedText.UnCheck + if lbSave (6) = TRUE then AlwaysUseAutomaticFontColor.Check else AlwaysUseAutomaticFontColor.UnCheck + 'if lbSave (7) = TRUE then UseSystemFont.Check else UseSystemFont.UnCheck + if lbSave (10) = TRUE then UseTextSelectionCursor.Check else UseTextSelectionCursor.UnCheck + if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then + if lbSave (8) = TRUE then SupportAssistiveTechnologyTools.Check else SupportAssistiveTechnologyTools.UnCheck + end if + +'///press OK at the options dialog + printlog " - press OK at the options dialog" + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + Sleep (3) + +'///check the reset + printlog " - check reset" +'///tools / options / staroffice / accessibility + ToolsOptions + hToolsOptions ( "StarOffice", "Accessibility" ) + + if AutomaticDetectHC.IsChecked <> lbSave (9) then warnlog "Automatic Detect HC ... : => changes not saved!" + if ForPagePreviews.IsChecked <> lbSave (2) then warnlog "For Page Previews : => changes not saved!" + if HelpTips.IsChecked <> lbSave (3) then warnlog "Help Tips : => changes not saved!" + HelpTips.Check + if After.GetText <> sSave then warnlog "After... : => changes not saved!" + if AllowAnimatedGraphics.IsChecked <> lbSave (4) then warnlog "Allow Animated Graphics : => changes not saved!" + if AllowAnimatedText.IsChecked <> lbSave (5) then warnlog "Allow Animated Text : => changes not saved!" + if AlwaysUseAutomaticFontColor.IsChecked <> lbSave (6) then warnlog "Always Use Automatic Font Color : => changes not saved!" + 'if UseSystemFont.IsChecked <> lbSave (7) then warnlog "Use System Font : => changes not saved!" + if UseTextSelectionCursor.IsChecked <> lbSave (10) then warnlog "Use Text Selection Cursor : => changes not saved!" + if SupportAssistiveTechnologyTools.Exists and SupportAssistiveTechnologyTools.IsVisible then + if SupportAssistiveTechnologyTools.IsChecked <> lbSave (8) then warnlog "Support Assistive Technology Tools : => changes not saved!" + end if +'///press OK at the options dialog + printlog " - press OK at the options dialog" + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + Sleep (3) + +endcase + -- cgit v1.2.3