include window
cchar ls 0 "A"
cchar rs 0 "B"
cchar ts 0x100 "C"
cchar bs 0 "D"
cchar tl 0 "E"
cchar tr 0 "F"
cchar bl 0x100 "G"
cchar br 0 "H"
call OK wborder_set $win1 $ls $rs $ts $bs $tl $tr $bl $br
call OK wrefresh $win1
compare wborder_set1.chk

# test in case of default values
call OK wborder_set $win1 NULL NULL NULL NULL NULL NULL NULL NULL
call OK wrefresh $win1
compare wborder_set2.chk