testautomation/framework/optional/includes/security_broken_signature.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 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: security_broken_signature.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:15 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/******************************************************************************
  33 '*
  34 '*  owner : joerg.skottke@sun.com
  35 '*
  36 '*  short description : Load documents containing hidden BASIC scripts
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tBrokenSignature()
  41
  42     '///<h1>Allow macro execution/Security set to medium</h1>
  43     '///<ul>
  44
  45     dim acFile( 1 ) as string
  46
  47         acFile( 1 ) = "framework\optional\input\security\test_macro (signed).odt"
  48         acFile( 1 ) = gTesttoolPath & acFile( 1 )
  49         acFile( 1 ) = convertpath( acFile( 1 ) )
  50
  51     dim iCurrentFile as integer ' increment variable
  52     dim cMsg as string          ' string from messagebox
  53     dim brc as boolean          ' some returnvalue
  54
  55
  56     '///+<li>Do following for each document to be tested:</li>
  57     '///<ul>
  58
  59     for iCurrentFile = 1 to ubound( acFile() )
  60
  61         printlog( "" )
  62         printlog( "File: " & acFile( iCurrentFile ) )
  63
  64         '///+<li>Click FileOpen or go to the dialog via menu</li>
  65             FileOpen
  66
  67         '///+<li>Enter the name of the file</li>
  68             kontext "OeffnenDlg"
  69             Dateiname.setText( acFile( iCurrentFile ) )
  70
  71         '///+<li>Click &quot;Open&quot;</li>
  72         Oeffnen.click()
  73
  74         '///+<li>Test for Broken Signature Messagebox:</li>
  75         '///<ul>
  76         Kontext "Active"
  77         if ( active.exists( 3 ) ) then
  78             cMsg = active.getText()
  79             cMsg = hRemoveLineBreaks( cMsg )
  80
  81             '///+<li>Make sure that we do not have the macro</li>
  82             if ( cMsg = "Hello from StarBasic!" ) then
  83                 warnlog( "Macro was executed without any warning" )
  84             else
  85                 '///+<li>Guess the dialog by Ressource Type</li>
  86                 if ( active.getRT() = 304 ) then
  87                     printlog( "Broken signature message: " & cMsg )
  88                 else
  89                     warnlog( "Unknown messagebox: " & cMsg )
  90                 endif
  91             endif
  92
  93             '///+<li>Close dialog with OK</li>
  94             active.ok()
  95
  96         endif
  97         '///</ul>
  98
  99         '///+<li>Test for the macro again</li>
 100         kontext "Active"
 101         if ( active.exists() ) then
 102             cMsg = active.getText()
 103             cMsg = hRemoveLineBreaks( cMsg )
 104             warnlog( "Unexpected messagebox: " & cMsg )
 105             active.ok()
 106         endif
 107
 108         '///+<li>Close the document</li>
 109         call hCloseDocument()
 110
 111     next iCurrentFile
 112
 113     '///</ul>
 114     '///</ul>
 115
 116 endcase
 117