blob: 6d00e892fcb3824cf2855c4949251911b6f96d71 (
plain)
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
|
'encoding UTF-8 Do not remove or change this line!
sub main
' cMassentest
' DisplayHid
cTestdialog
cSysDlgTest
cFileOpenTest
SidWintree
FileExit
end sub
testcase cMassentest
DisplayHid
resetapplication
FileDialog
kontext "GrosserTestDlg"
dim c,t,lang,i
c = 0
lang = "0123456789abcdef"
lang = lang + lang
lang = lang + lang
lang = lang + lang
lang = lang + lang
lang = lang + lang
lang = lang + lang
lang = lang + lang
lang = lang + lang
nodebug
while 1
c = c + 1
t = str(c)
MultiLineEdit.SetText t
CheckBox.check lang
CheckBox.uncheck lang
for i = 1 to 200 : next
beep
wend
endcase
testcase cFileOpenTest
FileOpenTest
setclipboard wintree
kontext
active.cancel
endcase
testcase cSysDlgTest
SysDialogs
setclipboard wintree
kontext
active.yes
setclipboard wintree
active.ok
active.Cancel
SysDialogs
active.Cancel
active.ok
endcase
testcase cTestdialog
FileDialog
kontext "GrosserTestDlg"
CheckBox.uncheck
TriStateBox.tristate
'OKButton
' TimeField.settext("fhsdjk")
MultiLineEdit.SetText "Das war der Text: '"+MultiLineEdit.GetText+"'"
RadioButton1.check
RadioButton2.check
' MultiListBox.select 2
ComboBox.select("Dritter")
DateBox.select("1.1.91")
GrosserTestDlg.ok
endcase
sub LoadIncludeFiles
start "miniapp.exe", "-enableautomation"
use "test.win"
use "test.sid"
testexit
end sub
sub testenter
end sub
sub testexit
dim xx
xx = resetapplication
if xx > "" then warnlog xx
end sub
|
