automation/source/miniapp/test.bas

   1 'encoding UTF-8  Do not remove or change this line!
   2 sub main
   3 '  cMassentest
   4 '  DisplayHid
   5   cTestdialog
   6   cSysDlgTest
   7   cFileOpenTest
   8   SidWintree
   9
  10   FileExit
  11 end sub
  12
  13 testcase cMassentest
  14
  15 DisplayHid
  16 resetapplication
  17 FileDialog
  18 kontext "GrosserTestDlg"
  19 dim c,t,lang,i
  20 c = 0
  21 lang = "0123456789abcdef"
  22 lang = lang + lang
  23 lang = lang + lang
  24 lang = lang + lang
  25 lang = lang + lang
  26 lang = lang + lang
  27 lang = lang + lang
  28
  29 lang = lang + lang
  30 lang = lang + lang
  31 nodebug
  32 while 1
  33   c = c + 1
  34   t = str(c)
  35   MultiLineEdit.SetText t
  36   CheckBox.check lang
  37   CheckBox.uncheck lang
  38   for i = 1 to 200 : next
  39   beep
  40 wend
  41
  42 endcase
  43
  44
  45 testcase cFileOpenTest
  46
  47   FileOpenTest
  48   setclipboard wintree
  49   kontext
  50   active.cancel
  51
  52 endcase
  53
  54
  55 testcase cSysDlgTest
  56
  57   SysDialogs
  58   setclipboard wintree
  59   kontext
  60   active.yes
  61   setclipboard wintree
  62   active.ok
  63   active.Cancel
  64
  65   SysDialogs
  66   active.Cancel
  67   active.ok
  68
  69 endcase
  70
  71 testcase cTestdialog
  72
  73   FileDialog
  74
  75   kontext "GrosserTestDlg"
  76   CheckBox.uncheck
  77   TriStateBox.tristate
  78   'OKButton
  79 '  TimeField.settext("fhsdjk")
  80   MultiLineEdit.SetText "Das war der Text: '"+MultiLineEdit.GetText+"'"
  81   RadioButton1.check
  82   RadioButton2.check
  83 '  MultiListBox.select 2
  84   ComboBox.select("Dritter")
  85   DateBox.select("1.1.91")
  86
  87   GrosserTestDlg.ok
  88
  89 endcase
  90
  91
  92 sub LoadIncludeFiles
  93
  94   start "miniapp.exe", "-enableautomation"
  95
  96   use "test.win"
  97   use "test.sid"
  98
  99   testexit
 100
 101 end sub
 102
 103 sub testenter
 104 end sub
 105
 106 sub testexit
 107
 108   dim xx
 109   xx = resetapplication
 110   if xx > "" then warnlog xx
 111
 112 end sub
 113
 114
 115
 116
 117
 118
 119
 120
 121
 122
 123
 124
 125
 126