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
|
'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 : gregor.hartmann@oracle.com
'*
'* short description : "10ner/Smoke Test" from release engineering
'*
'\******************************************************************************
testcase tSmokeTest
if ( not hCheckForBinfilters() ) then
goto endsub
endif
printlog( "Smoketest (10er-Test) from Release Engineering" )
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/first/inc/smoketest.inc::"
'To avoid focus problems, go to backingwindow
if getDocumentcount <> 0 then
'After an resetApplication at least one document may be open.
printlog "closed one window " + getDocumentCount
call hCloseDocument()
endif
'Delete temp dir of logs
sTemp = convertPath(gOfficePath + "user/temp/")
printlog "Going to delete ttt.*: " + GetFileList(sTemp,"ttt.*",lFiles())
printlog "Going to delete *.dat: " + GetFileList(sTemp,"*.dat",lFiles())
bTemp = KillFileList(lFiles())
if NOT bTemp then
for i = 1 to ListCount(lFiles())
qaErrorlog sLocation + "Can't delete file: " + i + ": '" + lFiles(i) + "'"
next i
endif
'Open the test document
call hFileOpen(convertPath(gTestToolPath + "framework/required/input/10erTest_680.sxw"))
'Security dialog might come up
kontext "SecurityWarning"
if SecurityWarning.exists(5) then
'Allow to run macros
SecurityWarning.ok
endif
call sleep 1
'Start the macro, that performs the test
'Tools->Macros->Run Macro...
'Check, if all three libraries are there, else close and try again...
ToolsMacrosRunMacro
Kontext "ScriptSelector"
if ScriptSelector.exists(10) then
x = LibraryTreeList.getItemCount
'There have to show up 3 libraries, else the document isn't loaded
if x <> 3 then
printlog "Try again..."
ScriptSelector.cancel
sleep 10
ToolsMacrosRunMacro
Kontext "ScriptSelector"
x = LibraryTreeList.getItemCount
endif
'Look for library '10erTest_680' and '10ERTEST_680'
for i = 1 to x
sTemp = LibraryTreeList.getItemText(i)
'printlog "("+i+"/"+x+"): '" + sTemp + "'"
if (instr(sTemp,"10erTest_680")>0 OR instr(sTemp,"10ERTEST_680")) then
a = i
printlog "Found library ("+i+"/"+x+"): '" + sTemp + "'"
endif
next i
if 0 <> a then
'Select the library and unfold it
LibraryTreeList.select(a)
LibraryTreeList.typeKeys("+")
' LibraryTreeList.select("10erTest_680") ' not implemented right now :-(
'Go to 'Standard' and unfold
LibraryTreeList.typeKeys("<down>")
LibraryTreeList.typeKeys("+")
'Go to 'Global'
LibraryTreeList.typeKeys("<down>")
'Select macro name 'StartTestByOption'
x = ScriptList.getItemCount
for i = 1 to x
sTemp = ScriptList.getItemText(i)
'printlog "("+i+"/"+x+"): '" + sTemp + "'"
if "StartTestByOptions" = sTemp then
a = i
printlog "Found macro ("+i+"/"+x+"): '" + sTemp + "'"
endif
next i
if (0 <> a) then
'Select the macro
ScriptList.select(a)
'Start the macro by pressing the button 'run'
ScriptSelector.ok
' sleep... at least 60 seconds
call sleep(60)
' If macro fails for whatever reason, a message comes up
Kontext
if active.exists() then
warnlog "Macro failed " + active.getText
active.ok
call hCloseDocument()
goto endsub
endif
'Path of the log file written by the macro
sTemp = convertPath(gOfficePath + "user/temp/log.dat")
a = 0
'Wait until file exists, but not longer than ten minutes
while ((NOT fileExists(sTemp)) AND (a < 10))
printlog "waiting another minute until file exists - " + a
inc(a)
call sleep(60)
wend
'File exists
if (a<10) then
printlog "Log file exists: " + sTemp
'Wait until test finished, but not longer than ten minutes
'String at end, if finished: 'FINISHED' modified 10er sxw document from TBO!
a = 0
lFiles(0)=0
call ListRead (lFiles(), sTemp)
while ((lFiles(ListCount(lFiles())) <> "FINISHED") AND (a < 10))
printlog "last line: '" + lFiles(ListCount(lFiles())) + "'"
inc(a)
call sleep(60)
lFiles(0)=0
call ListRead (lFiles(), sTemp)
wend
'Macro finished
if (a<10) then
printlog "Test document finished."
'Grep file for "-> error" & "-> ok"
a = ListCount(lFiles())
for i = 1 to a
if inStr(lFiles(i), "-> error") > 0 then
if inStr("simpress Paste Object -> errorsdraw Paste Object -> error",lFiles(i)) > 0 then
qaerrorlog lFiles(i)
else
warnlog lFiles(i)
inc(iError)
endif
elseif inStr(lFiles(i), "-> ok") > 0 then
printlog lFiles(i)
inc(iOK)
endif
next i
if (iError > 0) then
qaErrorlog sLocation + "Smoketest/10-er Test failed: " + iError + " times."
endif
printlog "Smoketest/10-er Test succeeded: " + iOK + " times."
else
warnlog sLocation + "Macro didn't finish in time (10 minutes)"
endif
else
warnlog sLocation + "Macro didn't create log file in time (10 minutes)"
endif
else
warnlog sLocation + "Macro not found: 'StartTestByOptions'"
endif
else
warnlog sLocation + "Library not found: '10erTest_680' or '10ERTEST_680'"
endif
else
warnlog sLocation + "'Run macro dialog' didn't came up"
endif
'clean up
'Close the document, else an error about the navigator will be thrown
if getDocumentcount > 0 then
call hCloseDocument()
endif
endcase
|