include start
call OK move 14 14
cchar HCHAR 0 "H"
call OK add_wch $HCHAR
call2 14 15 getyx STDSCR
call OK add_wch $HCHAR
call OK add_wch $HCHAR
call OK refresh
compare add_wch1.chk
call OK move 14 79
call OK add_wch $HCHAR
call2 15 0 getyx STDSCR
call OK refresh
call2 15 0 getyx STDSCR
call OK add_wch $HCHAR
call2 15 1 getyx STDSCR
call OK refresh
call OK add_wch $HCHAR
call OK add_wch $HCHAR
call OK add_wch $HCHAR
call OK add_wch $HCHAR
call OK add_wch $HCHAR
call OK add_wch $HCHAR
call OK add_wch $HCHAR
call OK refresh
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 add_wch $ACHAR
call OK refresh
call2 0 2 getyx STDSCR

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

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

# we are now at middle of multi-col char
# cursor should be at 5
call OK add_wch $CHAR
call OK refresh
call2 1 5 getyx STDSCR