Design: 04.02.05.04/P01

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 1: Simple setting and inquiring

CHARACTERISTICS: ynnn

OPERATOR SCRIPT: passive test.

DESIGN:

if (PATTERN is not in list of available interior styles) then
   message about Pattern not supported on workstation
   goto end_test
endif

<set pattern representation>:
  index   = 1
  pattern_color_index_array =  11 21 31
                               41 41 51
<inquire pattern representation> for index #1, as set

TEST: #SR 2 5
      "Pattern attributes should be returned as set."
pass/fail depending on
   (pattern_color_index_array = 11 21 31
                                41 41 51)

end_test:

END PROGRAM 1