136 lines
1.6 KiB
QBasic
136 lines
1.6 KiB
QBasic
|
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
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|