1include start
2# no attributes, no color
3call3 OK 0 0 attr_get
4# set reverse and bold
5call OK attr_set ($BOLD | $REVERSE) 2
6# returned attributes includes color information
7call3 OK ($ACS_IS_WACS | $BOLD | $REVERSE) 2 attr_get
8# turn off reverse
9call OK attr_off $REVERSE
10call3 OK ($ACS_IS_WACS | $BOLD) 2 attr_get
11# turn on standout
12call OK attr_on $STANDOUT
13call3 OK ($ACS_IS_WACS | $BOLD | $STANDOUT) 2 attr_get
14# turn on blink
15call OK attron $BLINK
16call3 OK ($ACS_IS_WACS | $BOLD | $STANDOUT | $BLINK) 2 attr_get
17# turn off bold
18call OK attroff $BOLD
19call3 OK ($ACS_IS_WACS | $STANDOUT | $BLINK) 2 attr_get
20# print out something to check our attributes are there, standout and blink
21call OK printw "%s" "hello"
22call OK refresh
23compare attributes.chk
24