[ooovba.git] / testautomation / chart2 / required / includes / ch2_flexible_source_range_selection01.inc
| blob | 3e97f3f6e52a29ac6aba5c89e401907e45ccda99 |
1 'encoding UTF-8 Do not remove or change this line!
2 '**************************************************************************
3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 '*
5 '* Copyright 2008 by Sun Microsystems, Inc.
6 '*
7 '* OpenOffice.org - a multi-platform office productivity suite
8 '*
9 '* $RCSfile: ch2_flexible_source_range_selection01.inc,v $
10 '*
11 '* $Revision: 1.2 $
12 '*
13 '* last change: $Author: obo $ $Date: 2008-07-21 12:07:53 $
14 '*
15 '* This file is part of OpenOffice.org.
16 '*
17 '* OpenOffice.org is free software: you can redistribute it and/or modify
18 '* it under the terms of the GNU Lesser General Public License version 3
19 '* only, as published by the Free Software Foundation.
20 '*
21 '* OpenOffice.org is distributed in the hope that it will be useful,
22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 '* GNU Lesser General Public License version 3 for more details
25 '* (a copy is included in the LICENSE file that accompanied this code).
26 '*
27 '* You should have received a copy of the GNU Lesser General Public License
28 '* version 3 along with OpenOffice.org. If not, see
29 '* <http://www.openoffice.org/license.html>
30 '* for a copy of the LGPLv3 License.
31 '*
32 '/***********************************************************************
33 '*
34 '* owner : oliver.craemer@sun.com
35 '*
36 '* short description : Updatetest for Flexible Source Range Selection in Writer
37 '*
38 '************************************************************************
39 '*
40 ' #1 tDataRangeWizardWriter ' Updatetest for tabpage DataRange via chart wizard
41 ' #1 tDataSeriesWizardWriter ' Updatetest for tabpage DataSeries via chart wizard
42 ' #1 tDataRangeDialogWriter ' Updatetest for tabpage DataRange via data ranges dialog
43 ' #1 tDataSeriesDialogWriter ' Updatetest for tabpage DataSeries via data ranges dialog
44 ' #1 fOpenWriterTestDocumentAndInsertChart ' Sub routine to load test documents
45 '*
46 '\***********************************************************************
48 testcase tDataRangeWizardWriter
49 dim sDataRange as string
50 dim sInputFile as string
51 sInputFile = convertpath(gTestToolPath & "chart2/required/input/ch_flexrange05.odt")
52 '///Open test document <i>gTestToolPath</i>/chart2/required/input/ch_flexrange05.odt
53 printlog "Open test document gTestToolPath/chart2/required/input/ch_flexrange05.odt"
54 if fOpenWriterTestDocumentAndInsertChart(sInputFile) then
55 '///Choose the Chart type <i>line</i> (should be the fifth in the top-down list)
56 printlog "Choose the Chart type line (should be the fifth in the top-down list)"
57 if fSetChartType( "line" ) > 0 then
58 warnlog "Something went wrong setting chart type to Line."
59 Kontext "ChartWizard"
60 ChartWizard.Cancel
61 call hCloseDocument
62 goto endsub
63 endif
64 Kontext "ChartWizard"
65 '/// Click Next button
66 GoNext.Click
67 Kontext "TabChartTypeDataRange"
68 call DialogTest ( TabChartTypeDataRange )
69 '///Check data range in edit field value (ChartFlexRange.A1:E5)
70 printlog "Check data range in edit field value (ChartFlexRange.A1:E5)"
71 Kontext "TabChartTypeDataRange"
72 sDataRange = DataRange.GetText
73 if sDataRange <> "ChartFlexRange.A1:E5" then
74 warnlog "This is not the expected datarange, it is " & sDataRange & " but should be ChartFlexRange.A1:E5"
75 else
76 printlog " Datarange is correct"
77 endif
78 '///Check if -Data series in rows- is enabled
79 printlog "Check if -Data series in rows- is enabled"
80 if Rows.IsEnabled then
81 printlog " Data series in rows is enabled"
82 else
83 warnlog "Data series in rows is disabled"
84 endif
85 '///Check if -Data series in columns- is enabled and chosen
86 printlog "Check if -Data series in columns- is enabled and chosen"
87 if Columns.IsEnabled then
88 printlog " Data series in columns is enabled"
89 if Columns.IsChecked then
90 printlog " and checked"
91 else
92 warnlog "Data series in columns is not checked"
93 endif
94 else
95 warnlog "Data series in columns is disabled"
96 endif
97 '///Check if -First row as label- is enabled and checked
98 printlog "Check if -First row as label- is enabled and checked"
99 if FirstRowAsLabel.IsEnabled then
100 printlog " First row as label is enabled"
101 if FirstRowAsLabel.IsChecked then
102 printlog " and checked"
103 else
104 warnlog "First row as label is not checked"
105 endif
106 else
107 warnlog "First row as label is disabled"
108 endif
109 '///Check if -First column as label- is enabled checked
110 printlog "Check if -First column as label- is enabled checked"
111 if FirstColumnAsLabel.IsEnabled then
112 printlog " First column as label is enabled"
113 if FirstColumnAsLabel.IsChecked then
114 printlog " and checked"
115 else
116 warnlog "First column as label is not checked"
117 endif
118 else
119 warnlog "First column as label is disabled"
120 endif
121 '///Enter invalid range ChartFlexRange.A1:E
122 printlog "Enter invalid range ChartFlexRange.A1:E"
123 DataRange.SetText "ChartFlexRange.A1:E"
124 '///Check if -Data series in rows- is disabled
125 printlog "Check if -Data series in rows- is disabled"
126 Kontext "TabChartTypeDataRange"
127 if NOT Rows.IsEnabled then
128 printlog " Data series in rows is disabled"
129 else
130 warnlog "Data series in rows is enabled, but should be disabled"
131 endif
132 '///Check if -Data series in columns- is disabled
133 printlog "Check if -Data series in columns- is disabled"
134 if NOT Columns.IsEnabled then
135 printlog " Data series in columns is disabled"
136 else
137 warnlog "Data series in columns is enabled, but should be disabled"
138 endif
139 '///Check if -First row as label- is disabled
140 printlog "Check if -First row as label- is disabled"
141 if NOT FirstRowAsLabel.IsEnabled then
142 printlog " First row as label is disabled"
143 else
144 warnlog "First row as label is enabled, but should be disabled"
145 endif
146 '///Check if -First column as label- is disabled
147 printlog "Check if -First column as label- is disabled"
148 if NOT FirstColumnAsLabel.IsEnabled then
149 printlog " First Column as label is disabled"
150 else
151 warnlog "First Column as label is enabled, but should be disabled"
152 endif
153 '///Check that Back, Next and Finish does not work
154 printlog "Check that Back, Next and Finish does not work"
155 kontext "ChartWizard"
156 GoBack.Click
157 kontext "TabChartTypeDataRange"
158 if FirstColumnAsLabel.IsVisible then
159 printlog " Success: Back button does not work"
160 else
161 warnlog "Back button is not functionless"
162 Kontext "ChartWizard"
163 GoNext.Click
164 endif
165 '///Enter valid range ChartFlexRange.A1:E5
166 printlog "Enter valid range ChartFlexRange.A1:E5"
167 kontext "TabChartTypeDataRange"
168 DataRange.SetText "ChartFlexRange.A1:E5"
169 '///Check if -Data series in rows- is enabled
170 printlog "Check if -Data series in rows- is enabled"
171 if Rows.IsEnabled then
172 printlog " Data series in rows is enabled"
173 else
174 warnlog "Data series in rows is disabled"
175 endif
176 '///Check if -Data series in columns- has been enabled and chosen
177 printlog "Check if -Data series in columns- has been enabled and chosen"
178 if Columns.IsEnabled then
179 printlog " Data series in columns is enabled"
180 if Columns.IsChecked then
181 printlog " and checked"
182 else
183 warnlog "Data series in columns is not checked"
184 endif
185 else
186 warnlog "Data series in rows is disabled"
187 endif
188 '///Check if -First row as label- is enabled and checked
189 printlog "Check if -First row as label- is enabled and checked"
190 if FirstRowAsLabel.IsEnabled then
191 printlog " First row as label is enabled"
192 if FirstRowAsLabel.IsChecked then
193 printlog " and checked"
194 else
195 warnlog "First row as label is not checked"
196 endif
197 else
198 warnlog "First row as label is disabled"
199 endif
200 '///Check if -First column as label- is enabled checked
201 printlog "Check if -First column as label- is enabled and checked"
202 if FirstColumnAsLabel.IsEnabled then
203 printlog " First column as label is enabled"
204 if FirstColumnAsLabel.IsChecked then
205 printlog " and checked"
206 else
207 warnlog "First column as label is not checked"
208 endif
209 else
210 warnlog "First column as label is disabled"
211 endif
212 '///Press Cancel button
213 printlog "Press Cancel button"
214 Kontext "ChartWizard"
215 ChartWizard.Cancel
216 '///Close document
217 printlog "Close document"
218 Call hCloseDocument
219 else
220 warnlog "It was not possible to open the test document."
221 endif
222 endcase
223 '
224 '-------------------------------------------------------------------------
225 '
226 testcase tDataSeriesWizardWriter
227 dim sInputFile as string
228 dim iDataSeries as integer
229 dim sDataRanges as string
230 dim sRangeFor as string
231 dim sCategories as string
232 sInputFile = convertpath(gTestToolPath & "chart2/required/input/ch_flexrange06.odt" )
233 '///Open test document gTestToolPath/chart2/required/input/ch_flexrange06.odt
234 printlog "Open test document gTestToolPath/chart2/required/input/ch_flexrange06.odt"
235 if fOpenWriterTestDocumentAndInsertChart(sInputFile) then
236 '///Choose the Chart type <i>area</i> (should be the fourth in the top-down list)
237 printlog "Choose the Chart type <i>area</i> (should be the fourth in the top-down list)"
238 Kontext "ChartType"
239 if fSetChartType( "area" ) > 0 then
240 warnlog "Something went wrong setting chart type to area."
241 Kontext "ChartWizard"
242 ChartWizard.Cancel
243 call hCloseDocument
244 goto endsub
245 endif
246 Kontext "ChartWizard"
247 '/// Click Next button
248 GoNext.Click
249 '/// Click Next button
250 GoNext.Click
251 Kontext "TabChartTypeDataSeries"
252 if RangeFor.IsVisible then
253 printlog " Switching to tabpage was successfull"
254 else
255 warnlog "Switching to tabpage Data Series was not successfull"
256 goto endsub
257 endif
258 call DialogTest ( TabChartTypeDataSeries )
259 '///Check if the data series listbox is enabled and contains four entries
260 printlog "Check if the data series listbox is enabled and contains four entries"
261 iDataSeries = DataSeries.GetItemCount
262 if iDataSeries = 4 then
263 printlog " All 4 data series are available"
264 else
265 warnlog "There are " & iDataSeries & " data series instead of 4"
266 endif
267 '///Check if the ADD button is enabled and click the button
268 printlog "Check if the ADD button is enabled and click the button"
269 if AddButton.IsEnabled then
270 printlog " ADD button is enabled"
271 AddButton.Click
272 else
273 warnlog "ADD button is not enabled"
274 endif
275 '///Check if there are now five entries in the data series listbox
276 printlog "Check if there are now five entries in the data series listbox"
277 iDataSeries = DataSeries.GetItemCount
278 if iDataSeries = 5 then
279 printlog " Adding a data series was successfull"
280 else
281 warnlog "There are " & iDataSeries & " data series instead of 5"
282 endif
283 '///Check if the new data series was added below the highlighted one
284 printlog "Check if the new data series was added below the highlighted one"
285 if DataSeries.GetSelIndex = 2 then
286 printlog " The new data series was inserted below the highlighted (first) one"
287 else
288 warnlog "The new dataseries was not inserted below the highlighted one"
289 endif
290 '///Check if the REMOVE button is enabled and click the button
291 printlog "Check if the REMOVE button is enabled and click the button"
292 if RemoveButton.IsEnabled then
293 printlog " REMOVE button is enabled"
294 RemoveButton.Click
295 else
296 warnlog "REMOVE button is not enabled"
297 endif
298 '///Check if there are now four entries in the data series listbox
299 printlog "Check if there are now four entries in the data series listbox"
300 iDataSeries = DataSeries.GetItemCount
301 if iDataSeries = 4 then
302 printlog " Removing a data series was successfull"
303 else
304 warnlog "There are " & iDataSeries & " data series instead of 4"
305 endif
306 '/// Select third entry
307 printlog "Select third entry"
308 DataSeries.Select(3)
309 if MoveUp.IsEnabled then
310 printlog " The MoveUp button is enabled"
311 '/// The Move Up button should be enabled
312 printlog "The Move Up button should be enabled"
313 '/// Click the Move Up button twice
314 printlog "Click the Move Up button twice"
315 MoveUp.Click
316 MoveUp.Click
317 else
318 warnlog "The MoveUp button is disabled"
319 endif
320 if DataSeries.GetSelIndex = 1 then
321 printlog " Moving data series was successfull"
322 if MoveUp.IsEnabled then
323 warnlog "MoveUp button is not disabled on first entry"
324 else
325 printlog " and MoveUp button is disabled on first enty"
326 endif
327 else
328 warnlog "Moving data series was not successfull"
329 endif
330 '/// Select second entry
331 printlog "Select second entry"
332 DataSeries.Select(2)
333 if MoveDown.IsEnabled then
334 printlog " The MoveDown button is enabled"
335 '/// If Move Down button is enabled
336 printlog "If Move Down button is enabled"
337 '/// Click Move Down button twice
338 printlog "Click Move Down button twice"
339 MoveDown.Click
340 MoveDown.Click
341 else
342 warnlog "The MoveDown button is disabled"
343 endif
344 if DataSeries.GetSelIndex = 4 then
345 printlog " Moving data series was successfull"
346 if MoveDown.IsEnabled then
347 warnlog "MoveDown button is not disabled on first entry"
348 else
349 printlog " and MoveDown button is disabled on first enty"
350 endif
351 else
352 warnlog "Moving data series was not successfull"
353 endif
354 '///Select first entry in Data Ranges
355 printlog "Select first entry in Data Ranges"
356 DataRanges.Select(1)
357 '///Verify that the range matches the one in edit field
358 printlog "Verify that the range matches the one in edit field"
359 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13
360 'Instead of 1,2 there must be 1,4 used becqause there are two invisible
361 'label-columns in that treelist-box
362 sDataRanges = DataRanges.GetSelText (1,4)
363 sRangeFor = RangeFor.GetText
364 if sDataRanges = sRangeFor then
365 printlog " Both ranges are matching"
366 else
367 warnlog "The ranges does not match: " & sDataRanges & sRangeFor
368 endif
369 '///Select second entry in Data Ranges
370 printlog "Select second entry in Data Ranges"
371 DataRanges.Select(2)
372 '///Check that the range in the edit field has changed, too
373 printlog "Check that the range in the edit field has changed, too"
374 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13
375 'Instead of 1,2 there must be 1,4 used becqause there are two invisible
376 'label-columns in that treelist-box
377 sDataRanges = DataRanges.GetSelText (1,4)
378 sRangeFor = RangeFor.GetText
379 if sDataRanges = sRangeFor then
380 printlog " Both ranges are matching"
381 else
382 warnlog "The ranges does not match" & sDataRanges & sRangeFor
383 endif
384 '///Change the range in edit field
385 printlog "Change the range in edit field"
386 RangeFor.SetText "ChartFlexRange.B2:B4"
387 '///Check that the range in Data Ranges has changed, too
388 printlog "Check that the range in Data Ranges has changed, too"
389 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13
390 'Instead of 1,2 there must be 1,4 used becqause there are two invisible
391 'label-columns in that treelist-box
392 sDataRanges = DataRanges.GetSelText (1,4)
393 if sDataRanges = "ChartFlexRange.B2:B4" then
394 printlog " The data range has also changed"
395 else
396 warnlog "The data range has not changed"
397 endif
398 '/// Set ChartFlexRange.A2:A4 as range for categories
399 printlog "Set ChartFlexRange.A2:A4 as range for categories"
400 Categories.SetText "ChartFlexRange.A2:A4"
401 sCategories = Categories.GetText
402 if sCategories = "ChartFlexRange.A2:A4" then
403 printlog " The range has been modified"
404 else
405 warnlog "Modifiing the range was not successfull"
406 endif
407 '///Enter invalid range ChartFlexRange.A2:A
408 printlog "Enter invalid range ChartFlexRange.A2:A"
409 Categories.SetText "ChartFlexRange.A2:A"
410 '///Check that the BACK button is disabled
411 printlog "Check that the BACK button does not work"
412 kontext "ChartWizard"
413 GoBack.Click
414 kontext "TabChartTypeDataSeries"
415 if Categories.IsVisible then
416 printlog " Success: Back button does not work"
417 else
418 warnlog "Back button is not functionless"
419 Kontext "ChartWizard"
420 GoNext.Click
421 endif
422 '///Enter valid range ChartFlexRange.A2:A5
423 printlog "Enter valid range ChartFlexRange.A2:A5"
424 Categories.SetText "ChartFlexRange.A2:A5"
425 '///Press Cancel button
426 printlog "Press Cancel button"
427 Kontext "ChartWizard"
428 ChartWizard.Cancel
429 '///Close document
430 printlog "Close document"
431 Call hCloseDocument
432 else
433 warnlog "It was not possible to open the test document."
434 endif
435 endcase
436 '
437 '-------------------------------------------------------------------------
438 '
439 testcase tDataRangeDialogWriter
440 dim sDataRange as string
441 dim sInputFile as string
442 sInputFile = convertpath(gTestToolPath & "chart2/required/input/ch_flexrange07.odt")
443 '///Open test document <i>gTestToolPath</i>/chart2/required/input/ch_flexrange07.odt
444 printlog "Open test document gTestToolPath/chart2/required/input/ch_flexrange07.odt"
445 if fOpenTestDocumentAndSelectDataRange(sInputFile) then
446 '///Check data range in edit field (ChartFlexRange.A2:A3;ChartFlexRange.B1:E3)
447 printlog "Check data range in edit field"
448 Kontext "TabChartTypeDataRange"
449 sDataRange = DataRange.GetText
450 if sDataRange <> "ChartFlexRange.A2:A3;ChartFlexRange.B1:E3" then
451 warnlog "This is not the expected datarange, it is " & sDataRange & " but should be ChartFlexRange.A2:A3;ChartFlexRange.B1:E3"
452 else
453 printlog " Datarange is correct"
454 endif
455 '///Check if -Data series in columns- is enabled and chosen
456 printlog "Check if -Data series in columns- is enabled and chosen"
457 if Columns.IsEnabled then
458 printlog " Data series in columns is enabled"
459 if Columns.IsChecked then
460 printlog " and checked"
461 else
462 warnlog "Data series in columns is not checked"
463 endif
464 else
465 warnlog "Data series in columns is disabled"
466 endif
467 '///Check if -Data series in rows- is enabled
468 printlog "Check if -Data series in rows- is enabled"
469 if Rows.IsEnabled then
470 printlog " Data series in rows is enabled"
471 else
472 warnlog "Data series in rows is disabled"
473 endif
474 '///Check if -First row as label- is enabled and checked
475 printlog "Check if -First row as label- is enabled and checked"
476 if FirstRowAsLabel.IsEnabled then
477 printlog " First row as label is enabled"
478 if FirstRowAsLabel.IsChecked then
479 printlog " and checked"
480 else
481 warnlog "First row as label is not checked"
482 endif
483 else
484 warnlog "First row as label is disabled"
485 endif
486 '///Check if -First column as label- is enabled and checked
487 printlog "Check if -First column as label- is enabled and checked"
488 if FirstColumnAsLabel.IsEnabled then
489 printlog " First column as label is enabled"
490 if FirstColumnAsLabel.IsChecked then
491 printlog " and checked"
492 else
493 warnlog "First column as label is not checked"
494 endif
495 else
496 warnlog "First column as label is disabled"
497 endif
498 '///Enter invalid range ChartFlexRange.A1:E
499 printlog "Enter invalid range ChartFlexRange.A1:E"
500 DataRange.SetText "ChartFlexRange.A1:E"
501 '///Check that -Data series in rows- is disabled
502 printlog "Check that -Data series in rows- is disabled"
503 Kontext "TabChartTypeDataRange"
504 if NOT Rows.IsEnabled then
505 printlog " Data series in rows is disabled"
506 else
507 warnlog "Data series in rows is enabled, but should be disabled"
508 endif
509 '///Check that -Data series in columns- is disabled
510 printlog "Check that -Data series in columns- is disabled"
511 if NOT Columns.IsEnabled then
512 printlog " Data series in columns is disabled"
513 else
514 warnlog "Data series in columns is enabled, but should be disabled"
515 endif
516 '///Check if -First row as label- is disabled
517 printlog "Check if -First row as label- is disabled"
518 if NOT FirstRowAsLabel.IsEnabled then
519 printlog " First row as label is disabled"
520 else
521 warnlog "First row as label is enabled, but should be disabled"
522 endif
523 '///Check if -First column as label- is disabled
524 printlog "Check if -First column as label- is disabled"
525 if NOT FirstColumnAsLabel.IsEnabled then
526 printlog " First Column as label is disabled"
527 else
528 warnlog "First Column as label is enabled, but should be disabled"
529 endif
530 '///Check that OK button is disabled
531 printlog "Check that OK button is disabled"
532 try
533 Kontext "TabChartTypeDataRange"
534 TabChartTypeDataRange.OK
535 warnlog "The OK button is not disabled"
536 goto endsub
537 catch
538 printlog " The OK button is disabled"
539 endcatch
540 '///Enter valid range ChartFlexRange.A1:E3
541 printlog "Enter valid range ChartFlexRange.A1:E3"
542 kontext "TabChartTypeDataRange"
543 DataRange.SetText "ChartFlexRange.A1:E3"
544 '///Check if -Data series in columns- is enabled and chosen
545 printlog "Check if -Data series in columns- is enabled and chosen"
546 if Columns.IsEnabled then
547 printlog " Data series in columns is enabled"
548 if Columns.IsChecked then
549 printlog " and checked"
550 else
551 warnlog "Data series in columns is not checked"
552 endif
553 else
554 warnlog "Data series in columns is disabled"
555 endif
556 '///Check if -Data series in rows- is enabled
557 printlog "Check if -Data series in rows- is enabled"
558 if Rows.IsEnabled then
559 printlog " Data series in rows is enabled"
560 else
561 warnlog "Data series in rows is disabled"
562 endif
563 '///Check if -First row as label- is enabled and checked
564 printlog "Check if -First row as label- is enabled and checked"
565 if FirstRowAsLabel.IsEnabled then
566 printlog " First row as label is enabled"
567 if FirstRowAsLabel.IsChecked then
568 printlog " and checked"
569 else
570 warnlog "First row as label is not checked"
571 endif
572 else
573 warnlog "First row as label is disabled"
574 endif
575 '///Check if -First column as label- is enabled and checked
576 printlog "Check if -First column as label- is enabled and checked"
577 if FirstColumnAsLabel.IsEnabled then
578 printlog " First column as label is enabled"
579 if FirstColumnAsLabel.IsChecked then
580 printlog " and checked"
581 else
582 warnlog "First column as label is not checked"
583 endif
584 else
585 warnlog "First column as label is disabled"
586 endif
587 '///Press Cancel button
588 printlog "Press Cancel button"
589 Kontext "TabChartTypeDataRange"
590 TabChartTypeDataRange.Cancel
591 '///Close document
592 printlog "Close document"
593 Call hCloseDocument
594 else
595 warnlog "It was not possible to open the test document."
596 endif
597 endcase
598 '
599 '-------------------------------------------------------------------------
600 '
601 testcase tDataSeriesDialogWriter
602 dim sInputFile as string
603 dim iDataSeries as integer
604 dim sDataRanges as string
605 dim sRangeFor as string
606 dim sCategories as string
607 sInputFile = convertpath(gTestToolPath & "chart2/required/input/ch_flexrange08.odt")
609 '/// Open test document <i>gTestToolPath</i>/chart2/required/input/ch_flexrange08.odt
610 printlog "Open test document gTestToolPath/chart2/required/input/ch_flexrange08.odt"
611 if fOpenTestDocumentAndSelectDataRange(sInputFile) then
612 Kontext
613 '/// Switching to tab page Data Series
614 printlog "Switching to tab page Data Series"
615 active.SetPage TabChartTypeDataSeries
616 Kontext "TabChartTypeDataSeries"
617 call DialogTest ( TabChartTypeDataSeries )
618 '///Check if the data series listbox is enabled and contains four entries
619 printlog "Check if the data series listbox is enabled and contains four entries"
620 iDataSeries = DataSeries.GetItemCount
621 if iDataSeries = 4 then
622 printlog " One data serie is available"
623 else
624 warnlog "There are " & iDataSeries & " data series instead of four"
625 endif
626 '///Check if the ADD button is enabled and click the button
627 printlog "Check if the ADD button is enabled and click the button"
628 if AddButton.IsEnabled then
629 printlog " ADD button is enabled"
630 AddButton.Click
631 else
632 warnlog "ADD button is not enabled"
633 endif
634 '///Check if there are now five entries in the data series listbox
635 printlog "Check if there are now five entries in the data series listbox"
636 iDataSeries = DataSeries.GetItemCount
637 if iDataSeries = 5 then
638 printlog " Adding a data series was successfull"
639 else
640 warnlog "There are " & iDataSeries & " data series instead of five"
641 endif
642 '///Check if the new data series was added below the highlighted one
643 printlog "Check if the new data series was added below the highlighted one"
644 if DataSeries.GetSelIndex = 2 then
645 printlog " The new data series was inserted below the highlighted (first) one"
646 else
647 warnlog "The new dataseries was not inserted below the highlighted one"
648 endif
649 '///Check if the REMOVE button is enabled and click the button
650 printlog "Check if the REMOVE button is enabled and click the button"
651 if RemoveButton.IsEnabled then
652 printlog " REMOVE button is enabled"
653 RemoveButton.Click
654 else
655 warnlog "REMOVE button is not enabled"
656 endif
657 '///Check if there are now four entries in the data series listbox
658 printlog "Check if there are now four entries in the data series listbox"
659 iDataSeries = DataSeries.GetItemCount
660 if iDataSeries = 4 then
661 printlog " Removing a data series was successfull"
662 else
663 warnlog "There are " & iDataSeries & " data series instead of 4"
664 endif
665 '///Use UP button and verify that it it disabled on first entry
666 printlog "Use UP button and verify that it it disabled on first entry"
667 DataSeries.Select(2)
668 if MoveUp.IsEnabled then
669 printlog " The MoveUp button is enabled"
670 MoveUp.Click
671 else
672 warnlog "The MoveUp button is disabled"
673 endif
674 if DataSeries.GetSelIndex = 1 then
675 printlog " Moving data series was successfull"
676 if MoveUp.IsEnabled then
677 warnlog "MoveUp button is not disabled on first entry"
678 else
679 printlog " and MoveUp button is disabled on first enty"
680 endif
681 else
682 warnlog "Moving data series was not successfull"
683 endif
684 '///Use DOWN button thrice and verify that it is disabled on last entry
685 printlog "Use DOWN button thrice and verify that it is disabled on last entry"
686 DataSeries.Select(1)
687 if MoveDown.IsEnabled then
688 printlog " The MoveDown button is enabled"
689 MoveDown.Click
690 MoveDown.Click
691 MoveDown.Click
692 else
693 warnlog "The MoveDown button is disabled"
694 endif
695 if DataSeries.GetSelIndex = 4 then
696 printlog " Moving data series was successfull"
697 if MoveDown.IsEnabled then
698 warnlog "MoveDown button is not disabled on first entry"
699 else
700 printlog " and MoveDown button is disabled on first enty"
701 endif
702 else
703 warnlog "Moving data series was not successfull"
704 endif
705 '///Select first entry in Data Ranges
706 printlog "Select first entry in Data Ranges"
707 DataRanges.Select(1)
708 '///Verify that the range matches the one in edit field
709 printlog "Verify that the range matches the one in edit field"
710 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13
711 'Instead of 1,2 there must be 1,4 used becqause there are two invisible
712 'label-columns in that treelist-box
713 sDataRanges = DataRanges.GetSelText (1,4)
714 sRangeFor = RangeFor.GetText
715 if sDataRanges = sRangeFor then
716 printlog " Both ranges are matching"
717 else
718 warnlog "The ranges does not match: " & sDataRanges & sRangeFor
719 endif
720 '///Select second entry in Data Ranges
721 printlog "Select second entry in Data Ranges"
722 DataRanges.Select(2)
723 '///Check that the range in the edit field has changed,too
724 printlog "Check that the range in the edit field has changed,too"
725 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13
726 'Instead of 1,2 there must be 1,4 used becqause there are two invisible
727 'label-columns in that treelist-box
728 sDataRanges = DataRanges.GetSelText (1,4)
729 sRangeFor = RangeFor.GetText
730 if sDataRanges = sRangeFor then
731 printlog " Both ranges are matching"
732 else
733 warnlog "The ranges does not match" & sDataRanges & sRangeFor
734 endif
735 '///Change the range in edit field to ChartFlexRange.B2:B3
736 printlog "Change the range in edit field to ChartFlexRange.B2:B3"
737 RangeFor.SetText "ChartFlexRange.B2:B3"
738 '///Check that the range in Data Ranges has changed, too
739 printlog "Check that the range in Data Ranges has changed, too"
740 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13
741 'Instead of 1,2 there must be 1,4 used becqause there are two invisible
742 'label-columns in that treelist-box
743 sDataRanges = DataRanges.GetSelText (1,4)
744 if sDataRanges = "ChartFlexRange.B2:B3" then
745 printlog " The data range has also changed"
746 else
747 warnlog "The data range has not changed"
748 endif
749 '///Edit range for Categories (ChartFlexRange.A2:A3)
750 printlog "Edit range for Categories (ChartFlexRange.A2:A3)"
751 Categories.SetText "ChartFlexRange.A2:A3"
752 sCategories = Categories.GetText
753 if sCategories = "ChartFlexRange.A2:A3" then
754 printlog " The range has been modified"
755 else
756 warnlog "Modifiing the range was not successfull"
757 endif
758 '///Enter invalid range ChartFlexRange.A2:A
759 printlog "Enter invalid range ChartFlexRange.A2:A"
760 Categories.SetText "ChartFlexRange.A2:A"
761 '///Check that the OK button is disabled
762 printlog "Check that the OK button is disabled"
763 try
764 Kontext "TabChartTypeDataSeries"
765 TabChartTypeDataSeries.OK
766 warnlog "The OK button is not disabled"
767 goto endsub
768 catch
769 printlog " The OK button is disabled"
770 endcatch
771 '///Enter valid range ChartFlexRange.A2:A4
772 printlog "Enter valid range ChartFlexRange.A2:A4"
773 kontext "TabChartTypeDataSeries"
774 Categories.SetText "ChartFlexRange.A2:A4"
775 '///Press Cancel button
776 printlog "Press Cancel button"
777 Kontext "TabChartTypeDataSeries"
778 TabChartTypeDataSeries.Cancel
779 '///Close document
780 printlog "Close document"
781 Call hCloseDocument
782 else
783 warnlog "It was not possible to open the test document."
784 endif
785 endcase
786 '
787 '-------------------------------------------------------------------------
788 '
789 function fOpenWriterTestDocumentAndInsertChart(sInputFile as STRING) as BOOLEAN
790 fOpenWriterTestDocumentAndInsertChart = FALSE
791 call hFileOpen(sInputFile)
792 sleep(2)
793 Call sMakeReadOnlyDocumentEditable()
794 '///Menu Insert Object Chart to open chart wizard
795 printlog "Menu Insert Object Chart to open chart wizard"
796 InsertObjectChart
797 WaitSlot()
798 fOpenWriterTestDocumentAndInsertChart = TRUE
799 end function