Design: 04.02.03.02/P09

This is an abstract, language-independent design. Grim details may be found in the corresponding source code. You may return to the documentation for the module containing this program design, or to the entire hierarchical table of topics covered by the PVT.

PROGRAM 9: Text color index support

CHARACTERISTICS: ynnn

OPERATOR SCRIPT: passive test.

DESIGN:

loop thru color table to determine:
  mci   = maximum defined color index
undci = mci + 1 = undefined color index

<set text representation>, index #6, text color index = mci

TEST: #SR 15 65
      "<Inquire text representation> should report a defined
       text color index realized as itself."
<inquire text representation>, index #6 to determine
   rtxci = realized text color index
if rtxci = mci then
   pass
else
   fail
   message about rtxci
endif

TEST: #SR 63
      "Any non-negative color index should be accepted as valid."
<set text representation>, index #6, text color index = undci
if error signalled then
   fail
   message about undci
else
   pass
endif

TEST: #SR 15 66
      "<Inquire text representation> should report an undefined
       text color index realized as 1."
<inquire text representation>, index #6 to determine
   rtxci = realized text color index
if rtxci = 1 then
   pass
else
   fail
   message about rtxci
endif

END PROGRAM 9