diff options
author | August Sodora <augsod@gmail.com> | 2011-12-07 00:55:10 -0500 |
---|---|---|
committer | August Sodora <augsod@gmail.com> | 2011-12-07 00:56:22 -0500 |
commit | a2eb0cf44bbd15ae24f9423d3bc6e420691c300d (patch) | |
tree | b11ce54011011e96217d9b504e81ec87aaef38a4 /testautomation/framework/optional/includes/basic_vba-compat_security_check.inc | |
parent | e2621785569969374cc3bc39fae0341d8b848612 (diff) |
Remove testtool
Diffstat (limited to 'testautomation/framework/optional/includes/basic_vba-compat_security_check.inc')
-rw-r--r-- | testautomation/framework/optional/includes/basic_vba-compat_security_check.inc | 105 |
1 files changed, 0 insertions, 105 deletions
diff --git a/testautomation/framework/optional/includes/basic_vba-compat_security_check.inc b/testautomation/framework/optional/includes/basic_vba-compat_security_check.inc deleted file mode 100644 index 5589d5b420e6..000000000000 --- a/testautomation/framework/optional/includes/basic_vba-compat_security_check.inc +++ /dev/null @@ -1,105 +0,0 @@ -'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 : gregor.hartmann@oracle.com -'* -'* short description : Test VBA compatibility switches -'* -'\****************************************************************************** - -testcase tBasicVBACompatSecurityCheck() - - printlog( "Test VBA Security feature" ) - printlog( "VBA macros may not ignore global macro security setting" ) - - ' This test case is based on the use cases provided in issue #i109699 - - const IMPORT_EXCEL_MACROS = TRUE - const EXEC_EXCEL_MACROS = TRUE - - const MACRO_IDENTIFICATION_MESSAGE = "Clicked" - const MACRO_NAME = "CommandButton1_Click" - - const WORK_FILE = "framework/optional/input/vba-compat/Book1.xls" - - dim cTestFile as string : cTestFile = gTesttoolPath & WORK_FILE - dim iSecurityLevel as integer - - - printlog( "Set VBA macro handling to import and execute" ) - hSetExcelBasicImportMode( IMPORT_EXCEL_MACROS, EXEC_EXCEL_MACROS ) - - for iSecurityLevel = GC_MACRO_SECURITY_LEVEL_MEDIUM to GC_MACRO_SECURITY_LEVEL_VERYHIGH - - printlog( "Adjust security level" ) - hSetMacroSecurityAPI( iSecurityLevel ) - - printlog( "Load the test file" ) - hFileOpen( cTestFile ) - - printlog( "Deny macro execution or close macros blocked message" ) - if ( iSecurityLevel = GC_MACRO_SECURITY_LEVEL_MEDIUM ) then - hDenyMacroExecution() - else - kontext "Active" - Active.ok() - endif - - printlog( "Try to execute macro via macro organizer" ) - hMacroOrganizerRunMacro( MACRO_NAME ) - - printlog( "Probe for warning message (or macro)" ) - kontext "Active" - if ( Active.exists( 2 ) ) then - if ( Active.getText() = MACRO_IDENTIFICATION_MESSAGE ) then - warnlog( "Macro was executed though macro execution has been denied" ) - Active.ok() - else - printlog( "Macro execution blocked - warning is displayed." ) - Active.ok() - endif - else - warnlog( "No warning message for blocked macro execution" ) - endif - - ' recover silently, the warnings above should say it all. - kontext "Makro" - if ( Makro.exists() ) then Makro.cancel() - - printlog( "Close file" ) - hDestroyDocument() - - next iSecurityLevel - - printlog( "Reset VBA import options to default" ) - hSetExcelImportModeDefault() - - printlog( "Reset macro security level to default" ) - hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_DEFAULT ) - -endcase - |