Design: 09.02.02/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: Error indicator = 57

CHARACTERISTICS: ynnn

OPERATOR SCRIPT: passive test

DESIGN:

Check the category of all accessible workstations. For all workstations
with category of MI, test if functions 217-219,239,240,254-259 generate
error 57: ignoring function, the specified workstation is
of category MI. If there is no workstation with the category of MI,
skip the test.

get number of workstations with category MI: nwkmi
if (nwkmi = 0)
     informational message: There is no workstation with category MI,
                 this test is skipped.
     return
endif

ix = (nwkmi+1)/2
get workstation identifier: owkid(ix)
   connection identifier:  oconid(ix)
   workstation type:       owtype(ix)

<open workstation> with owkid(ix),  oconid(ix), owtype(ix)

<inquire list of view indices> with owkid(ix)
TEST: #SR 4
      "If <inquire list of view indices> is called and the specified
       workstation is of category MI, it should return error indicator =
       057."
pass/fail depending on (returned error indicator = 57)

<inquire view representation> with owkid(ix)
TEST: #SR 4
      "If <inquire view representation> is called and the specified
       workstation is of category MI, it should return error indicator =
       057."
pass/fail depending on (returned error indicator = 57)

<inquire hlhsr mode> with owkid(ix)
TEST: #SR 4
      "If <inquire hlhsr mode> is called and the specified workstation is
       of category MI, it should return error indicator = 057."
pass/fail depending on (returned error indicator = 57)

<inquire workstation transformation 3> with owkid(ix)
TEST: #SR 4
      "If <inquire workstation transformation 3> is called and the specified
       workstation is of category MI, it should return error indicator =
       057."
pass/fail depending on (returned error indicator = 57)

<inquire workstation transformation 3> with owkid(ix)
TEST: #SR 4
      "If <inquire workstation transformation> is called and the specified
       workstation is of category MI, it should return error indicator =
       057."
pass/fail depending on (returned error indicator = 57)

<inquire display space size 3> with owkid(ix)
TEST: #SR 4
      "If <inquire display space size 3> is called and the specified
       workstation is of category MI, it should return error indicator =
       057."
pass/fail depending on (returned error indicator = 57)

<inquire display space size> with owkid(ix)
TEST: #SR 4
      "If <inquire display space size> is called and the specified
       workstation is of category MI, it should return error indicator =
       057."
pass/fail depending on (returned error indicator = 57)

<inquire hlhsr facilities> with owkid(ix)
TEST: #SR 4
      "If <inquire hlhsr facilities> is called and the specified
       workstation is of category MI, it should return error indicator =
       057."
pass/fail depending on (returned error indicator = 57)

<inquire view facilities> with owkid(ix)
TEST: #SR 4
      "If <inquire view facilities> is called and the specified
       workstation is of category MI, it should return error indicator =
       057."
pass/fail depending on (returned error indicator = 57)

<inquire predefined view representation> with owkid(ix)
TEST: #SR 4
      "If <inquire predefined view representation> is called and the specified
       workstation is of category MI, it should return error indicator =
       057."
pass/fail depending on (returned error indicator = 57)

<close workstation> with owkid(ix)

next ix

END PROGRAM 3