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
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
|
'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 : Resource Test - Insert Menu
'*
'************************************************************************
'*
' #1 tInsertManualBreak
' #1 tInsertCells
' #1 tInsertRowsColumns
' #1 tInsertSheet
' #1 tInsertSheetFromFile
' #1 tInsertLink
' #1 tInsertSpecialCharacters
' #1 tInsertFormattingMark
' #1 tInsertHyperlink
' #1 tInsertFunction
' #1 tInsertFunctionList
' #1 tInsertNamesDefine
' #1 tInsertNamesInsert
' #1 tInsertNamesCreate
' #1 tInsertNamesLabels
' #1 tInsertNote
' #1 tInsertPictureFromFile
' #1 tInsertMovieSound
' #1 tInsertObjectOLE
' #1 tInsertObjectPlugin
' #1 tInsertObjectSound
' #1 tInsertObjectVideo
' #1 tInsertObjectFormular
' #1 tInsertChart
' #1 tInsertFloatingFrame
'*
'\***********************************************************************
sub c_upd_insertmenu
Printlog Chr(13) + "--------- Insert Menu (c_upd_insertmenu.inc) ---------"
call tInsertManualBreak
call tInsertCells
call tInsertRowsColumns
call tInsertSheet
call tInsertSheetFromFile
call tInsertLink
call tInsertSpecialCharacters
call tInsertFormattingMark
call tInsertHyperlink
call tInsertFunction
call tInsertFunctionList
call tInsertNamesDefine
call tInsertNamesInsert
call tInsertNamesCreate
call tInsertNamesLabels
call tInsertNote
call tInsertPictureFromFile
call tInsertMovieSound
call tInsertObjectOLE
call tInsertObjectPlugin
call tInsertObjectSound
call tInsertObjectVideo
call tInsertObjectFormular
call tInsertChart
call tInsertFloatingFrame
end sub
'-----------------------------------------------------------
testcase tInsertManualBreak
'///<u><b>Insert - Manual Break</b></u>
'/// Opening new spreadsheet document for getting defined starting environment
printlog " Opening new spreadsheet document for getting defined starting environment"
call hNewDocument
'/// Goto cell D5
printlog " Goto cell D5"
call fCalcSelectRange ("D5")
'/// Insert a manual row break by 'Insert – Manual Break – Row Break'
printlog " Insert a manual row break by 'Insert – Manual Break – Row Break'"
InsertManuelBreakRowBreak
'/// Insert a manual column break by 'Insert – Manual Break – Column Break'
printlog " Insert a manual column break by 'Insert – Manual Break – Column Break'"
InsertManuelBreakColumnBreak
'/// Close starting document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertCells
'///<u><b>Insert - Cells</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Insert Cells'- dialog by 'Insert – Cells'
printlog " Open 'Insert Cells'- dialog by 'Insert – Cells'"
InsertCells
Kontext "ZellenEinfuegen"
Call DialogTest ( ZellenEinfuegen )
'/// Check option 'Shift cells down'
printlog " Check option 'Shift cells down'"
ZellenNachUnten.Check
'/// Check option 'Shift cells right'
printlog " Check option 'Shift cells right'"
ZellenNachRechts.Check
'/// Check option 'Entire row'
printlog " Check option 'Entire row'"
GanzeZeile.Check
'/// Check option 'Entire column'
printlog " Check option 'Entire column'"
GanzeSpalte.Check
'/// Close dialog with 'Cancel'
printlog " Close dialog with 'Cancel'"
ZellenEinfuegen.Cancel
'/// Close starting document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertRowsColumns
'///<u><b>Insert - Rows/Columns</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Insert a new row by 'Insert - Rows'
printlog " Insert a new row by 'Insert - Rows'"
InsertRowsCalc
'/// Insert a new column by 'Insert - Columns'
printlog " Insert a new column by 'Insert - Columns'"
InsertColumnsCalc
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertSheet
'///<u><b>Insert - Sheet</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Insert Sheet' – dialog by 'Insert – Sheet'
printlog " Open 'Insert Sheet' – dialog by 'Insert – Sheet'"
InsertSheetCalc
Kontext "TabelleEinfuegenCalc"
Call DialogTest ( TabelleEinfuegenCalc )
'/// Check option 'After current sheet'
printlog " Check option 'After current sheet'"
Nach.Check
'/// Set 'Name' to 'Test'
printlog " Set 'Name' to 'Test'"
TabellenName.SetText "Test"
'/// Set number of sheets to 2
printlog " Set number of sheets to 2"
Anzahl.More
'/// Check option 'From File'
printlog " Check option 'From File'"
AusDateiErstellen.Check
'/// Check option 'Link'
printlog " Check option 'Link'"
Verknuepfen.Check
'/// Click on 'Browse' – button
Durchsuchen.Click
Kontext "OeffnenDLG"
'/// Close 'Insert' – dialog with 'Cancel'
printlog " Close 'Insert' – dialog with 'Cancel'"
OeffnenDLG.Cancel
Kontext "TabelleEinfuegenCalc"
'/// Close 'Insert Sheet' – dialog with 'Cancel'
printlog " Close 'Insert Sheet' – dialog with 'Cancel'"
TabelleEinfuegenCalc.Cancel
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertSheetFromFile
'///<u><b>Insert - Sheet From File</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Insert Sheet' – dialog by 'Insert – Sheet From File'
printlog " Open 'Insert Sheet' – dialog by 'Insert – Sheet From File'"
InsertSheetFromFile
Kontext "OeffnenDLG"
'/// Set filename 'spreadsheet/required/input/twosheets.ods'
printlog " Set filename 'spreadsheet/required/input/twosheets.ods'"
Dateiname.setText ( convertpath ( gTesttoolPath & "spreadsheet/required/input/twosheets.ods" ) )
'/// Close 'Insert' – dialog with 'Insert'
printlog " Close 'Insert' – dialog with 'Insert'"
Oeffnen.Click
Kontext "TabelleEinfuegenCalc"
'/// Verify that the selected file has two sheets
printlog " Verify that the selected file has two sheets"
if Auswahl.GetItemCount <> 2 then
warnlog "The file has more/less than two sheets"
end if
'/// Close 'Insert Sheet' – dialog with 'Insert'
printlog " Close 'Insert Sheet' – dialog with 'Insert'"
TabelleEinfuegenCalc.Cancel
'/// Close document'
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertLink
'///<u><b>Insert - Link</b></u>
'/// Open new Sreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'External Data' – dialog by 'Insert – Link To External Data'
printlog " Open 'External Data' – dialog by 'Insert – Link To External Data'"
InsertLinkToExternalData
Kontext "ExternalData"
call Dialogtest (ExternalData)
'/// Press browse button for URL
printlog " Press browse button for URL"
FileChoose.Click
Kontext "OeffnenDlg"
'/// Close 'Insert' – dialog with 'Cancel'
printlog " Close 'Insert' – dialog with 'Cancel'"
OeffnenDlg.close
Kontext "ExternalData"
'/// Check option 'Updata every'
printlog " Check option 'Updata every'"
Update.Check
'/// Increase updatetimer by 1
printlog " Increase updatetimer by 1"
UpdateTime.More
'/// Close 'External Data' – dialog with 'Cancel'
printlog " Close 'External Data' – dialog with 'Cancel'"
ExternalData.close
'/// Close starting document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertSpecialCharacters
'///<u><b>Insert - Special Characters</b></u>
'///Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Special Characters' – dialog by 'Insert – Special Characters'
printlog " Open 'Special Characters' – dialog by 'Insert – Special Characters'"
InsertSpecialCharacterCalc
Kontext "Sonderzeichen"
DialogTest ( Sonderzeichen )
'/// Change 'Font' to next one
printlog " Change 'Font' to next one"
if Schrift.GetItemCount = Schrift.GetSelIndex then
Schrift.Select(Schrift.GetSelIndex -1)
else Schrift.Select(Schrift.GetSelIndex +1)
end if
'/// Change 'Subset' to next one
printlog " Change 'Subset' to next one"
If Subset.IsVisible then
if Subset.GetItemCount = Subset.GetSelIndex then
Subset.Select(Subset.GetSelIndex -1)
else Subset.Select(Subset.GetSelIndex +1)
end if
end if
'/// Choose a character by clicking
printlog " Choose a character by clicking"
Zeichenanzeige.MouseDown 50,50
Zeichenanzeige.MouseUp 50,50
'/// Delete character by 'Delete'
printlog " Delete character by 'Delete'"
Loeschen.Click
'/// Close 'Special Characters' – dialog with 'Cancel'
printlog " Close 'Special Characters' – dialog with 'Cancel'"
Sonderzeichen.Cancel
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertFormattingMark
'///<u><b>Insert - Formatting Mark</b></u>
Dim bAsianLanguage as boolean
Dim bCTLlanguage as boolean
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Enable support for CJK and CTL by 'Tools-Options-Language Settings'
printlog " Enable support for CJK and CTL by 'Tools-Options-Language Settings'"
bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
'/// Select cell A1
printlog " Select cell A1"
call fCalcSelectRange ("A1")
'/// Enter 'Test' in cell 'A1' to activate editmode
printlog " Enter 'Test' in cell 'A1' to activate editmode"
DocumentCalc.TypeKeys "Test"
'/// Enter in cell 'Insert – Formatting Mark – Non-Breaking Space'
printlog " Enter in cell 'A' and 'Insert – Formatting Mark – Non-Breaking Space'"
InsertNonBreakingSpace
'/// Enter in cell 'Insert – Formatting Mark – Non-Breaking Hyphen'
printlog " Enter in cell 'Insert – Formatting Mark – Non-Breaking Hyphen'"
InsertHardHyphen
'/// Enter in cell 'Insert – Formatting Mark – Optional Hyphen'
printlog " Enter in cell 'Insert – Formatting Mark – Optional Hyphen'"
InsertSoftHyphen
'/// Enter in cell 'Insert – Formatting Mark – No-Width Optional Break'
printlog " Enter in cell 'Insert – Formatting Mark – No-Width Optional Break'"
InsertZWSP
'/// Enter in cell 'Insert – Formatting Mark – No-Width no break'
printlog " Enter in cell 'Insert – Formatting Mark – No-Width no break'"
InsertZWNBSP
'/// Enter in cell 'Insert – Formatting Mark – Left-to-right-mark'
printlog "/ Enter in cell 'Insert – Formatting Mark – Left-to-right-mark'"
InsertLRM
'/// Enter in cell 'Insert – Formatting Mark – right-to-left-mark'
printlog " Enter in cell 'Insert – Formatting Mark – right-to-left-mark'"
InsertRLM
'/// Leave cell with 'Enter'
printlog " Leave cell with 'Enter'"
DocumentCalc.TypeKeys "<Return>"
'/// Set support for CTL and CJK back to defaults
printlog " Set support for CTL and CJK back to defaults"
if bAsianLanguage = FALSE then
Call ActiveDeactivateAsianSupport(FALSE)
end if
if bCTLLanguage = FALSE then
Call ActiveDeactivateCTLSupport(FALSE)
end if
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertHyperlink
'///<u><b>Insert - Hyperlink</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Hyperlink' – dialog via 'Insert – Hyperlink'
printlog " Open 'Hyperlink' – dialog via 'Insert – Hyperlink'"
InsertHyperlink
WaitSlot( 5000 )
Kontext "Hyperlink"
'/// Switch to category 'Internet' (first one)
printlog " Switch to category 'Internet'"
Auswahl.TypeKeys "<HOME>"
'/// Choose 'Web'
printlog " Choose 'Web'"
Kontext "TabHyperlinkInternet"
internet.check
Call DialogTest ( TabHyperlinkInternet,1 )
'/// Click on 'Target in Document' – button (the target dialog appears)
printlog " Click on 'Target in Document' – button (the target dialog appears)"
Target.Click
Kontext "ZielImDokument"
Call DialogTest ( ZielImDokument )
'/// Close 'Target' – dialog with 'Close'
printlog " Close 'Target' – dialog with 'Close'"
ZielImDokument.Close
Kontext "TabHyperlinkInternet"
'/// Choose 'FTP'
printlog " Choose 'FTP'"
FTP.check
Call DialogTest ( TabHyperlinkInternet,2 )
'/// Check that the 'Target' – button is disabled
printlog " Check that the 'Target' – button is disabled"
if Target.IsEnabled then
warnlog "The target button is enabled, but should be disabled"
end if
'/// Check option 'Anonymous User'
printlog " Check option 'Anonymous User'"
AnonymerBenutzer.Check
'/// Check that 'Login Name' is disabled
printlog " Check that 'Login Name' is disabled"
if Loginname.IsEnabled then
warnlog "The Loginname is enabled, but should be disabled"
end if
'/// Chose 'Telnet'
printlog " Chose 'Telnet'"
Telnet.check
Call DialogTest ( TabHyperlinkInternet,3 )
'/// Check that the 'Target' – button is disabled
printlog " Check that the 'Target' – button is disabled"
if Target.IsEnabled then
warnlog "The target button is enabled, but should be disabled"
end if
'/// Switch to category 'Mail & News'
Kontext "Hyperlink"
Auswahl.TypeKeys "<DOWN>"
Kontext "TabHyperlinkMailUndNews"
Call DialogTest ( TabHyperlinkMailUndNews )
'/// Click twice on 'Data Source' – button to turn on / off the databasebeamer
printlog " Click twice on 'Data Source' – button to turn on / off the databasebeamer"
Adressbuch.click
Adressbuch.click
'/// Check option 'Mail'
printlog " Check option 'Mail'"
EMail.check
'/// Check that the editfield for 'Receiver' is enabled
printlog " Check that the editfield for 'Receiver' is enabled"
if not Receiver.IsEnabled then
warnlog "Receiver is disabled but should be enabled"
end if
'/// Check that the editfield for 'Subject' is enabled
printlog " Check that the editfield for 'Subject' is enabled"
if not Betreff.IsEnabled then
warnlog "Subject is disabled but should be enabled"
end if
'/// Check option 'News'
printlog " Check option 'News'"
News.check
'/// Check that the editfield for 'Subject' is disabled
printlog " Check that the editfield for 'Subject' is disabled"
if Betreff.IsEnabled then
warnlog "Subject is enabled but should be disabled"
end if
'/// Switch to category Document
printlog " Switch to category Document"
Kontext "Hyperlink"
Auswahl.TypeKeys "<DOWN>"
Kontext "TabHyperlinkDokument"
Call DialogTest ( TabHyperlinkDokument )
'/// Enter 'Test' in 'Path'
printlog " Enter 'Test' in 'Path'"
Path.TypeKeys "Test"
'/// Click on 'Open' – button
printlog " Click on 'Open' – button"
DateiOeffnen.click
Kontext "OeffnenDlg"
'/// Close 'Open' – dialog with 'Cancel'
printlog " Close 'Open' – dialog with 'Cancel'"
OeffnenDlg.Cancel
Kontext "TabHyperlinkDokument"
'/// Click on 'Target in Document' – button (the target dialog appears)
printlog " Click on 'Target in Document' – button (the target dialog appears)"
Target.click
Kontext "ZielImDokument"
'/// Close 'Target' – dialog with 'Close'
printlog " Close 'Target' – dialog with 'Close'"
ZielImDokument.close
Kontext "Hyperlink"
'/// Switch to category 'New Document'
printlog " Switch to category 'New Document'"
Auswahl.TypeKeys "<DOWN>"
Kontext "TabHyperlinkNeuesDokument"
Call DialogTest ( TabHyperlinkNeuesDokument )
'/// Check 'Edit Now'
printlog " Click 'Edit Now'"
SofortBearbeiten.check
'/// Check 'Edit Later'
printlog " Click 'Edit Later'"
SpaeterBearbeiten.check
'/// Click on 'Select Path' – button
printlog " Click on 'Select Path' – button"
Pfad.click
Kontext "OeffnenDlg"
'/// Close 'Select Path' – dialog with 'Cancel'
printlog " Close 'Select Path' – dialog with 'Cancel'"
OeffnenDlg.Cancel
Kontext "TabHyperlinkNeuesDokument"
'/// Check that the 'Frame' listbox has items
printlog " Check that the 'Frame' listbox has items"
if Frame.GetItemCount < 1 then
warnlog "The Frame combobox is empty"
end if
'/// Check that the 'Form' listbox has 2 entries
printlog " Check that the 'Form' listbox has 2 entries"
if Form.GetItemCount <> 2 then
warnlog "The Form combobox has not 2 items"
end if
'/// Close 'Hyperlink' – dialog with 'Close'
printlog " Close 'Hyperlink' – dialog with 'Close'"
TabHyperlinkNeuesDokument.Cancel
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertFunction
'///<u><b>Insert - Function</b></u>
Dim ifunctionCount as integer
Dim ifunctionIndex as integer
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open the 'Function Wizard' via 'Insert – Function'
printlog " Open the 'Function Wizard' via 'Insert – Function'"
InsertFunction
Kontext "FunctionWizard"
'/// Check that there are 13 entries in the category listbox
printlog " Check that there are 13 entries in the category listbox"
if CategoryLB.GetItemCount <> 13 then
warnlog "There are " & CategoryLB.GetItemCount & " categories instead of 13"
end if
'/// Choose the second entry (all) in the category listbox
printlog " Choose the second entry (all) in the category listbox"
CategoryLB.Select(2)
'/// Choose all entries in the function list and click 'Next' button
printlog " Choose all entries in the function list"
ifunctionCount = FunctionLB.getItemCount
for ifunctionIndex = 1 To ifunctionCount
CategoryLB.Select(2)
FunctionLB.Select(ifunctionIndex)
' sleep(1)
printlog FunctionLB.GetSelText
call DialogTest ( FunctionWizard,ifunctionIndex )
'/// Click on 'Next' – button
Forward.Click
call DialogTest ( FunctionWizard,(ifunctionCount + ifunctionIndex) )
Formel.typekeys "<MOD1 A><DELETE>", true
next ifunctionIndex
'/// Check option 'Array'
printlog " Check option 'Array'"
Matrix.check
'/// Choose the third entry (database) in the category listbox
printlog " Choose the third entry (database) in the category listbox"
CategoryLB.Select(3)
'/// Choose first function
printlog " Choose first function"
FunctionLB.Select (1)
'/// Click on 'Next' button
printlog " Click on 'Next' button"
Forward.Click
'/// Click on 'Shrink' – button; the range chooser appears
printlog " Click on 'Shrink' – button; the range chooser appears"
Shrink1.click
'/// Enter 'A1' in rangechooser
printlog " Enter 'A1' in rangechooser"
Editfield1.SetText ("A1")
'/// Click on 'Maximize' – button
printlog " Click on 'Maximize' – button"
maximize.click
'/// Click on 'fx' – button
printlog " Click on 'fx' – button"
Functionsbutton1.click
'/// Switch to tabpage 'Structure'
printlog " Switch to tabpage 'Structure'"
Kontext "FunctionWizardTabControl"
FunctionWizardTabControl.setpage TabFunctionWizardStructure
Kontext "FunctionWizard"
call DialogTest ( FunctionWizard,((ifunctionCount *2)+1) )
'/// Close dialog with 'Cancel'
printlog " Close dialog with 'Cancel'"
FunctionWizard.Cancel
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertFunctionList
'///<u><b>Insert - Function List</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Check if 'function list' is already opened
printlog " Check if 'function list' is already opened"
Kontext "FunctionsCalc"
if FunctionsCalc.Exists(2) then
printlog "Functions List was already open"
else
'/// Open 'function list' by 'Insert – Function List'
printlog " Open 'function list' by 'Insert – Function List'"
InsertFunctionList
end if
'/// Check that there are 13 categories in the listbox
printlog " Check that there are 13 categories in the listbox"
if Category.GetItemCount <> 13 then
warnlog "The count of categories is " & Category.GetItemCount & " instead of 13"
end if
'/// Click on second function
printlog " Click on second function"
FunctionList.Select(2)
call DialogTest ( FunctionsCalc )
'/// Click on 'Insert' – button to insert the function into the cell
printlog " Click on 'Insert' – button to insert the function into the cell"
FunctionInsert.click
'/// Press 'ESC' to leave insert mode
printlog " Press 'ESC' to leave insert mode"
kontext "DocumentCalc"
DocumentCalc.TypeKeys "<ESCAPE>"
'/// Close function list by 'Insert – Function list'
printlog " Close function list by 'Insert – Function list'"
InsertFunctionList
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertNamesDefine
'///<u><b>Insert - Names – Define</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Define Names' -dialog by 'Insert – Names – Define'
printlog " Open 'Define Names' -dialog by 'Insert – Names – Define'"
InsertNamesDefine
Kontext "NamenFestlegen"
'/// Click on 'More' – button
printlog " Click on 'More' – button"
Zusaetze.Click
DialogTest ( NamenFestlegen )
'/// Check that the 'Add' – button is disabled
printlog " Check that the 'Add' – button is disabled"
if Hinzufuegen.IsEnabled then
warnlog "'Add' is enabled but should be disabled"
end if
'/// Check that the 'Delete' – button is disabled
printlog " Check that the 'Delete' – button is disabled"
if Loeschen.IsEnabled then
warnlog "'Delete' is enabled but should be disabled"
end if
'/// Check that the 'Shrink' – button is disabled
printlog " Check that the 'Shrink' – button is disabled"
if ZugeordnetZuButton.IsEnabled then
warnlog "'Shrink' is enabled but should be disabled"
end if
'/// Check that the 'Print Range' option is disabled
printlog " Check that the 'Print Range' option is disabled"
if Druckbereich.IsEnabled then
warnlog "'Printrange' is enabled but should be disabled"
end if
'/// Check that the 'Filter' option is disabled
printlog " Check that the 'Filter' option is disabled"
if Filter.IsEnabled then
warnlog "'Filter' is enabled but should be disabled"
end if
'/// Check that the 'Repeat Column' option is disabled
printlog " Check that the 'Repeat Column' option is disabled"
if Wiederholungsspalte.IsEnabled then
warnlog "'Repeat Column' is enabled but should be disabled"
end if
'/// Check that the 'Repeat Row' option is disabled
printlog " Check that the 'Repeat Row' option is disabled"
if Wiederholungszeile.IsEnabled then
warnlog "'Repeat Row' is enabled but should be disabled"
end if
'/// Enter the name 'Test'
printlog " Enter the name 'Test'"
BereichsName.SetText "Test"
'/// Press the 'Shrink' – button
printlog " Press the 'Shrink' – button"
ZugeordnetZuButton.click
'/// Click on 'Maximize' – button
printlog " Click on 'Maximize' – button"
ZugeordnetZuButton.click
'/// Check the 'Print Range' option
printlog " Check the 'Print Range' option"
Druckbereich.check
'/// Check the 'Filter' option
printlog " Check the 'Filter' option"
Filter.check
'/// Check the 'Repeat Column' option
printlog " Check the 'Repeat Column' option"
Wiederholungsspalte.check
'/// Check the 'Repeat Row' option
printlog " Check the 'Repeat Row' option"
Wiederholungszeile.check
'/// Press the 'Add' – button
printlog " Press the 'Add' – button"
Hinzufuegen.click
'/// Choose the 'Test' name
printlog " Choose the 'Test' name"
BereichsName.Select "Test"
'/// Press the 'Delete' – button
printlog " Press the 'Delete' – button"
Loeschen.click
'/// On appearing messagebox click 'Yes'
printlog " On appearing messagebox click 'Yes'"
kontext "Active"
if Active.exists( 2 ) then
Active.Yes
end if
'/// Close dialog with 'Cancel'
printlog " Close dialog with 'Cancel'"
Kontext "NamenFestlegen"
NamenFestlegen.Cancel
'/// Close the document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertNamesInsert
'///<u><b>Insert - Names – Define</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Select cell A1
printlog " Select cell A1"
call fCalcSelectRange ("A1")
'/// Open 'Define Names' -dialog by 'Insert – Names – Define'
printlog " Open 'Define Names' -dialog by 'Insert – Names – Define'"
InsertNamesDefine
Kontext "NamenFestlegen"
'/// Enter the name 'Test'
printlog " Enter the name 'Test'"
BereichsName.SetText "Test"
'/// Press the 'Add' – button
printlog " Press the 'Add' – button"
Hinzufuegen.click
'/// Close dialog with 'OK'
printlog " Close dialog with 'OK'"
NamenFestlegen.OK
'/// Select cell D4
printlog " Select cell D4"
call fCalcSelectRange ("D4")
'/// Open 'Insert Names' – dialog by 'Insert – Names – Insert'
printlog " Open 'Insert Names' – dialog by 'Insert – Names – Insert'"
InsertNamesInsert
Kontext "NamenEinfuegen"
Call DialogTest ( NamenEinfuegen )
'/// Select name 'Test'
printlog " Select name 'Test'"
NamenAuswahl.Select "Test"
'/// Press 'OK' – button (the dialog will be closed)
printlog " Press 'OK' – button (the dialog will be closed)"
NamenEinfuegen.OK
'/// Press 'Enter' to leave the editmode of the cell
printlog " Press 'Enter' to leave the editmode of the cell"
kontext "DocumentCalc"
DocumentCalc.TypeKeys "<ESCAPE>"
'/// Open 'Define Names' -dialog by 'Insert – Names – Insert'
printlog " Open 'Define Names' -dialog by 'Insert – Names – Insert'"
InsertNamesInsert
Kontext "NamenEinfuegen"
'/// Press 'Insert All' – button (the dialog will be closed)
printlog " Press 'Insert All' – button (the dialog will be closed)"
Liste.click
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertNamesCreate
'///<u><b>Insert - Names – Create</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Create Names' – dialog by 'Insert – Names – Create'
printlog " Open 'Create Names' – dialog by 'Insert – Names – Create'"
InsertNameCreate
Kontext "NamenErzeugen"
DialogTest ( NamenErzeugen )
'/// Check option 'Top row'
printlog " Check option 'Top row'"
Kopfzeile.check
'/// Check option 'Left column'
printlog " Check option 'Left column'"
LinkerSpalte.check
'/// Check option 'Bottom row'
printlog " Check option 'Bottom row'"
Fusszeile.check
'/// Check option 'Right column'
printlog " Check option 'Right column'"
RechterSpalte.check
'/// Press 'OK' button
printlog " Press 'OK' button"
NamenErzeugen.OK
'/// Close warningbox with 'OK'
printlog " Close warningbox with 'OK'"
Kontext
if active.exists (1) then
active.ok
end if
'/// Enter 'Create Names Test' in cell A1
printlog " Enter 'Create Names Test' in cell A1"
call fCalcSelectRange ("A1")
DocumentCalc.TypeKeys "Create Names Test<RETURN>"
'/// Select cells A1:A4
printlog " Select cells A1:A4"
call fCalcSelectRange ("A1:A4")
'/// Open 'Create Names' – dialog by 'Insert – Names – Create'
printlog " Open 'Create Names' – dialog by 'Insert – Names – Create'"
InsertNameCreate
Kontext "NamenErzeugen"
'/// Check that option 'Top row' is selected
printlog " Check that option 'Top row' is selected"
if not Kopfzeile.IsChecked then
warnlog "The header was not autodetected"
end if
'/// Press 'OK' button
printlog " Press 'OK' button"
NamenErzeugen.OK
'/// Select cells A1:A3
printlog " Select cells A1:A3"
call fCalcSelectRange ("A1:A3")
'/// Open 'Create Names' – dialog by 'Insert – Names – Create'
printlog " Open 'Create Names' – dialog by 'Insert – Names – Create'"
InsertNameCreate
Kontext "NamenErzeugen"
'/// Press 'OK' button
printlog " Press 'OK' button"
NamenErzeugen.OK
'/// Close replacing messagebox with 'Cancel'
printlog " Close replacing messagebox with 'Cancel'"
Kontext
if active.exists (1) then
active.cancel
end if
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertNamesLabels
'///<u><b>Insert - Names – Labels</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Define Label Range' – dialog by 'Insert – Names – Labels'
printlog " Open 'Define Label Range' – dialog by 'Insert – Names – Labels'"
InsertNamesLabels
Kontext "BeschriftungsbereichFestlegen"
DialogTest ( BeschriftungsbereichFestlegen )
'/// Press 'Shrink' button for range
printlog " Press 'Shrink' button for range"
ButtonZellbereich.Click
'/// Press 'Maximize' button on rangechooser
printlog " Press 'Maximize' button on rangechooser"
ButtonZellbereich.Click
'/// Press 'Shrink' button for data range
printlog " Press 'Shrink' button for data range"
ButtonDatenbereich.Click
'/// Press 'Maximize' button on rangechooser
printlog " Press 'Maximize' button on rangechooser"
ButtonDatenbereich.Click
'/// Switch between 'Contains ...' options
printlog " Switch between 'Contains ...' options"
Zeilenkoepfe.Check
Spaltenkoepfe.Check
'/// Press 'Add' – button
printlog " Press 'Add' – button"
Hinzufuegen.Click
'/// Select range
printlog " Select range"
Bereich.Select (2)
'/// Press 'Delete' – button
printlog " Press 'Delete' – button"
Loeschen.Click
'/// Confirm mesagebox with 'Yes'
printlog " Confirm mesagebox with 'Yes'"
Kontext
if active.exists then
active.Yes
end if
Kontext "BeschriftungsbereichFestlegen"
'/// Close 'Define Label Range' – dialog with 'Cancel'
printlog " Close 'Define Label Range' – dialog with 'Cancel'"
BeschriftungsbereichFestlegen.Cancel
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertNote
'///<u><b>Insert - Note</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Insert a note via 'Insert – Note'
printlog " Insert a note via 'Insert – Note'"
InsertNoteCalc
Kontext
'/// Enter 'This is a <Return> Testtext' into the note
printlog " Enter 'This is a <Return> Testtext' into the note"
DocumentCalc.TypeKeys "This is a <Return> Testtext"
'/// Leave note with <Escape>
printlog " Leave note with <Escape>"
DocumentCalc.TypeKeys "<Escape>"
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertPictureFromFile
'///<u><b>Insert - Picture – From File</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Insert Picture' – dialog by 'Insert – Picture – From File'
printlog " Open 'Insert Picture' – dialog by 'Insert – Picture – From File'"
InsertGraphicsFromFile
Kontext "GrafikEinfuegenDlg"
Call DialogTest (GrafikEinfuegenDlg)
'/// Enter filename 'global\input\graf_inp\'
printlog " Enter filename 'global\input\graf_inp\borabora.jpg'"
Dateiname.Settext convertpath(gTesttoolpath + "global\input\graf_inp\borabora.jpg")
'/// Verify that there are more than one filter available
printlog " Verify that there are more than one filter available"
if Dateityp.GetItemCount < 2 then
warnlog "The filterlist is empty"
end if
'/// Check 'Link' – option
printlog " Check 'Link' – option"
Link.Check
'/// Check 'Preview' - option
printlog " Check 'Preview' - option"
Preview.Check
'/// Close dialog with 'Open'
printlog " Close dialog with 'Open'"
Oeffnen.Click
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertMovieSound
'///<u><b>Insert - Movie and Sound</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Insert Movie and Sound' – dialog by 'Insert – Movie and Sound'
printlog " Open 'Insert Movie and Sound' – dialog by 'Insert – Movie and Sound'"
InsertMovieAndSound
Kontext "OeffnenDLG"
'/// Verify that there are more than one filter available
printlog " Verify that there are more than one filter available"
if Dateityp.GetItemCount < 2 then
warnlog "The filterlist is empty"
end if
'/// Close dialog with 'Cancel'
printlog " Close dialog with 'Cancel'"
OeffnenDLG.Cancel
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertObjectOLE
'///<u><b>Insert - Object – OLE Object</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Insert OLE Object' – dialog by 'Insert – Object – OLE Object'
printlog " Open 'Insert OLE Object' – dialog by 'Insert – Object – OLE Object'"
InsertObjectOLEObject
Kontext "OLEObjektEinfuegen"
'/// Choose 'Create new'
printlog " Choose 'Create new'"
NeuErstellen.Check
Call DialogTest (OLEObjektEinfuegen, 1)
'/// Check that there are more than 1 entries (amount is dependant from operating system)
printlog " Check that there are more than 1 entries (amount is dependant from operating system)"
if Objekttyp.getitemcount < 2 then
warnlog "There are no OLE-Objects in the listbox"
end if
'/// Choose 'Create from file'
printlog " Choose 'Create from file'"
AusDateierstellen.Check
Call DialogTest (OLEObjektEinfuegen, 2)
'/// Click on 'Search' – button
printlog " Click on 'Search' – button"
Durchsuchen.Click
Kontext "OeffnenDLG"
'/// Close 'Open' – dialog with 'Cancel'
printlog " Close 'Open' – dialog with 'Cancel'"
OeffnenDLG.Cancel
Kontext "OLEObjektEinfuegen"
'/// Check option 'Link to file'
printlog " Check option 'Link to file'"
Verknuepfen.check
'/// Close dialog with 'Cancel'
printlog " Close dialog with 'Cancel'"
OLEObjektEinfuegen.Cancel
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertObjectPlugin
'///<u><b>Insert - Object – Plug-in</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Insert Plug-in' – dialog by 'Insert – Object – Plug-in'
printlog " Open 'Insert Plug-in' – dialog by 'Insert – Object – Plug-in'"
InsertObjectPlugIn
Kontext "PlugInEinfuegen"
Call DialogTest (PlugInEinfuegen)
'/// Click on 'Browse' – button
printlog " Click on 'Browse' – button"
DurchSuchen.Click
Kontext "OeffnenDLG"
'/// Click on 'Default Directory' – button
printlog " Click on 'Default Directory' – button"
Standard.click
'/// Click on 'Create New Directory' – button
printlog " Click on 'Create New Directory' – button"
NeuerOrdner.Click
Kontext "NeuerOrdner"
'/// Close namedialog with 'Cancel'
printlog " Close namedialog with 'Cancel'"
NeuerOrdner.cancel
Kontext "OeffnenDLG"
'/// Close 'Open' – dialog with 'Cancel'
printlog " Close 'Open' – dialog with 'Cancel'"
OeffnenDlg.Cancel
'/// Close 'Insert Plug-in' – dialog with 'Cancel'
printlog " Close 'Insert Plug-in' – dialog with 'Cancel'"
Kontext "PluginEinfuegen"
PlugInEinfuegen.Cancel
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertObjectSound
'///<u><b>Insert - Object – Sound</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
try
'/// If enabled (depends on additional instalations on the OS) open the 'Insert Sound' – dialog by 'Insert – Object – Sound'
printlog " If enabled (depends on additional instalations on the OS) open the 'Insert Sound' – dialog by 'Insert – Object – Sound'"
InsertObjectSound
Kontext "OeffnenDlg"
'/// Click on 'Default Directory' – button
printlog " Click on 'Default Directory' – button"
Standard.click
'/// Click on 'Create New Directory' – button
printlog " Click on 'Create New Directory' – button"
NeuerOrdner.Click
Kontext "NeuerOrdner"
'/// Close namedialog with 'Cancel'
printlog " Close namedialog with 'Cancel'"
NeuerOrdner.cancel
Kontext "OeffnenDLG"
'/// Close 'Open' – dialog with 'Cancel'
printlog " Close 'Open' – dialog with 'Cancel'"
OeffnenDlg.Cancel
catch
printlog "Insert - Object - Sound is not possible on this machine"
endcatch
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertObjectVideo
'///<u><b>Insert - Object – Video</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
try
'/// If enabled (depends on additional instalations on the OS) open the 'Insert Video' – dialog by 'Insert – Object – Sound'
printlog " If enabled (depends on additional instalations on the OS) open the 'Insert Video' – dialog by 'Insert – Object – Sound'"
InsertObjectVideo
Kontext "OeffnenDlg"
'/// Click on 'Default Directory' – button
printlog " Click on 'Default Directory' – button"
Standard.click
'/// Click on 'Create New Directory' – button
printlog " Click on 'Create New Directory' – button"
NeuerOrdner.Click
Kontext "NeuerOrdner"
'/// Close namedialog with 'Cancel'
printlog " Close namedialog with 'Cancel'"
NeuerOrdner.cancel
Kontext "OeffnenDLG"
'/// Close 'Open' – dialog with 'Cancel'
printlog " Close 'Open' – dialog with 'Cancel'"
OeffnenDlg.Cancel
catch
printlog "Insert - Object - Video is not possible on this machine"
endcatch
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertObjectFormular
'///<u><b>Insert - Object – Formular</b></u>
'/// Open new Spraedsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Insert Formular by 'Insert – Object – Formular'
printlog " Insert Formular by 'Insert – Object – Formular'"
InsertObjectFormulaCalc
Kontext "SelectionMath"
if SelectionMath.Exists(2) then
call DialogTest (SelectionMath)
else
try
Kontext "DocumentCalc"
ViewSelectionCalc
Kontext "SelectionMath"
call DialogTest (SelectionMath)
catch
qaerrorlog "#i93427# Math Selection Dialog is not available"
endcatch
end if
'/// Close Formular with 'Esc'
printlog " Close Formular with 'Esc'"
Kontext "DocumentCalc"
DocumentCalc.TypeKeys "<Escape>"
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertChart
'///<u><b>Insert - Chart</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Chart Wizard' by 'Insert – Chart'
printlog " Open 'Chart Wizard' by 'Insert – Chart'"
InsertChart
Kontext "ChartWizard"
if ChartWizard.Exists(1) then
Call Dialogtest(ChartWizard)
'/// Close 'Chart Wizard' with 'Cancel'
ChartWizard.Cancel
else
warnlog "Chart wizard is not available"
end if
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertFloatingFrame
'///<u><b>Insert - Floating Frame</b></u>
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Floating Frame Properties' – dialog by 'Insert – Floating Frame'
printlog " Open 'Floating Frame Properties' – dialog by 'Insert – Floating Frame'"
InsertFloatingFrame
Kontext "TabEigenschaften"
Dialogtest (TabEigenschaften)
'/// Click on 'Browse' – button for 'Contents'
printlog " Click on 'Browse' – button for 'Contents'"
Oeffnen.Click
Kontext "OeffnenDlg"
'/// Click on 'Default Directory' – button
printlog " Click on 'Default Directory' – button"
Standard.click
'/// Click on 'Create New Directory' – button
printlog " Click on 'Create New Directory' – button"
NeuerOrdner.Click
Kontext "NeuerOrdner"
'/// Close namedialog with 'Cancel'
printlog " Close namedialog with 'Cancel'"
NeuerOrdner.cancel
Kontext "OeffnenDLG"
'/// Close 'Select File for Floating Frame' – dialog with 'Cancel'
printlog " Close 'Select File for Floating Frame' – dialog with 'Cancel'"
OeffnenDlg.Cancel
Kontext "TabEigenschaften"
'/// Check 'Scrollbar' on
printlog " Check 'Scrollbar' on"
An.Check
'/// Check 'Scrollbar' off
printlog " Check 'Scrollbar' off"
Aus.Check
'/// Check 'Scrollbar' automatic
printlog " Check 'Scrollbar' automatic"
Automatisch.Check
'/// Check 'Border Off'
printlog " Check 'Border Off'"
UmrandungAus.Check
'/// Check 'Border On'
printlog " Check 'Border On'"
UmrandungAn.Check
'/// Uncheck 'Default'
printlog " Uncheck 'Default'"
BreiteStandard.UnCheck
'/// Increase 'Width' by 1
printlog " Increase 'Width' by 1"
Breite.More
'/// Increase 'Height' by 1
printlog " Increase 'Height' by 1"
Hoehe.More
'/// Check 'Default'
printlog " Check 'Default'"
HoeheStandard.Check
'/// Close 'Floating Frame Properties' – dialog with 'Cancel'
printlog " Close 'Floating Frame Properties' – dialog with 'Cancel'"
TabEigenschaften.Cancel
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
|