include start
cchar ch1 0x100 [0x3401]
cchar ch2 0x200 "A"
call OK ins_wch $ch1
call OK ins_wch $ch2
call OK refresh
call2 0 0 getyx STDSCR
compare ins_wch1.chk

call OK mvaddstr 10 75 "AAAA"
call OK refresh

# test shifting of above added characters, test do not wrap property
call OK move 10 10
# these two inserts should result in one A at the end of the line
call OK ins_wch $ch1
call OK ins_wch $ch1
call OK refresh
call2 10 10 getyx STDSCR
# This should push the last A off
call OK ins_wch $ch1
call OK refresh
call2 10 10 getyx STDSCR
compare ins_wch2.chk

# test special character processing
call OK move 10 75
cchar NL 0x000 "\n"
call OK ins_wch $NL
call OK refresh

call OK add_wch $ch2
call OK refresh
call2 10 76 getyx STDSCR
cchar CR 0x000 "\r"
call OK ins_wch $CR
call OK refresh
call2 10 0 getyx STDSCR
compare ins_wch3.chk
