testautomation/framework/optional/includes/basic_vba-compat_import_nothing.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 : Test VBA compatibility switches
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tBasicVBACompatImportNothing()
  35
  36     printlog( "Test VBA compatibility switch / executable Microsoft(R) Excel(R) Macros" )
  37     printlog( "Test case 1: Do not import macros at all" )
  38
  39     ' This test case is based on the use cases provided in issue #i88690
  40     ' Spec: http://specs.openoffice.org/appwide/options_settings/Option_Dialog.odt
  41 ' Depending on the mode of macro import we have differtent basic libraries listed
  42     const NODE_COUNT = 72 ' Do not import Microsoft(R) Excel(R) macros at all
  43     const MACRO_LIST = 0  ' The document library should have no scripts listed
  44     const DOCUMENT_POSITION_OFFSET = -1
  45
  46     const IMPORT_EXCEL_MACROS = FALSE
  47     const EXEC_EXCEL_MACROS   = FALSE
  48
  49     const DOCUMENT_NAME = "vba-test.xls"
  50     const MATCH_NONE    = 0
  51     const MATCH_EXACT   = 1
  52     const MATCH_PARTLY  = 2
  53
  54     dim cTestFile as string
  55         cTestFile = gTesttoolPath & "framework/optional/input/vba-compat/" & DOCUMENT_NAME
  56
  57     dim cNodeCount as integer
  58
  59     printlog( "Set macro security to low" )
  60     hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_LOW )
  61
  62     printlog( "Open Tools/Options" )
  63
  64     hSetExcelBasicImportMode( IMPORT_EXCEL_MACROS, EXEC_EXCEL_MACROS )
  65
  66     printlog( "Load the test file" )
  67     hFileOpen( cTestFile )
  68
  69     printlog( "Open the Basic organizer" )
  70     ToolsMacro_uno
  71
  72     printlog( "Expand all nodes" )
  73     kontext "Makro"
  74     cNodeCount = hExpandAllNodes( MakroAus )
  75
  76     printlog( "Verify that we have the correct node count for the current mode" )
  77     if ( gOOo ) then
  78         if ( cNodeCount <> NODE_COUNT_OOO ) then warnlog( "The number of nodes is incorrect: " & cNodeCount )
  79     else
  80         if ( cNodeCount <> NODE_COUNT ) then warnlog( "The number of nodes is incorrect: " & cNodeCount )
  81     endif
  82
  83     printlog( "Verify position of the document node" )
  84     MakroAus.select( cNodeCount + DOCUMENT_POSITION_OFFSET )
  85     select case( hCompareSubStrings( MakroAus.getSelText(), DOCUMENT_NAME  ) )
  86     case MATCH_NONE   : warnlog ( "The document is not listed at the expected position" )
  87     case MATCH_EXACT  : printlog( "The document is at the expected position and writable" )
  88     case MATCH_PARTLY : printlog( "The document is at the expected position and write protected" )
  89     end select
  90
  91     printlog( "Select the last node, this should be the standard Library for the document" )
  92     MakroAus.select( cNodeCount )
  93
  94     printlog( "Verify that the Standard library for the document has no scripts" )
  95     if ( MakroListe.getItemCount <> MACRO_LIST ) then
  96         warnlog( "There should be no macros listed for the current library"
  97     endif
  98
  99     printlog( "Close Macro Organizer" )
 100     Kontext "Makro"
 101     Makro.close()
 102     WaitSlot()
 103
 104     hCloseDocument()
 105     hSetExcelImportModeDefault()
 106     hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_DEFAULT )
 107
 108 endcase
 109
 110