testautomation/framework/optional/includes/basic_usertemplate.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: basic_usertemplate.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:13 $
  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 : My Macros/standard execution with user defined template
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tMacroUsertemplate
  41
  42     '///<H1>My Macros/standard execution with user defined template</H1>
  43     '///<ul>
  44
  45     ' requires: Default template path, default security level (medium)
  46
  47     ' Details:
  48     ' This test checks for some really weird behavior. A macro is created
  49     ' for the standard lib in My Macros - this means the macro is stored with
  50     ' the application, not the document.
  51     ' When creating a document based on a user-created template the macro
  52     ' will not execute, instead a com.sun.star... errormessage is displayed
  53
  54     dim brc as boolean  ' returncode
  55     dim irc as integer  ' returncode
  56
  57     dim cMacroName as string ' Temp variable to store the name of current macro
  58
  59     const DOC_IDENTIFIER = "A test document for tMacroUserTemplate"
  60
  61     dim sPathOut as string ' output path for workfile
  62     const FILEOUT = "tMacroUserTemplate"
  63     const FILTER = "writer8_template"
  64
  65     dim iCurrentNode as integer
  66
  67     sPathOut = convertpath( gOfficePath & "user\template\" )
  68     hDeleteFile( sPathOut & FILEOUT & ".ott" )
  69
  70     '///+<li>Create one single document with identification string</li>
  71     hInitSingleDoc()
  72     kontext "DocumentWriter"
  73     DocumentWriter.typeKeys( DOC_IDENTIFIER )
  74
  75     '///+<li>Open a plain new document</li>
  76     brc = hCreateDocument()
  77
  78     '///+<li>Open Basic Organizer</li>
  79     brc = hOpenBasicOrganizerFromDoc()
  80
  81     '///+<li>Select My Macros/Standard/Module1/main</li>
  82     iCurrentNode = hSelectNodeByName( MakroAus, "Module1" )
  83     if ( iCurrentNode = 0 ) then
  84         warnlog( "#i73521# - The expected node could not be found. Aborting test" )
  85         kontext "Makro"
  86         Makro.close()
  87         hDestroyDocument()
  88         goto endsub
  89     endif
  90
  91     ' verify that we replace the correct macro. if not: Abort
  92     if ( MakroListe.getItemCount() > 0 ) then
  93         cMacroName = MakroListe.getSelText()
  94             if ( lcase( cMacroName ) <> "main" ) then
  95             warnlog( "Test abort: Incorrect macro is selected: " & cMacroName )
  96                 printlog( "This should have been the <Main> Macro" )
  97                 kontext "Makro"
  98                 Makro.cancel()
  99                 hDestroyDocument()
 100                 goto endsub
 101         endif
 102     else
 103         warnlog( "There is no macro listed for the current module, the test cannot continue" )
 104         kontext "Makro"
 105         Makro.close()
 106         hDestroyDocument()
 107         goto endsub
 108     endif
 109
 110     '///+<li>Open Basic Ide by clicking Edit...</li>
 111     Bearbeiten.click()
 112
 113     '///+<li>Overwrite existing macro: Insert macro that prints messagebox</li>
 114     hInsertMacro( 3 )
 115
 116     '///+<li>Close IDE</li>
 117     hCloseBasicIde()
 118
 119     '///+<li>Close document</li>
 120     hDestroyDocument()
 121
 122     '///+<li>Open a plain new document</li>
 123     hCreateDocument
 124
 125     '///+<li>Open Run Macro-Dialog</li>
 126     ToolsMacrosRunMacro
 127
 128     '///+<li>Execute the macro - this should work</li>
 129     cMacroName = hExecScript_tMacroUserTemplate() ' local function, see below
 130     if ( lcase( cMacroName ) <> "main" ) then
 131         warnlog( "Test abort: Incorrect macro is selected: " & cMacroName )
 132         printlog( "This should have been the <Main> Macro" )
 133         ScriptSelector.cancel()
 134         brc = hDestroyDocument()
 135         goto endsub
 136     endif
 137
 138     ' run
 139     ScriptSelector.ok()
 140
 141     '///+<li>Close the Macro-dialog</li>
 142     kontext "Active"
 143     if ( active.exists( 3 ) ) then
 144         printlog( "Messagebox: " & active.getText() )
 145         active.ok()
 146     else
 147         warnlog( "The Macro has not been executed" )
 148     endif
 149
 150     '///+<li>Close document</li>
 151     brc = hDestroyDocument()
 152
 153     '///+<li>Open a plain new document</li>
 154     brc = hCreateDocument()
 155
 156     '///+<li>Save it as {...work/user/template/MyTemplate} (template, autosuffix)</li>
 157     printlog( "" )
 158     printlog( "Save as template" )
 159     hFileSaveAsWithFilterKill( sPathOut & FILEOUT, FILTER )
 160
 161     '///+<li>Close document</li>
 162     hDestroyDocument()
 163
 164     '///+<li>Open &quot;Templates and Documents&quot;</li>
 165     printlog( "" )
 166     printlog( "File New from Template" )
 167     FileNewFromTemplate
 168
 169     '///+<li>Find MyTemplate (note: No suffix displayed)</li>
 170     irc = hFindTemplate( FILEOUT )
 171
 172     '///+<li>Create a new document based ton this template</li>
 173     hSelectDocumentObject( irc, 1 )
 174
 175     '///+<li>Open Run Macro-Dialog</li>
 176     printlog( "" )
 177     printlog( "Run Macro..." )
 178     ToolsMacrosRunMacro
 179
 180     '///+<li>Execute the macro - this should work</li>
 181     cMacroName = hExecScript_tMacroUserTemplate() ' local function, see below
 182     if ( lcase( cMacroName ) <> "main" ) then
 183         warnlog( "Test abort: Incorrect macro is selected: " & cMacroName )
 184         printlog( "This should have been the <Main> Macro" )
 185         ScriptSelector.cancel()
 186         hDestroyDocument()
 187         goto endsub
 188     endif
 189
 190     ' run
 191     printlog( "Run" )
 192     ScriptSelector.ok()
 193
 194     '///#i58527 - com.sun.star...
 195     kontext "Active"
 196     if ( active.exists( 3 ) ) then
 197
 198         if ( instr( active.getText() , "com.sun" ) <> 0 ) then
 199             warnlog( "#i58527# - unable to run macro with user-template loaded" )
 200         endif
 201
 202         if ( active.getText() = "TTMacro3" ) then
 203             printlog( "The macro was executed" )
 204         else
 205             printlog( "Unknown dialog: " & hRemoveLineBreaks( active.getText() ) )
 206         endif
 207
 208         active.ok()
 209     else
 210         warnlog( "Macro not executed / no warning" )
 211     endif
 212
 213     '///+<li>Close document</li>
 214     hDestroyDocument()
 215     hDestroyDocument()
 216
 217     '///+<li>Cleanup: Delete the template</li>
 218     hDeleteFile( sPathOut & FILEOUT & ".ott" )
 219
 220     '///</ul>
 221
 222 endcase
 223
 224 '*******************************************************************************
 225
 226 function hExecScript_tMacroUserTemplate() as string
 227
 228     Kontext "ScriptSelector"
 229     hSelectTopNode( LibraryTreeList )
 230     hExpandNode( LibraryTreeList , 1 )
 231     hSelectNode( LibraryTreeList , 2 )
 232     hExpandNode( LibraryTreeList , 2 )
 233     hSelectNode( LibraryTreeList , 3 )
 234
 235     hExecScript_tMacroUserTemplate() = ScriptList.getSelText()
 236
 237 end function