diff options
Diffstat (limited to 'testautomation/global/required/includes/g_009.inc')
-rw-r--r-- | testautomation/global/required/includes/g_009.inc | 178 |
1 files changed, 178 insertions, 0 deletions
diff --git a/testautomation/global/required/includes/g_009.inc b/testautomation/global/required/includes/g_009.inc new file mode 100644 index 000000000000..1e6372bbdb7f --- /dev/null +++ b/testautomation/global/required/includes/g_009.inc @@ -0,0 +1,178 @@ +'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 : Global resource tests for the menu: Help +'* +'************************************************************************* +'* +' #1 tHelpCheckForUpdates +'* +'\************************************************************************ + +testcase tHelpCheckForUpdates + dim sTemp as string + dim sIniFile as string + dim i,a as integer + dim bProxy as boolean + dim bOnceAgain as boolean + dim sProxyFile as string + dim iOldProxy as integer + + bProxy = FALSE + bOnceAgain = TRUE + + '/// open application ///' + Call hNewDocument + + if gPlatGroup = "unx" then + sIniFile = convertPath(gNetzOfficePath+"program/versionrc") + else + sIniFile = convertPath(gNetzOfficePath+"program\version.ini") + endif + sTemp = GetIniValue (sIniFile, "Version", "UpdateURL") + if (sTemp <> "" AND NOT gOOO) then + '/// choose Help -> Check for Updates... ///' + while (bOnceAgain) + if bProxy AND bOnceAgain then + bOnceAgain = FALSE + endif + try + HelpCheckForUpdates + catch + bOnceAgain = FALSE + if (gtplatform = "sol") OR (gtplatform = "x86") or gOOO then + printlog "This could be a (patched) installation on Solaris Sparc/Intel or OOo - No Online Update Feature available." + hCloseDocument + else + warnlog "Help->Check for Updates failed" + hCloseDocument + endif + goto endsub + endcatch + ' The dialog has to come up: 'Check for Updates' + Kontext "CheckForUpdates" +' if CheckForUpdates.exists(10) then ' id not in build for dialog workaround: ' not working due to i 80859 + if Status.exists(10) then + if sTemp <> "" then + printlog "'Check for Updates' came up" + else + warnlog "'Check for Updates' came up, but the feature is disabled and the dialog hasn't to come up" + bOnceAgain = FALSE + endif + 'dialogTest(CheckForUpdates) ' not working due to i 80859 + '/// A messagebox comes up with either CANCEL and/or OK -> press CANCEL or the only available button. ///' + ' And will be overlayed soon by an 'active' + Kontext + if active.exists(6) then + printlog "Active text: '" + active.getText + "'" + try + active.cancel + printlog "Pressed CANCEL" + catch + active.ok + printlog "Pressed OK" + endcatch + bOnceAgain = FALSE + else + bOnceAgain = FALSE + Kontext "CheckForUpdates" + try + CheckForUpdates.cancel + catch + 'cancel button is no more availabale + printlog "cancel wasnt possible" + try + 'CheckForUpdates.close + ' close method doesn't work + printlog "1:"+status.gettext + printlog "2:"+description.gettext + closebtn.click + catch + printlog "close wasnt possible" + ' last fallback + 'printlog resetapplication + 'hNewDocument + printlog "1:"+status.gettext + printlog "2:"+description.gettext + cancel.click + endcatch + endcatch + endif + else + bOnceAgain = FALSE + if sTemp <> "" then + if (gtplatform = "sol") OR (gtplatform = "x86") or gOOO then + printlog "This could be a (patched) installation on Solaris Sparc/Intel or OOo - No Online Update Feature available." + else + warnlog "Dialog didn't came up: 'Check for Updates'; URL that was called is: '" + sTemp + "'" + endif + else + warnlog "Online Update Feature isn't available in this build, but calling Help -> Check for Updates is possible? (no 'UpdateURL' in file: '"+sIniFile+"')" + endif + endif + ' Set proxy to get connection to update server + if bProxy then + ToolsOptions + hToolsOptions("INTERNET","PROXY") + Kontext "TabProxyServer" + a = ProxyServer.getItemCount + for i = 1 to a + printlog "(" + i + "/" + a + "): '" + ProxyServer.getItemText(i) + "'" + next i + ProxyServer.select(a) ' should be always manual + if HttpProxy.isEnabled AND (privateProxyServer <> "") then + HttpProxy.setText privateProxyServer + HttpPort.setText cStr(privateProxyPort) + if bOnceAgain then + iOldProxy = ProxyServer.getSelIndex + else + ProxyServer.select(iOldProxy) + endif + Kontext "OptionenDlg" + OptionenDlg.OK + else + if privateProxyServer <> "" then + warnLog "Wrong assumption that last entry is 'manual'! " + ProxyServer.getItemText(a) + else + qaErrorLog "Maybe you need to use a proxy server to connect to the internet." + endif + Kontext "OptionenDlg" + OptionenDlg.Cancel + bOnceAgain = FALSE + endif + endif + bOnceAgain = FALSE + wend + else + qaErrorlog "Test disabled, because it is OOo build and UpdateURL is empty and calling the slot would succeed" + endif + '/// close application ///' + Call hCloseDocument +endcase + |