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
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
|
'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 : helge.delfs@sun.com
'*
'* short description : Fields general test
'*
'\***********************************************************************
sub w_fields1
Call tInsertFieldsDate
Call tInsertFieldsTime
Call tInsertFieldsPageNumber
Call tInsertFieldsPageCount
Call tInsertFieldsSubject
Call tInsertFieldsTitle
Call tInsertFieldsAuthor
end sub
'-----------------------------------------------------------------
testcase tInsertFieldsDate
Dim sDate as String
sDate = Date
printlog "Insert / Fields / Date"
'/// <b> Default should be mm/dd/yy </b>
Call hNewDocument
'/// Insert / Fields / Date , the 1st date is fixed
InsertFieldsDate
'/// Return
Call wTypeKeys "<Return>"
'/// Insert / Fields / Date
InsertFieldsDate
Call wTypeKeys "<Home>"
'/// Set 2nd date only to be date , not fixed
'/// In 2nd date , Edit / Fields , select date in 'select'
'/// Select second format in 'Format'
EditFields
Kontext "FeldbefehlBearbeitenDokument"
Auswahl.Select 2
Zahlenformat.Select 2 'Should be the same as the value we get with 'Time'.
'/// Close the dialog
FeldbefehlBearbeitenDokument.OK
'/// Set first date to the right format, but leave as unfixed
'/// In 1nd date , Edit / Fields , select second format in 'Format'
Call wTypeKeys "<MOD1 Home>"
EditFields
Kontext "FeldbefehlBearbeitenDokument"
Zahlenformat.Select 2 'Should be the same as the value we get with 'Time'.
FeldbefehlBearbeitenDokument.OK
'/// Check if the date is correct
Call wTypeKeys "<MOD1 Home>"
Call wTypeKeys "<Shift Right>"
EditCopy
if GetClipboard <> sDate then
Warnlog "Fixed date is wrong ! Hope you don't run this case in the midnight"
end if
Call wTypeKeys "<Down><Home>"
Call wTypeKeys "<Shift Right>"
EditCopy
if GetClipboard <> sDate then
Warnlog "Date is wrong ! Hope you don't run this case in the midnight"
end if
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertFieldsTime
Dim sTime as String
Dim sTime1 as String
Dim sTime2 as String
Dim sTemp as String
printlog "Insert / Fields / Time"
'/// <b> Default could be hh/mm/ss pm or simply hh/mm/ss , depending on the system the test is running on.</b>
Call hNewDocument
sTime = Time
'/// Insert / Fields / Time , the 1st time is fixed
InsertFieldsTime
'/// Return
Call wTypeKeys "<Return>"
'/// Insert / Fields / Time
InsertFieldsTime
Call wTypeKeys "<Home>"
'/// Set 2nd time only to be time , not fixed
'/// In 2nd time , Edit / Fields , select Time in 'select'
EditFields
Kontext "FeldbefehlBearbeitenDokument"
Auswahl.Select 2
FeldbefehlBearbeitenDokument.OK
'/// Check if the time is correct
Call wTypeKeys "<MOD1 Home>"
Call wTypeKeys "<Shift Right>"
EditCopy
sTime1 = GetClipboard
if NOT Len(sTime1) > 7 then Warnlog "Fixed time-format is wrong !"
Call wTypeKeys "<Down><Home>"
Call wTypeKeys "<Shift Right>"
EditCopy
sTime2 = GetClipboard
if NOT Len(sTime2) > 7 then Warnlog "Time-format is wrong !"
printlog "Stop for a while ..."
'/// Stop for a while , check if the time is still correct
Sleep 2
Call wTypeKeys "<MOD1 Home>"
Call wTypeKeys "<Shift Right>"
EditCopy
if GetClipboard <> sTime1 then Warnlog "Fixed time is wrong !"
Call wTypeKeys "<Down><Home>"
Call wTypeKeys "<Shift Right>"
EditCopy
if GetClipboard = sTime2 then Warnlog "Time is wrong !"
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertFieldsPageNumber
Dim sPage1 , sPage2 as String
sPage1 = "1" : sPage2 = "2"
printlog "Insert / Fields / Page Number"
Call hNewDocument
'/// In 1st page , Insert / Fields / Page Number
InsertFieldsPageNumbers
'/// Insert a page break
InsertManualBreak
Sleep 2
kontext "UmbruchEinfuegen"
Seitenumbruch.check
UmbruchEinfuegen.OK
'/// In 2nd page , Insert / Fields / Page Number
InsertFieldsPageNumbers
Call wTypeKeys "<MOD1 Home>"
'/// Check if the page number is correct
Call wTypeKeys "<Shift Right>"
if fGetFieldContent( ) <> sPage1 then
QAErrorLog "#i31214# The 1st page number isn't correct ! should be: '" + sPage1 + "', but was: '" + GetClipboard + "'."
end if
Call wTypeKeys "<MOD1 End>"
Call wTypeKeys "<Shift Left>"
EditCopy
if GetClipboard <> sPage2 then
Warnlog "The 2nd page number isn't correct !"
end if
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertFieldsPageCount
Dim sPage1 , sPage2 as String
sPage1 = "1" : sPage2 = "2"
printlog "Insert / Fields / Page Count"
Call hNewDocument
'/// In 1st page , Insert / Fields / Page Count
InsertFieldsPageCount
Call wTypeKeys "<MOD1 Home>"
'/// Check if the 1st page count is correct
Call wTypeKeys "<Shift Right>"
EditCopy
if GetClipboard <> sPage1 then
Warnlog "1-The 1st page count isn't correct !"
end if
Call wTypeKeys "<End>"
'/// Insert a page break
InsertManualBreak
Sleep 2
kontext "UmbruchEinfuegen"
Seitenumbruch.check
UmbruchEinfuegen.OK
'/// In 2nd page , Insert / Fields / Page Count
InsertFieldsPageCount
Call wTypeKeys "<MOD1 Home>"
'/// Check if the page count is correct
Call wTypeKeys "<Shift Right>"
'EditCopy
if fGetFieldContent( ) <> sPage2 then
Warnlog "2-The 1st page count isn't correct"
end if
Call wTypeKeys "<MOD1 End>"
Call wTypeKeys "<Shift Left>"
EditCopy
if GetClipboard <> sPage2 then
Warnlog "The 2nd page count isn't correct !"
end if
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertFieldsSubject
Dim sSubject as String
sSubject = "This is a Subject"
printlog "Insert / Fields / Subject"
Call hNewDocument
'/// File / Properties / Description , input some
'/// + text in Subject
Call fFileProperties("TabBeschreibung")
Thema.Settext sSubject
TabBeschreibung.OK
'/// Insert / Fields / Subject
InsertFieldsSubject
'/// Check if the subject is correct
Call wTypeKeys "<Shift Left>"
EditCopy
if GetClipboard <> sSubject then
Warnlog "Subject isn't correct ! should be: '" + sSubject + "', but was: '" + GetClipboard + "'."
end if
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertFieldsTitle
Dim sTitle as String
sTitle = "This is a Title"
printlog "Insert / Fields / Title"
Call hNewDocument
'/// File / Properties / Description , input some
'/// + text in Title
Call fFileProperties("TabBeschreibung")
Titel.Settext sTitle
TabBeschreibung.OK
'/// Insert / Fields / Title
InsertFieldsTitle
'/// Check if the title is correct
Call wTypeKeys "<Shift Left>"
EditCopy
if GetClipboard <> sTitle then
Warnlog "Title isn't correct ! should be: '" + sTitle + "', but was: '" + GetClipboard + "'."
end if
Call hCloseDocument
endcase
'-----------------------------------------------------------------
testcase tInsertFieldsAuthor
Dim sFirstName , sLastName as String
Dim sFirstName1 , sLastName1 as String
sFirstName1 = "Test1" : sLastName1 = "Test2"
printlog "Insert / Fields / Author"
Call hNewDocument
'/// Change author to author :Test2 Test1
ToolsOptions
Call hToolsOptions("STAROFFICE","USERDATA")
sFirstName = VorName.GetText
sLastName = ZuName.GetText
VorName.SetText sFirstName1
ZuName.SetText sLastName1
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
'/// File / Properties / General , check "Apply user
'/// + data" , click "delete" button
Call fFileProperties("TabDokument")
BenutzerdatenVerwenden.Check
Sleep 1
Loeschen.Click
Sleep 1
TabDokument.OK
'/// Insert / Fields / Author
InsertFieldsAuthor
'/// Check if the title is correct
Call wTypeKeys "<Shift Left>"
EditCopy
if GetClipboard <> (sFirstName1 + " " + sLastName1) then
Warnlog "Author isn't correct ! should be: '" + (sFirstName1 + " " + sLastName1) + "', but was: '" + GetClipboard + "'."
end if
'Recover author to default
ToolsOptions
Call hToolsOptions("STAROFFICE","USERDATA")
VorName.SetText sFirstName
ZuName.SetText sLastName
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
Call hCloseDocument
endcase
|