#
# Validate the timeout works.
#
include window
delay 2000
input "a"
call 97 wgetch $win1
call OK wtimeout $win1 100
input "b"
# since delay is in effect and we set timeout the following getch should
# return ERR not the character b.
call -1 wgetch $win1
# drain input ...
call OK DRAIN $win1
call OK wtimeout $win1 -1
call OK keypad $win1 1
delay 0
input "\eOA"
call $KEY_UP wgetch $win1
call OK wrefresh $win1
#compare timeout.chk