1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
'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 : joerg.skottke@sun.com
'*
'* short description : Test the extension locator service
'*
'\******************************************************************************
testcase tExtensionLocation
printlog( "Test the extension locator service" )
' The location of the sample extension and helper document
dim cWorkPath as string
cWorkPath = gTesttoolPath & "extensions\optional\input\path_to_extension\"
cWorkPath = convertpath( cWorkPath )
const EXTENSION_NAME = "locationtest.oxt"
const DOCUMENT_NAME = "LocationTest.odt"
const MACRO_NAME = "tExtensionLocation"
dim brc as boolean
dim irc as integer
dim cMsg as string
printlog( "Using extension: " & cWorkPath & EXTENSION_NAME )
printlog( "Using document.: " & cWorkPath & DOCUMENT_NAME )
brc = hFileOpen( cWorkPath & DOCUMENT_NAME )
if ( not brc ) then
brc = hAllowMacroExecution()
if ( not brc ) then
warnlog( "This is not the macro execution warning" )
endif
else
warnlog( "Macro execution warning is missing" )
endif
irc = hMacroOrganizerRunMacro( MACRO_NAME )
if ( irc = 0 ) then
warnlog( "No macro with the given name could be found, aborting" )
kontext "Makro"
if ( Makro.exists() ) then
Makro.close()
endif
goto endsub
endif
kontext "active"
if ( active.exists( 2 ) ) then
cMsg = active.getText()
if ( cMsg <> "" ) then
warnlog( "The messagebox is not empty: " & cMsg )
else
printlog( "Messagebox is empty, good." )
endif
active.ok()
else
warnlog( "No messagebox displayed, please check that the macro is executed" )
endif
irc = hExtensionAddGUI( cWorkPath & EXTENSION_NAME , "verbose,InstallForUser" )
irc = hMacroOrganizerRunMacro( MACRO_NAME )
if ( irc = 0 ) then
warnlog( "No macro with the given name could be found" )
endif
kontext "active"
if ( active.exists( 2 ) ) then
cMsg = active.getText()
if ( cMsg = "" ) then
warnlog( "The messagebox is empty, please check." )
else
printlog( "Content of messagebox: " & cMsg )
if ( instr( cMsg , "file:///" ) > 0 ) then
printlog( "Found File-URL" )
else
warnlog( "This does not appear to be a File-URL, please check!" )
endif
if ( instr( cMsg , EXTENSION_NAME ) > 0 ) then
printlog( "Extension string is present" )
else
warnlog( "Extension name seems to be missing" )
endif
if ( dir( cMsg ) = "" ) then
warnlog( "The extension could not be found at the expected location" )
else
printlog( "Extension found. Good." )
endif
endif
active.ok()
else
warnlog( "No messagebox displayed, please check that the macro is executed" )
endif
irc = hExtensionRemoveGUI( EXTENSION_NAME )
if ( irc <> 0 ) then
warnlog( "the extension was NOT cleanly removed" )
endif
hDestroyDocument()
endcase
|
