include start
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 border_set $ls $rs $ts $bs $tl $tr $bl $br
call OK refresh
compare border_set1.chk

# test in case of default values
call OK border_set NULL NULL NULL NULL NULL NULL NULL NULL
call OK refresh
compare border_set2.chk