include start
call OK move 14 14
cchar HCHAR 0 "H"
call OK echo_wchar $HCHAR
call2 14 15 getyx STDSCR
call OK echo_wchar $HCHAR
call OK echo_wchar $HCHAR
compare add_wch1.chk
call OK move 14 79
call OK echo_wchar $HCHAR
call2 15 0 getyx STDSCR
call OK echo_wchar $HCHAR
call2 15 1 getyx STDSCR
call OK echo_wchar $HCHAR
call OK echo_wchar $HCHAR
call OK echo_wchar $HCHAR
call OK echo_wchar $HCHAR
call OK echo_wchar $HCHAR
call OK echo_wchar $HCHAR
call OK echo_wchar $HCHAR
compare add_wch2.chk
call2 15 8 getyx STDSCR

call OK clear
call OK refresh
compare clear1.chk

# tests for multi-column characters
cchar ACHAR 0x100 0x3401
call OK echo_wchar $ACHAR
call2 0 2 getyx STDSCR

cchar CHAR 0 0x3401
# test for wrapping
call OK move 0 79
call OK echo_wchar $CHAR
call OK echo_wchar $CHAR
call2 1 4 getyx STDSCR

# test for special character processing
cchar BACK 0 0x8
call OK echo_wchar $BACK
#compare add_wch3.chk

# we are now at middle of multi-col char
# (unexpected output)
# call OK echo_wchar $CHAR
# call2 1 4 getyx STDSCR