diff options
Diffstat (limited to 'automation/source/miniapp/test.bas')
| -rw-r--r-- | automation/source/miniapp/test.bas | 126 |
1 files changed, 0 insertions, 126 deletions
diff --git a/automation/source/miniapp/test.bas b/automation/source/miniapp/test.bas deleted file mode 100644 index 6d00e892f..000000000 --- a/automation/source/miniapp/test.bas +++ /dev/null @@ -1,126 +0,0 @@ -'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 - - - - - - - - - - - - - - |