Design: 04.01.03/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: Text element

CHARACTERISTICS: nnnn

OPERATOR SCRIPT: passive test.

DESIGN:

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

Use <inquire current element content> throughout to determine:
    celcon = current element content

*** *** *** *** ***   Text 3   *** *** *** *** ***

text position:
   xcord = 2.33
   ycord = -4.4
   zcord = 3.2e22
1st text direction vector:
   xfdv = -99.99
   yfdv = 0.0
   zfdv = 3.2e-13
2nd text direction vector:
   xsdv = 7.30
   ysdv = -9876.5
   zsdv = -99e-9
chastr = '*#Testing#* ..123'

<text 3> with xcord,ycord,zcord, xfdv,yfdv,zfdv, xsdv,ysdv,zsdv, chastr

TEST: #SR 1 2
      "<Inquire current element type and size> should return
       text 3 as the type of the created element and the
       appropriate element size."
<inquire current element type and size> to set celtyp, celsiz
pass/fail depending on
  (celtyp = text 3 and
   celsiz = values specified by the standard and language binding)

TEST: #SR 1 3
      "<Inquire current element content> should return the standard
       representation for text 3."
<inquire current element content> to set celcon
pass/fail depending on
  (celcon = representation as specified by the standard and language binding)

*** *** *** *** ***   Text   *** *** *** *** ***

<text> with xcord, ycord, chastr

TEST: #SR 4 5
      "<Inquire current element type and size> should return
       text as the type of the created element and the
       appropriate element size."
<inquire current element type and size> to set celtyp, celsiz
pass/fail depending on
  (celtyp = text and
   celsiz = values specified by the standard and language binding)

TEST: #SR 4 6
      "<Inquire current element content> should return the standard
       representation for text."
<inquire current element content> to set celcon
pass/fail depending on
  (celcon = representation as specified by the standard and language binding)

*** *** *** *** ***   Character sets   *** *** *** *** ***

TEST: #SR 7
      "<Inquire phigs facilities> should be able to report the
       list of available character sets."
<inquire phigs facilities> to determine
   lacs = list of available character sets
pass/fail depending on successful execution of <inquire phigs facilities>

TEST: #SR 7 8
      "The first entry in the list of available character sets
       should be zero."
pass/fail depending on (first entry of lacs = 0)

END PROGRAM 1