#
# This test attempts to emulate some of the behaviours of mutt, it is neither
# an exact nor complete emulation of what mutt does but it does test the
# interaction of various call types.
#
include start_color
include fill_screen
comparend mutt_test1.chk
comparend fill.chk
compare mutt_test2.chk
call OK attron $BOLD
call OK mvaddstr 0 0 "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
call OK mvaddstr 12 0 "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
call OK mvaddstr 22 0 "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
call OK refresh
call OK attroff $BOLD
compare mutt_test3.chk
# check add on bottom row, this should be 123456789 in normal rendition
call OK mvaddchstr 23 0 `\0041\0042\0043\0044\0045\0046\0047\0048\0049`
input "i"
call 105 getch
call OK refresh
compare mutt_test4.chk
call OK move 12 0
input "j"
call 106 getch
call OK mvaddstr 12 0 "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
call OK attron $BOLD
call OK mvaddstr 13 0 "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
call OK attroff $BOLD
input "j"
call 106 getch
call OK mvaddstr 13 0 "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
call OK attron $BOLD
call OK mvaddstr 14 0 "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
call OK attroff $BOLD
input "j"
call 106 getch
call OK mvaddstr 14 0 "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
call OK attron $BOLD
call OK mvaddstr 15 0 "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
call OK attroff $BOLD
call OK refresh
compare mutt_test5.chk
call OK move 23 0
call OK mvaddchstr 14 10 `\001R\001R\001R\001R\001R\001R\001R\001R\001R\001R\001R`
call OK move 23 0
input "j"
call 106 getch
call OK refresh
call OK move 14 14
cchar HCHAR 0 "H"
call OK add_wch $HCHAR
call OK add_wch $HCHAR
call OK add_wch $HCHAR
input "j"
call 106 getch
call OK refresh
compare mutt_test6.chk
call OK cbreak
call OK noecho
delay 2000
input "a"
call 97 getch
call OK timeout -1
call OK keypad STDSCR 1
delay 0
input "\eOA"
call $KEY_UP getch
call OK refresh
call OK move 12 0
input "j"
call 106 getch
call OK mvaddstr 12 0 "WWWWWWWWEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
call OK attron $BOLD
call OK mvaddstr 13 0 "WWWWWWWWEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
call OK attroff $BOLD
input "j"
call 106 getch
call OK mvaddstr 13 0 "WWWWWWWWEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
call OK attron $BOLD
call OK mvaddstr 14 0 "WWWWWWWWEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
call OK attroff $BOLD
input "j"
call 106 getch
call OK mvaddstr 14 0 "WWWWWWWWEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
call OK attron $BOLD
call OK mvaddstr 15 0 "WWWWWWWWEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
call OK attroff $BOLD
call OK refresh
compare mutt_test8.chk
call OK move 23 0
call OK mvaddchstr 14 10 `\001R\001R\001R\001R\001R\001R\001R\001R\001R\001R\001R`
call OK move 23 0
call OK move 8 8
call OK move 8 20
call OK move 8 8
call OK move 23 0
input "j"
call 106 getch
call OK refresh
call OK move 14 14
call OK add_wch $HCHAR
call OK add_wch $HCHAR
call OK add_wch $HCHAR
input "j"
call 106 getch
call OK refresh
compare mutt_test9.chk