blob: f454807cf2a870e4c767713f0c789605fdc07878 (
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
127
128
129
130
131
132
133
134
135
|
sub main
wintree
' cMassentest
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
'lang = lang + lang
'lang = lang + lang
'lang = lang + lang
'print len(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
wintree
kontext
active.cancel
endcase
testcase cSysDlgTest
SysDialogs
wintree
kontext
active.yes
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 "d:\prj\actual\basic\source\testtool\server\debug\server.exe"
start "d:\office40.vcl\miniapp.exe"
use "test.win"
use "test.sid"
testexit
end sub
sub testenter
end sub
sub testexit
' if GrosserTestDlg.exists (1) then
' GrosserTestDlg.ok
' endif
dim xx
xx = GetNextError
if xx > "" then print xx
xx = resetapplication
if xx > "" then warnlog xx
end sub
|