1#
2# Validate the timeout works.
3#
4include start
5delay 2000
6input "a"
7call 97 getch
8call OK timeout 100
9input "b"
10# since delay is in effect and we set timeout the following getch should
11# return ERR not the character b.
12call -1 getch
13# drain input....
14call OK drain
15call OK timeout -1
16call OK keypad STDSCR 1
17delay 0
18input "\eOA"
19call $KEY_UP getch
20call OK refresh
21compare timeout.chk
22