testautomation/framework/optional/includes/security_trusted_path.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '
   5 ' Copyright 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/******************************************************************************
  27 '*
  28 '*  owner : gregor.hartmann@oracle.com
  29 '*
  30 '*  short description : Execute macros from trusted path
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tSecTrustedPath( cWorkFile as string, iSecLevel as integer )
  35
  36
  37     dim irc as integer
  38     dim cMsg as string
  39
  40     cWorkFile = convertToUrl( convertpath( cWorkFile ) )
  41     FileOpen( "URL", cWorkFile, "FrameName", "_default"
  42     irc = hFileWait( false )
  43
  44     ' We have quite a bunch of possible combinations here. Some trigger a security warning
  45     ' others do not. Files within a trusted path should never prompt.
  46
  47     '         |---------------------------------------------------------|
  48     '         | Trusted |     Security Level / Warning displayed        |
  49     '         |  Path   |   Low     |  Medium   |   High    | Very High |
  50     '         |---------------------------------------------------------|
  51     '         |  Yes    |     No    |    No     |     No    |    No     |
  52     '         |---------------------------------------------------------|
  53     '         |   No*)  |     No    |    Yes    |  Blocked  |  Blocked  |
  54     '         |---------------------------------------------------------|
  55     ' *) Covered by test "f_sec_macrosecurity.bas"
  56
  57
  58     if ( irc = -2 ) then
  59         kontext "SecurityWarning"
  60         if ( SecurityWarning.exists() ) then
  61             warnlog( "Macro Security Warning was not expected at this point" )
  62             SecurityWarning.ok()
  63         endif
  64     endif
  65
  66     Sleep (1)
  67     printlog( "Verify that the macro is executed" )
  68     kontext "Active"
  69     if ( active.exists( 2 ) ) then
  70         cMsg = active.getText()
  71         cMsg = hRemoveLineBreaks( cMsg )
  72         if ( cMsg = "TTMacro3" ) then
  73             printlog( "Macro was executed" )
  74         else
  75             warnlog( "Invalid messagebox is open, please check" )
  76         endif
  77
  78         active.ok()
  79
  80     endif
  81
  82     hDestroyDocument()
  83
  84
  85
  86 endcase
  87