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
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
|
'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@oracle.com
'*
'* short description : Test scripting-organizers / document-attached scripts
'*
'\******************************************************************************
function hCreateScriptingObject( cName as string ) as boolean
'///<h3>Create a new scripting object for the current module</h3>
'///<i>Starting point: Script organizer is open, module selected</i><br>
'///<u>Input</u>:
'///<ol>
'///+<li>Name of the module (string)</li>
'///<ul>
'///+<li>Any name the organizer can accept</li>
'///</ul>
'///</ol>
'///<u>Returns</u>:
'///<ol>
'///+<li>Errorcondition</li>
'///<ul>
'///+<li>TRUE on success</li>
'///+<li>FALSE on failure or invalid user input</li>
'///</ul>
'///</ol>
'///<u>Description</u>:
'///<ul>
const CFN = "hNewScriptingObject::"
'///+<li>Verify that the "Create..." button is enabled</li>
if ( PBCreate.isEnabled() ) then
'///+<li>Click "Create..." to open the naming dialog</li>
hClickButton( PBCreate )
'///+<li>Name the new script</li>
Kontext "ScriptNameDlg"
if ( ScriptNameDlg.exists( 2 ) ) then
EFObjectName.setText( cName )
ScriptNameDlg.OK()
hCreateScriptingObject() = true
endif
else
printlog( CFN & "Button is disabled" )
hCreateScriptingObject() = false
endif
'///+<li>Verify that we are back on the script organizer</li>
kontext "ScriptOrganizer"
if ( not ScriptOrganizer.exists( 2 ) ) then
warnlog( CFN & "Could not return to ScriptOrganizer" )
hCreateScriptingObject() = false
endif
'///</ul>
end function
'*******************************************************************************
function hRenameScriptingObject( cName as string ) as boolean
'///<h3>Rename the selected script</h3>
'///<i>Starting point: Script organizer is open, a script is selected</i><br>
'///<u>Input</u>:
'///<ol>
'///+<li>New name of the script</li>
'///<ul>
'///+<li>Any name the script organizer does accept</li>
'///</ul>
'///</ol>
'///<u>Returns</u>:
'///<ol>
'///+<li>Errorcondition</li>
'///<ul>
'///+<li>TRUE on success</li>
'///+<li>FALSE on failure or invalid user input</li>
'///</ul>
'///</ol>
'///<u>Description</u>:
'///<ul>
const CFN = "hRenameScriptingObject::"
hRenameScriptingObject() = true
'///+<li>Click "Rename..." to open the renaming dialog</li>
hClickButton( PBRename )
'///+<li>Name the new script</li>
Kontext "ScriptNameDlg"
if ( ScriptNameDlg.exists( 2 ) ) then
EFObjectName.setText( cName )
hCloseDialog( ScriptNameDlg, "ok" )
'///+<li>Test for any messagebox, try to close it with OK</li>
kontext "active"
if ( active.exists( 1 ) ) then
printlog( CFN & active.getText() )
hRenameScriptingObject() = false
active.OK()
endif
endif
'///+<li>Verify that we are back on the script organizer</li>
kontext "ScriptOrganizer"
if ( not ScriptOrganizer.exists( 2 ) ) then
warnlog( CFN & "Could not return to ScriptOrganizer" )
hRenameScriptingObject() = false
endif
'///</ul>
end function
'*******************************************************************************
function hDeleteScript( cName as string , bSuccess as boolean ) as boolean
'///<h3>Delete the selected script</h3>
'///<i>Starting point: Script organizer is open, a script is selected</i><br>
'///<u>Input</u>:
'///<ol>
'///+<li>Name of the script (string)</li>
'///<ul>
'///+<li>For debugging purpose only, the name will be used for warnlogs</li>
'///+<li>May be an empty string (not recommended)</li>
'///</ul>
'///+<li>Expected result (boolean)</li>
'///<ul>
'///+<li>TRUE: The script is expected to be deleted without warnings/errors</li>
'///+<li>FALSE: The script should not be deletable</li>
'///</ul>
'///</ol>
'///<u>Returns</u>:
'///<ol>
'///+<li>Errorcondition (boolean) - see description</li>
'///<ul>
'///+<li>TRUE on success (expected outcome)</li>
'///+<li>FALSE on failure</li>
'///</ul>
'///</ol>
'///<u>Description</u>:
'///<ul>
const CFN = "hDeleteScript::"
'///+<li>Test for the possible conditions:</li>
'///<ol>
'///+<li>Delete is correctly enabled (success)</li>
kontext "ScriptOrganizer"
if ( PBDelete.isEnabled() and bSuccess ) then
hClickButton( PBDelete )
kontext "active"
if ( Active.exists( 1 ) ) then
printlog( CFN & active.getText() )
active.yes()
endif
kontext "active"
if ( active.exists( 1 ) ) then
qaerrorlog( CFN & "Message: Failed to delete object: " & cName )
printlog( CFN & active.getText() )
active.ok()
endif
hDeleteScript() = true
'///+<li>Delete is disabled correctly (success)</li>
elseif ( ( not PBDelete.isEnabled() ) and ( not bSuccess ) ) then
printlog( CFN & "Delete-Button disabled for non-deletable object: " & cName )
hDeleteScript() = true
'///+<li>Delete is enabled but should not be (failure)</li>
elseif ( PBDelete.isEnabled() and ( not bSuccess ) ) then
hClickButton( PBDelete )
kontext "active"
if ( active.exists( 1 ) ) then
printlog( CFN & "Delete-Button enabled for non deletable object" )
printlog( CFN & active.getText() )
active.yes()
endif
kontext "active"
if ( active.exists( 2 ) ) then
printlog( CFN & "Message: Failed to delete object" )
printlog( CFN & active.getText() )
active.ok()
endif
hDeleteScript() = false
'///+<li>Delete is incorrectly disabled (failure)</li>
elseif ( ( not PBDelete.isEnabled() ) and bSuccess ) then
printlog( CFN & "Delete-Button disabled for deletable object" )
hDeleteScript() = false
else
warnlog( CFN & "Unknown condition in if-statement" )
hDeleteScript() = false
endif
'///</ol>
'///</ul>
end function
'*******************************************************************************
function hOpenScriptOrganizer( iDialog as integer ) as boolean
'///<h3>Open the ScriptOrganizers and verify that they are open</h3>
'///<i>Starting point: Any document</i><br>
'///<u>Input</u>:
'///<ol>
'///+<li>Dialog-ID (integer)</li>
'///<ul>
'///+<li>1 = BeanShell organizer</li>
'///+<li>2 = JavaScript organizer</li>
'///+<li>3 = Python script organizer</li>
'///</ul>
'///</ol>
'///<u>Returns</u>:
'///<ol>
'///+<li>Errorcondition</li>
'///<ul>
'///+<li>TRUE if the expected organizer is open</li>
'///+<li>FALSE if the expected organizer is not open</li>
'///</ul>
'///</ol>
'///<u>Description</u>:
'///<ul>
const CFN = "hOpenScriptOrganizer::"
'///<li>Call the associated slot</li>
select case iDialog
case 1 : ToolsMacrosOrganizeMacrosBeanShell
case 2 : ToolsMacrosOrganizeMacrosJavaScript
case 3 : ToolsMacrosOrganizeMacrosPython
end select
'///<li>Verify that the dialog is open, return TRUE if yes</li>
kontext "ScriptOrganizer"
if ( ScriptOrganizer.exists( 5 ) ) then
hOpenScriptOrganizer() = true
printlog( "Script Organizer is open" )
else
hOpenScriptOrganizer() = false
warnlog( CFN & "Slot failed, dialog not open" )
endif
'///</ul>
end function
|
