Home | History | Annotate | Line # | Download | only in tests
      1 include window
      2 input "test\n"
      3 call2 OK "test" wgetstr $win1
      4 # try a couple of backspaces, this should erase characters, we have
      5 # embedded a cursor left sequence too but this should not be interpreted
      6 input "abc\010\010de\eODf\n"
      7 call2 OK "ade\eODf" wgetstr $win1
      8 # turn on keypad so the embedded cursor key will affect the result
      9 call OK keypad $win1 $TRUE
     10 input "abc\010\010de\eODf\n"
     11 call2 OK "adf" wgetstr $win1
     12