include window
cchar HCHAR 0 "H"
call OK wadd_wch $win1 $HCHAR
call2 0 1 getyx $win1
call OK wadd_wch $win1 $HCHAR
call OK wadd_wch $win1 $HCHAR
call OK wrefresh $win1
compare wadd_wch1.chk

# tests for multi-column characters
call OK wmove $win1 1 0
cchar ACHAR 0x100 0x3401
call OK wadd_wch $win1 $ACHAR
call OK wrefresh $win1
call2 1 2 getyx $win1

cchar CHAR 0 0x3401
# test for wrapping
call OK wmove $win1 1 5
call OK wadd_wch $win1 $CHAR
call OK wadd_wch $win1 $CHAR
call OK wrefresh $win1
call2 2 4 getyx $win1
compare wadd_wch2.chk

# test for special character processing
cchar BACK 0 0x8
call OK wadd_wch $win1 $BACK
call OK wrefresh $win1
call2 2 3 getyx $win1