Design: 04.02.02.01/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: Element creation and inquiring

CHARACTERISTICS: nnnn

OPERATOR SCRIPT: passive test.

DESIGN:

Use <inquire current element content> throughout to determine:
    celval = current element value as set by program
    recval = auxiliary element values implied by the standard's
             representation conventions.

Use <inquire current element type and size> throughout to determine:
    celsiz = current element size

*** *** *** *** ***   Marker type   *** *** *** *** ***
mtval = 17
<set marker type>:
    marker type = mtval

TEST: #SR 1 4
      "<Inquire current element type and size> should return
       marker type as the type of the created element and the
       appropriate element size."
<inquire current element type and size> for current element type
pass/fail depending on
  (current_element_type = marker type and
   celsiz               = values specified by the standard)

TEST: #SR 2 4
      "<Inquire current element content> should return the standard
       representation for the marker type value."
<inquire current element content> for current element representation
pass/fail depending on
  (celval = mtval and
   recval = auxiliary values specified by the standard)

*** *** *** *** ***   Marker size scale factor   *** *** *** *** ***
<set marker size scale factor>:
    marker size_scale_factor = 0.25

TEST: #SR 1 13
      "<Inquire current element type and size> should return marker
       size scale factor as the type of the created element and the
       appropriate element size."
<inquire current element type and size> for current element type
pass/fail depending on
  (current_element_type = marker size_scale_factor
   celsiz               = values specified by the standard)

TEST: #SR 2 13
      "<Inquire current element content> should return the standard
       representation for the marker size scale factor value."
<inquire current element content> for current element representation
pass/fail depending on
  (celval = 0.25 and
   recval = auxiliary values specified by the standard)

*** *** *** *** ***   Polymarker colour index   *** *** *** *** ***
<set polymarker colour index>:
    polymarker_colour_index = 2

TEST: #SR 1 20
      "<Inquire current element type and size> should return
       polymarker colour index as the type of the created element
       and the appropriate element size."
<inquire current element type and size> for current element type
pass/fail depending on
  (current_element_type = polymarker_colour_index
   celsiz               = values specified by the standard)

TEST: #SR 2 20
      "<Inquire current element content> should return the standard
       representation for the polymarker colour index value."
<inquire current element content> for current element representation
pass/fail depending on
  (celval = 2 and
   recval = auxiliary values specified by the standard)

END PROGRAM 1