Design: 02.01.01/P03

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 3: Structure creation by executing a non-existent structure

CHARACTERISTICS: nnnn

OPERATOR SCRIPT: passive test

DESIGN:

TEST: #SR 3
      "Executing a non-existent structure should create a new
       structure with the specified identifier in the CSS."

<open structure> rstrid
<execute structure> strid
Use <inquire structure identifiers> to determine:
  nstid = number of structure identifiers

if nstid <> 2 then
   fail
   goto end_test_both
endif

Use <inquire structure identifiers> to determine:
  nstr1 = structure id#1
  nstr2 = structure id#2

pass/fail depending on (nstr1 = strid or nstr2 = strid)

end_test_both:

TEST: #SR 3
      "Executing a non-existent structure should create an empty
       structure with the specified identifier in the CSS."

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

END PROGRAM 3