include window
wchar WSTR ["A", 0x3401, "A"*3]
call OK wmove $win1 2 1
call OK wins_nwstr $win1 $WSTR 3
call OK wrefresh $win1
call2 2 1 getyx $win1
compare wins_nwstr1.chk

call OK mvwaddstr $win1 4 4 "BB"
call OK wrefresh $win1

# test shifting of above added characters, test do not wrap property 
wchar NSTR ["A"*2]
call OK wmove $win1 4 1
call OK wins_nwstr $win1 $NSTR -1
call OK wrefresh $win1
call2 4 1 getyx $win1
compare wins_nwstr2.chk
