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
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
|
'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 : oliver.craemer@sun.com
'*
'* short description : calc arrayconstants level2 test
'*
'************************************************************************
'*
' #1 tArrayconstants01 ' Direct input and OASIS format
' #1 tArrayconstants02 ' Import / Export to MSExcel
'*
'\***********************************************************************
testcase tArrayconstants01
dim sFunctionTRUE as string
dim sFunctionFALSE as string
dim sFunctionSIN as string
dim sError512 as string
dim sError533 as string
dim sdecimalseperator as string
dim sLocalFile as string
dim sCellcontent as string
sFunctionTRUE = fFunctionName ("TRUE")
sFunctionFALSE = fFunctionName ("FALSE")
sFunctionSIN = fFunctionName ("SIN")
sError512 = fError_l10n ("512")
sError533 = fError_l10n ("533")
sDecimalseperator = GetDecimalSeperator
sLocalFile = convertpath ( gOfficepath & "user/work/arrayconstants.ods" )
'///Open new spreadsheet document
printlog "Open new spreadsheet document"
call hNewDocument
'///In cell A1 enter "={1;2;3}"
printlog "In cell A1 enter ""={1;2;3}"""
call fCalcSelectRange ("A1")
kontext "DocumentCalc"
DocumentCalc.TypeKeys ("={1;2;3} <RETURN>")
'///Check that the cellvalue is "1"
printlog "Check that the cellvalue is ""1"""
call fCalcCompareCellValue ("A1","1")
'///In cell A2 enter "={1;2;3|4;5;6}"
printlog "In cell A2 enter ""={1;2;3|4;5;6}"""
call fCalcSelectRange ("A2")
kontext "DocumentCalc"
DocumentCalc.TypeKeys ("={1;2;3|4;5;6} <RETURN>")
'///Check that the cellvalue is "1"
printlog "Check that the cellvalue is ""1"""
call fCalcCompareCellValue ("A2","1")
'///In cell A3 enter "={0;1;2|False;TRUE;"two"}"
printlog "In cell A3 enter ""={0;1;2|" & sFunctionFALSE & ";" & sFunctionTRUE & ";""two""}"""
call fCalcSelectRange ("A3")
kontext "DocumentCalc"
DocumentCalc.TypeKeys ("={0;1;2|" & sFunctionFALSE & ";" & sFunctionTRUE & ";""two""} <RETURN>")
'///Check that the cellvalue is "0"
printlog "Check that the cellvalue is ""0"""
call fCalcCompareCellValue ("A3","0")
'///Multiselect cells A4:C4, type "=sin({1;2;3})" and press <ctrl shift enter>
printlog "Multiselect cells A4:C4, type ""=sin({1;2;3})"" and press <ctrl shift enter>"
call fCalcSelectRange ("A4:C4")
kontext "DocumentCalc"
DocumentCalc.TypeKeys ("=" & sFunctionSIN & "({1;2;3}) <MOD1 SHIFT RETURN>")
'///Check that the cellvalue of A4 is "0.84"
printlog "Check that the cellvalue of A4 is ""0.84"""
call fCalcSelectRange ("A5")
kontext "DocumentCalc"
DocumentCalc.TypeKeys "=A4<TAB>=B4<TAB>=C4<RETURN>" 'because a part of a matrix is protected we need a helpcell with only the values
call fCalcCompareCellValue ("A5","0" & sDecimalseperator & "84")
'///Check that the cell contents of B4 is "0.91"
printlog "Check that the cell contents of B4 is ""0.91"""
call fCalcCompareCellValue ("B5","0" & sDecimalseperator & "91")
'///Check that the cell contents of C4 is "0.14"
printlog "Check that the cell contents of C4 is ""0.14"""
call fCalcCompareCellValue ("C5","0" & sDecimalseperator & "14")
'///In cell A6 enter "={1;2|4;5;6}"
printlog "In cell A6 enter ""={1;2|4;5;6}"""
call fCalcSelectRange ("A6")
kontext "DocumentCalc"
DocumentCalc.TypeKeys ("={1;2|4;5;6} <RETURN>")
'///Check that the cellvalue is "Err:512"
printlog "Check that the cellvalue is ""Err:512"""
call fCalcCompareCellValue ("A6",sError512)
'///In cell A7 enter "={1;2+3}"
printlog "In cell A7 enter ""={1;2+3}"""
call fCalcSelectRange ("A7")
kontext "DocumentCalc"
DocumentCalc.TypeKeys ("={1;2+3} <RETURN>")
'///Check that the cellvalue is "Err:512"
printlog "Check that the cellvalue is ""Err:512"""
call fCalcCompareCellValue ("A7",sError512)
'///In cell A8 enter "={1;2;{3;4;5}}"
printlog "In cell A8 enter ""={1;2;{3;4;5}}"""
call fCalcSelectRange ("A8")
kontext "DocumentCalc"
DocumentCalc.TypeKeys ("={1;2;{3;4;5}} <RETURN>")
kontext
'///Cancel appearing MsgBox for correction of a wrong formular
if active.exists then
active.no
end if
'///Check that the cellvalue is "Err:533"
printlog "Check that the cellvalue is ""Err:533"""
call fCalcCompareCellValue ("A8",sError533)
'///In cell A9 enter "={-1;2;3}"
printlog "In cell A9 enter ""={-1;2;3}"""
call fCalcSelectRange ("A9")
kontext "DocumentCalc"
DocumentCalc.TypeKeys ("={-1;2;3} <RETURN>")
'///Check that the cellvalue is "-1"
printlog "Check that the cellvalue is ""-1"""
call fCalcCompareCellValue ("A9",-1)
'///Save document
printlog "Save document"
call hFileSaveAsKill ( slocalfile )
'/// Close document
printlog "Close document"
call hCloseDocument
'/// Load Document
printlog "Load Document"
call hFileOpen ( slocalfile )
sleep (2)
'///Check that all formulars are the same as before.
printlog "Check that all formulars are the same as before."
'///+Check that the editline shows "={1;2;3}" for cell A1
printlog " Check that the editline shows ""={1;2;3}"" for cell A1"
scellcontent = "={1;2;3}"
call fCalcCompareCellFormular ("A1",scellcontent)
'///+Check that the editline shows "={1;2;3|4;5;6}" for cell A2
printlog " Check that the editline shows ""={1;2;3|4;5;6}"" for cell A2"
scellcontent = "={1;2;3|4;5;6}"
call fCalcCompareCellFormular ("A2",scellcontent)
'///+Check that the editline shows "={0;1;2|False;TRUE;"two"}" for cell A3
printlog " Check that the editline shows ""={0;1;2|" & sFunctionFALSE & ";" & sFunctionTRUE & ";""two""}"" for cell A3"
scellcontent = "={0;1;2|" & sFunctionFALSE & ";" & sFunctionTRUE & ";""two""}"
call fCalcCompareCellFormular ("A3",scellcontent)
'///+Check that the editline shows "=SIN({1;2;3})" for cell A4:C4
printlog " Check that the editline shows ""=" & sFunctionSIN & "({1;2;3})"" for cell A4:C4"
scellcontent = "=" & sFunctionSIN & "({1;2;3})"
call fCalcCompareCellFormular ("A4:C4",scellcontent)
'///+Check that the editline shows "={1;2|4;5;6}" for cell A6
printlog " Check that the editline shows ""={1;2|4;5;6}"" for cell A6"
scellcontent = "={1;2|4;5;6}"
call fCalcCompareCellFormular ("A6",scellcontent)
'///+Check that the editline shows "={1;2+3}" for cell A7
printlog " Check that the editline shows ""={1;2+3}"" for cell A7"
scellcontent = "={1;2+3}"
call fCalcCompareCellFormular ("A7",scellcontent)
'///+Check that the editline shows "={1;2;{3;4;5}}" for cell A8
printlog " Check that the editline shows ""={1;2;{3;4;5}}"" for cell A8"
scellcontent = "={1;2;{3;4;5}}"
call fCalcCompareCellFormular ("A8",scellcontent)
'///+Check that the editline shows "={-1;2;3}" for cell A9
printlog " Check that the editline shows ""={-1;2;3}"" for cell A9"
scellcontent = "={-1;2;3}"
call fCalcCompareCellFormular ("A9",scellcontent)
'///Close Document
printlog "Close Document"
call hCloseDocument
endcase
'
'--------------------------------------------------------------------
'
testcase tArrayconstants02
Dim sImportFile as string
Dim sLocalFile as string
Dim sFunctionSUM as string
Dim sFunctionMDETERM as string
Dim sCellcontent as string
sImportFile = convertpath ( gTesttoolpath & "spreadsheet/optional/input/arrayconstants.xls" )
sLocalFile = convertpath ( gOfficepath & "user/work/arrayconstants.xls" )
sFunctionSUM = fFunctionName ("SUM")
sFunctionMDETERM = fFunctionName ("MDETERM")
'///Load xls testdocument <i>gTestToolPath</i>/spreadsheet/optional/input/arrayconstants.xls
printlog "Load xls testdocument <i>gTestToolPath</i>/spreadsheet/optional/input/arrayconstants.xls"
call hFileOpen ( sImportFile )
sleep(2)
'///If the file is not editable, click the edit button on standardbar
printlog "If the file is not editable, click the edit button on standardbar"
call sMakeReadOnlyDocumentEditable
'///Check that the cell contents of B4 is 1
printlog "Check that the cell contents of B4 is 1"
call fCalcCompareCellValue ("F4","1")
'///Check that the cell contents of C5 is 4
printlog "Check that the cell contents of C5 is 4"
call fCalcCompareCellValue ("G5","4")
'///Check that the editline shows "={1;2|3;4}" for cell B4
printlog "Check that the editline shows ""={1;2|3;4}"" for cell B4"
scellcontent = "={1;2|3;4}"
call fCalcCompareCellFormular ("B4:C5",scellcontent)
'///Check that the cell contents of B8 is 10
printlog "Check that the cell contents of B8 is 10"
call fCalcCompareCellValue ("B8","10")
'///Check that the editline for cell B8 is "=SUM({1;2|3;4})"
printlog "Check that the editline for cell B8 is ""=SUM({1;2|3;4})"""
scellcontent = "=" & sFunctionSUM & "({1;2|3;4})"
call fCalcCompareCellFormular ("B8",scellcontent)
'///Check that the cell contents of B11 is -2
printlog "Check that the cell contents of B11 is -2"
call fCalcCompareCellValue ("B11","-2")
'///Check that the editline for cell B11 is "=MDETERM({1;2|3;4})"
printlog "Check that the editline for cell B11 is ""=MDETERM({1;2|3;4})"""
scellcontent = "=" & sFunctionMDETERM & "({1;2|3;4})"
call fCalcCompareCellFormular ("B11",scellcontent)
'///Check that the cell contents of B14 is 1
printlog "Check that the cell contents of B14 is 1"
call fCalcCompareCellValue ("F14","1")
'///Check that the editline for cell B14 is "{=name}"
printlog "Check that the editline for cell B14 is ""=name"""
scellcontent = "=name"
call fCalcCompareCellFormular ("B14:C15",scellcontent)
'/// Save document back to xls locally
printlog "Save document back to xls locally"
call hFileSaveAsKill ( slocalfile )
'/// Close document
printlog "Close document"
call hCloseDocument
'/// Load Document
printlog "Load Document"
call hFileOpen ( slocalfile )
sleep (2)
'///Check that all cellvalues are the same as before
printlog "Check that all cellvalues are the same as before"
'///+Check that the cell contents of B4 is 1
printlog "Check that the cell contents of B4 is 1"
call fCalcCompareCellValue ("F4","1")
'///+Check that the cell contents of C5 is 4
printlog "Check that the cell contents of C5 is 4"
call fCalcCompareCellValue ("G5","4")
'///+Check that the editline shows "={1;2|3;4}" for cell B4
printlog "Check that the editline shows ""={1;2|3;4}"" for cell B4"
scellcontent = "={1;2|3;4}"
call fCalcCompareCellFormular ("B4:C5",scellcontent)
'///+Check that the cell contents of B8 is 10
printlog "Check that the cell contents of B8 is 10"
call fCalcCompareCellValue ("B8","10")
'///+Check that the editline for cell B8 is "=SUM({1;2|3;4})"
printlog "Check that the editline for cell B8 is ""=SUM({1;2|3;4})"""
scellcontent = "=" & sFunctionSUM & "({1;2|3;4})"
call fCalcCompareCellFormular ("B8",scellcontent)
'///+Check that the cell contents of B11 is -2
printlog "Check that the cell contents of B11 is -2"
call fCalcCompareCellValue ("B11","-2")
'///+Check that the editline for cell B11 is "=MDETERM({1;2|3;4})"
printlog "Check that the editline for cell B11 is ""=MDETERM({1;2|3;4})"""
scellcontent = "=" & sFunctionMDETERM & "({1;2|3;4})"
call fCalcCompareCellFormular ("B11",scellcontent)
'///+Check that the cell contents of B14 is 1
printlog "Check that the cell contents of B14 is 1"
call fCalcCompareCellValue ("F14","1")
'///+Check that the editline for cell B14 is "{=name}"
printlog "Check that the editline for cell B14 is ""=name"""
scellcontent = "=name"
call fCalcCompareCellFormular ("B14:C15",scellcontent)
'///Close document
printlog "Close document"
call hCloseDocument
endcase
|
