Design: 09.02.02/P04

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 4: Error indicator = 59

CHARACTERISTICS: ynnn

OPERATOR SCRIPT: passive test

DESIGN:

Check the category of all accessible workstations. For all workstations
with category of neither OUTPUT, OUTIN nor MO, test if functions 220-222,
225-227, 229,230,232,234,236,238,259,261,262,265,266,268,270,273,274,
276,277,279,282-286 generate error 59: ignoring function, the specified
workstation does not have output capability. If there is no workstation
with the category of neither OUTPUT, OUTIN nor MO, skip the test.

get number of workstations with no output capability: nwkno
if (nwkno = 0) then
     call INMSG('There is no workstation with no output capabilities,
                 this test is skipped.')
     return
else
     for ix = 1, nwkno
         get  workstation identifier: owkid(ix)
              connection identifier:  oconid(ix)
              workstation type:       owtype(ix)
     next ix
endif

for ix = 1, nwkno

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

<inquire posted structures> with owkid(ix)
TEST: #SR 5
      "If <inquire posted structures> is called and the specified workstation
       does not have output capabilities, it should return error indicator =
       059."
pass/fail depending on (returned error indicator = 59)

<inquire display update state> with owkid(ix)
TEST: #SR 5
      "If <inquire display update state> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire list of polyline indices> with owkid(ix)
TEST: #SR 5
      "If <inquire list of polyline indices> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire polymarker representation> with owkid(ix)
TEST: #SR 5
      "If <inquire polymarker representation> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire list of text indices> with owkid(ix)
TEST: #SR 5
      "If <inquire list of text indices> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire text representation> with owkid(ix)
TEST: #SR 5
      "If <inquire text representation> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire interior representation> with owkid(ix)
TEST: #SR 5
      "If <inquire interior representation> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire list of edge indices> with owkid(ix)
TEST: #SR 5
      "If <inquire list of edge indices> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inqurie list of pattern representation> with owkid(ix)
TEST: #SR 5
      "If <inquire list of pattern indices> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire colour model> with owkid(ix)
TEST: #SR 5
      "If <inquire colour model> is called and the specified workstation
       does not have output capabilities, it should return error indicator =
       059."
pass/fail depending on (returned error indicator = 59)

<inquire colour representation> with owkid(ix)
TEST: #SR 5
      "If <inquire colour representation> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire invisibility filter> with owkid(id)
TEST: #SR 5
      "If <inquire invisibility filter> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire workstation classification> with owkid(ix)
TEST: #SR 5
      "If <inquire workstation classification> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire default display update state> with owkid(ix)
TEST: #SR 5
      "If <inquire default display update state> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire polyline facilities> with owkid(ix)
TEST: #SR 5
      "If <inquire polyline facilities> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire predefined polymarker representation> with owkid(ix)
TEST: #SR 5
      "If <inquire predefined polymarker representation> is called and
       the specified workstation does not have output capabilities, it
       should return error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inqurie text facilities> with owkid(ix)
TEST: #SR 5
      "If <inquire text facilities> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire annotation facilities> with owkid(ix)
TEST: #SR 5
      "If <inquire annotation facilities> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire interior facilities> with owkid(ix)
TEST: #SR 5
      "If <inquire interior facilities> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire predefined edge representation> with owkid(ix)
TEST: #SR 5
      "If <inquire predefined edge representation> is called and the
       specified workstation does not have output capabilities, it should
       return error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire colour model facilities> with owkid(ix)
TEST: #SR 5
      "If <inquire colour model facilities> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire colour facilities> with owkid(ix)
TEST: #SR 5
      "If <inquire colour facilities> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire list of available generalized drawing primitives 3> with owkid(ix)
TEST: #SR 5
      "If <inquire list of available generalized drawing primitives 3> is
       called and the specified workstation does not have output
       capabilities, it should return error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire generalized drawing primitives> with owkid(ix)
TEST: #SR 5
      "If <inquire generalized drawing primitive> is called and the specified
       workstation does not have output capabilities, it should return
       error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire list of available generalized structure elements> with owkid(ix)
TEST: #SR 5
      "If <inquire list of available generalized structure elements> is
       called and the specified workstation does not have output capabilities,
       it should return error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire number of display priorities supported> with owkid(ix)
TEST: #SR 5
      "If <inquire number of display priorities supported> is called and
       the specified workstation does not have output capabilities, it
       should return error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire workstation state table lengths> with owkid(ix)
TEST: #SR 5
      "If <inquire workstation state table lengths> is called and the
       specified workstation does not have output capabilities, it should
       return error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<inquire dynamics of structures> with owkid(ix)
TEST: #SR 5
      "If <inquire dynamics of structures> is called and the
       specified workstation does not have output capabilities, it should
       return error indicator = 059."
pass/fail depending on (returned error indicator = 59)

<close workstation> owkod(ix)

next ix

END PROGRAM 4