include start
# test using the input queue
wchar ACHAR "A"
call OK unget_wch $ACHAR
noinput
call2 $KEY_CODE_YES $ACHAR get_wch

wchar res ["a"]
input "a\n"
call2 OK $res get_wch 

# test keypad translations
wchar esc "\e"
input "\eOD"
call2 OK $esc get_wch

# character at cursor position is cleared
call OK keypad STDSCR $TRUE
wchar key $KEY_LEFT
input "\eOD"
call2 $KEY_CODE_YES $key get_wch
call OK refresh