Design: 09.02.10/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 = 2002

CHARACTERISTICS: ynnn

OPERATOR SCRIPT: passive test

DESIGN:

<open workstation>

Use <inquire list of available workstation types> to get:
   number = number of workstation types
<inquire list of available workstation types> with requested element=number+1
TEST: #SR 3
      "If <inquire list of available workstation types> is called and
       list or set element is not available, it should return error
       indicator = 2002."
pass/fail depending on (returned error indicator = 2002)

Use <inquire phigs facilities> to get:
   number = number of available character sets
<inquire phigs facilities> with requested character set = -1
TEST: #SR 3
      "If <inquire phigs facilities> is called and list or set element
       is not available, it should return error indicator = 2002."
pass/fail depending on (returned error indicator = 2002)

Use <inquire modelling clipping facilities> to get:
   number = number of modelling clipping operators
<inquire modelling clipping facilities> with requested list element=number+10
TEST: #SR 3
      "If <inquire modelling clipping facilities> is called and list
       or set element is not available, it should return error
       indicator = 2002."
pass/fail depending on (returned error indicator = 2002)

<inquire set of open workstations> with requested set member = -1
TEST: #SR 3
      "If <inquire set of open workstations> is called and list or set
       element is not available, it should return error indicator =
       2002."
pass/fail depending on (returned error indicator = 2002)

<open structure> 100
<text>
<execute structure> 101
<close structure>
<open structure> 101
<text>
<close structure>
<inquire structure identifiers> with requested list element = 3
TEST: #SR 3
      "If <inquire structure identifiers> is called and list or set
       element is not available, it should return error indicator =
       2002."
pass/fail depending on (returned error indicator = 2002)

<open archive file> 11
<inquire archive file> with requested list element = -1
TEST: #SR 3
      "If <inquire archive files> is called and list or set element is
       not available, it should return error indicator = 2002."
pass/fail depending on (returned error indicator = 2002)

<archive all structures>
Use <inquire all conflicting structures> to get:
    number = number of structure identifiers in list
<inquire all conflicting structures> with requested list elemet = number+1
TEST: #SR 3
      "If <inquire all conflicting structures> is called and list or
       set element is not available, it should return error indicator
       = 2002."
pass/fail depending on (returned error indicator = 2002)

<close archive file> 11

Use <inquire list of view indices> to get:
    number = number of view bundle table entries
<inqurie list of view indices> with requested list element = number+1
TEST: #SR 3
      "If <inquire list of view indices> is called and list or set
       element is not available, it should return error indicator =
       2002."
pass/fail depending on (returned error indicator = 2002)

<post structure> 100
<inquire posted structures> with requested list element = 2
TEST: #SR 3
      "If <inquire posted structures> is called and list or set
       element is not available, it should return error indicator =
       2002."
pass/fail depending on (returned error indicator = 2002)

Use <inquire list of polyline indices> to get:
    number = number of polyline bundle table entries
<inqurie list of polyline indices> with requested list element = number+1
TEST: #SR 3
      "If <inquire list of polyline indices> is called and list or set
       element is not available, it should return error indicator =
       2002."
pass/fail depending on (returned error indicator = 2002)

Use <inquire list of text indices> to get:
    number = number of text bundle table entries
<inquire list of text indices> with requested list element = number +1
TEST: #SR 3
      "If <inquire list of text indices> is called and list or set
       element is not available, it should return error indicator =
       2002."
pass/fail depending on (returned error indicator = 2002)

<inquire list of edge indices> with requested list element = -2
TEST: #SR 3
      "If <inquire list of edge indices> is called and list or set
       element is not available, it should return error indicator =
       2002."
pass/fail depending on (returned error indicator = 2002)

Use <inquire list of colour indices> to get:
    number = number of colour bundle table entries
<inquire list of colour indices> with requested list element = number +1
TEST: #SR 3
      "If <inquire list of colour indices> is called and list or set
       element is not available, it should return error indicator =
       2002."
pass/fail depending on (returned error indicator = 2002)

Use <inquire hlhsr (identifier) facilities> to get:
    number = number of HLHSR identifiers
<inquire hlhsr (identifier) facilities> with sequence number = number +1
TEST: #SR 3
      "If <inquire hlhsr facilities> is called and list
       or set element is not available, it should return error
       indicator = 2002."
pass/fail depending on (returned error indicator = 2002)

<inquire hlhsr (mode) facilities> with sequence number = -1
TEST: #SR 3
      "If <inquire hlhsr facilities> is called and list
       or set element is not available, it should return error
       indicator = 2002."
pass/fail depending on (returned error indicator = 2002)

<inquire polymarker facilities> with requested list element = -1
TEST: #SR 3
      "If <inquire polymarker facilities> is called and list or set
       element is not available, it should return error indicator =
       2002."
pass/fail depending on (returned error indicator = 2002)

Use <inquire annotation facilities> to get:
    number = number of available annotation styles
<inquire annotation facilities> with requested list element = number +1
TEST: #SR 3
      "If <inquire annotation facilities> is called and list or set
       element is not available, it should return error indicator =
       2002."
pass/fail depending on (returned error indicator = 2002)

Use <inquire interior facilities> to get:
    number = number of available interior styles
    numhat = number of available hatch styles
<inquire interior facilties> with requested interior style list element = -1
TEST: #SR 3
      "If <inquire interior facilities> is called and list or set
       element is not available, it should return error indicator =
       2002."
pass/fail depending on (returned error indicator = 2002)
<inquire interior facilties> with requested hatch style list element = numhat+1
TEST: #SR 3
      "If <inquire interior facilities> is called and list or set
       element is not available, it should return error indicator =
       2002."
pass/fail depending on (returned error indicator = 2002)

Use <inquire colour model facilities> to get:
    number = number of available colour models
<inquire colour model facilities> with requested list element=number +1
TEST: #SR 3
      "If <inquire colour model facilities> is called and list or
       set element is not available, it should return error indicator
       = 2002."
pass/fail depending on (returned error indicator = 2002)

Use <inquire list of available generalized drawing primitives> to get:
    number = number of available generalized drawing primitives
if (number > 0) then
   <inquire list of available generalized drawing primitives>
       with requested list element = number +1
   TEST: #SR 3
         "If <inquire list of available generalized drawing
          primitives> is called and list or set element is not
          available, it should return error indicator = 2002."
   pass/fail depending on (returned error indicator = 2002)
endif

Use <inquire set of workstations to which posted> to get:
    number = number of workstations to which the structure is posted
<inquire set of workstations to which posted>
    with requested list element = number +1
TEST: #SR 3
      "If <inquire set of workstations to which posted> is called and
       list or set element is not available, it should return error
       indicator = 2002."
pass/fail depending on (returned error indicator = 2002)

Use <inquire paths to descendants> to get:
    number = number of paths available
<inquire paths to descendants> with requested list element = number +1
TEST: #SR 3
      "If <inquire paths to descendants> is called and list or set
       element is not available, it should return error indicator =
       2002."
pass/fail depending on (returned error indicator = 2002)

END PROGRAM 3