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