Design: 02.01.01/P07

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 7: Structure creation by changing structure references

CHARACTERISTICS: nnnn

OPERATOR SCRIPT: passive test

DESIGN:

TEST: #SR 6
      "Changing structure references should create one new
       structure with the new identifier in the CSS when the new
       identifier refers to a non-existent structure and references
       to the original structure exist."

<open structure> strid
<execute structure> strid1
<change structure references> strid1 nwstid
Use <inquire structure identifiers> to determine:
  nstid = number of structure identifiers

if nstid <> 3 then
   fail
   goto test_empty
endif

do i = 1,nstid
   Use <inquire structure identifiers> to determine:
       nstr = ith structure identifier
   if nstr = nwstid then
      pass
      goto test_empty
   endif
loop
fail

test_empty:

TEST: #SR 6
      "Changing structure references should create an empty
       structure with the new identifier in the CSS when the new
       identifier refers to a non-existent structure and references
       to the original structure exist."

Use <inquire structure status> on nwstid to determine
     strsti = structure status identifier
pass/fail depending on (strsti = empty)

END PROGRAM 7