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
|
'encoding UTF-8 Do not remove or change this line!
'**************************************************************************
'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
'*
'* Copyright 2008 by Sun Microsystems, Inc.
'*
'* OpenOffice.org - a multi-platform office productivity suite
'*
'* $RCSfile: gridcontrol.inc,v $
'*
'* $Revision: 1.2 $
'*
'* last change: $Author: rt $ $Date: 2008/07/10 15:39:30 $
'*
'* 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 : thorsten.bosbach@sun.com
'*
'* short description : gridcontrol
'*
'\******************************************************************************
testcase tGridcontrolLoad
dim sLocation as string
dim i,x,a as integer
dim sTemp as string
dim lFiles(200) as string
dim bTemp as boolean
dim iError, iOK as integer
sLocation = "framework/optional/include/basic_gridcontrol.inc::"
hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_LOW )
printlog "Open the test document"
call hFileOpen(convertPath(gTestToolPath + "framework/optional/input/gridcontrol.odt"))
printlog "Security dialog might come up"
kontext "SecurityWarning"
if SecurityWarning.exists(5) then
printlog "Allow to run macros"
SecurityWarning.ok
endif
call sleep 1
printlog "Start the macro, that performs the test"
printlog "Tools->Macros->Run Macro..."
ToolsMacrosRunMacro
Kontext "ScriptSelector"
if ScriptSelector.exists(10) then
x = LibraryTreeList.getItemCount
printlog "Look for library 'gridcontrol'"
for i = 1 to x
sTemp = LibraryTreeList.getItemText(i)
'printlog "("+i+"/"+x+"): '" + sTemp + "'"
if (instr(sTemp,"gridcontrol")>0 OR instr(sTemp,"GRIDCONTROL")) then
a = i
printlog "Found library ("+i+"/"+x+"): '" + sTemp + "'"
endif
next i
if 0 <> a then
printlog "Select the library and unfold it"
LibraryTreeList.select(a)
LibraryTreeList.typeKeys("+")
printlog "Go to 'Standard' and unfold"
LibraryTreeList.typeKeys("<down>")
LibraryTreeList.typeKeys("+")
printlog "Go to 'Module1'"
LibraryTreeList.typeKeys("<down>")
printlog "Select macro name 'VclTestTool'"
x = ScriptList.getItemCount
for i = 1 to x
sTemp = ScriptList.getItemText(i)
'printlog "("+i+"/"+x+"): '" + sTemp + "'"
if "VclTestTool" = sTemp then
a = i
printlog "Found macro ("+i+"/"+x+"): '" + sTemp + "'"
endif
next i
if (0 <> a) then
printlog "Select the macro"
ScriptList.select(a)
printlog "Start the macro by pressing the button 'run'"
ScriptSelector.ok
printlog "sleep... at least 60 seconds"
call sleep(60)
printlog "If macro fails for whatever reason, a message comes up"
Kontext
if active.exists() then
warnlog "" + active.getText
active.ok
try
EditCopy
warnlog getclipboard()
catch
endcatch
printlog "close basic ide"
call hCloseDocument()
printlog "close document"
call hCloseDocument()
goto endsub
endif
else
warnlog sLocation + "Macro not found: 'Main'"
endif
else
warnlog sLocation + "Library not found: 'gridcontrol'"
endif
else
warnlog sLocation + "'Run macro dialog' didn't came up"
endif
printlog "clean up"
printlog "Close the document, else an error about the navigator will be thrown"
if getDocumentcount > 0 then
call hCloseDocument()
endif
endcase
|