DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ T V

⟦3070af3b4⟧ TextFile

    Length: 8458 (0x210a)
    Types: TextFile
    Names: »V«

Derivation

└─⟦db1c56801⟧ Bits:30000748 8mm tape, Rational 1000, TESTMATE 2_2_0
    └─ ⟦866d14df1⟧ »DATA« 
        └─⟦97c804b2f⟧ 
            └─⟦this⟧ 

TextFile

with Directory_Tools;
with Job_Segment;
with Po_Handle;
with Po_Access_Modes;
with System;
with Script_Construction_Control;
with Test_Case;
with Test_Case_Data;
with Test_Context;
with Test_Script_Control;
with Test_Set;
with Test_Set_Element;

package Po_Tools is

    type Status is (Success, Inappropriate_Object_Class,
                    Unresolvable_Name, Unidentified_Failure);

    Gen_Heap : System.Segment := Job_Segment.Get;


    type Test_Case_Component_Params is (Executable_Test_Code_Params,  
                                        Evaluation_Action_Params,  
                                        Coverage_Analyzer_Params,  
                                        Pre_Condition_Params,  
                                        Prolog_Params,  
                                        Epilog_Params);

    -- Implementation is dependent on Test_Case_Data  Handle_Element  to
    -- Test_Case_Component_Params  mapping.   If new Handle_Elements are
    -- added or  Handle_Element  names  change  for  handles  that  have
    -- parameters   associated  with  them,  Associated_Handle  must  be
    -- updated to accommodate any new/modified Handle_Element.
    --
    function Associated_Handle (For_Param : Test_Case_Component_Params)
                               return Test_Case.Handle_Elements;


    -- Constructs a Test Case and a handle for the Test Case.
    --
    procedure Construct_Test_Case (Name : in String;
                                   Using_Heap : in out System.Segment;
                                   The_Test_Case : in out Test_Case.Object;
                                   Test_Case_Handle : in out Po_Handle.Object);

    -- Destroys the test case and its handle.
    --
    procedure Destroy_Test_Case
                 (The_Test_Case : in out Test_Case.Object;
                  The_Test_Case_Handle : in out Po_Handle.Object);

    -- Opens the Test Case, gets and checks the condition  of  the  open
    -- operation.   The Result is Success if the Open succeeded.  If the
    -- Open   fails,    either    an    Inappropriate_Object_Class    or
    -- Unidentified_Failure Result is returned.
    --
    procedure Open_Test_Case (The_Test_Case : in out Test_Case.Object;
                              Test_Case_Handle : in out Po_Handle.Object;
                              Access_Mode : in Po_Access_Modes.Modes :=
                                 Po_Access_Modes.Read_Only;
                              Result : out Status);

    -- Assumes From_Test_Case has been constructed and opened.   Creates
    -- a  copy  of  the From test case by constructing the New_Test_Case
    -- and saving the contents of the From_Test_Case test case into  the
    -- New_Test_Case.  New_Test_Case is closed at end of the operation.
    --
    procedure Copy_Test_Case (From_Test_Case : in out Test_Case.Object;
                              New_Test_Case : in out Test_Case.Object;
                              New_Test_Case_Name : String;
                              New_Test_Case_Handle : in out Po_Handle.Object;
                              Using_Heap : System.Segment);


    -- Constructs a Test Set and a handle for the Test Set.
    --
    procedure Construct_Test_Set (Name : in String;
                                  Using_Heap : in out System.Segment;
                                  The_Test_Set : in out Test_Set.Object;
                                  Test_Set_Handle : in out Po_Handle.Object);

    -- Destroys the Test Set and its handle.
    --
    procedure Destroy_Test_Set (The_Test_Set : in out Test_Set.Object;
                                The_Test_Set_Handle : in out Po_Handle.Object);

    -- Opens the Test Set, gets and checks the  condition  of  the  open
    -- operation.   The Result is Success if the Open succeeded.  If the
    -- Open   fails,    either    an    Inappropriate_Object_Class    or
    -- Unidentified_Failure Result is returned.
    --
    procedure Open_Test_Set (The_Test_Set : in out Test_Set.Object;
                             Test_Set_Handle : in out Po_Handle.Object;
                             Access_Mode : in Po_Access_Modes.Modes :=
                                Po_Access_Modes.Read_Only;
                             Result : out Status);

    -- Constructs a Test Context and a handle for the Test Context.
    --
    procedure Construct_Test_Context
                 (Name : in String;
                  Using_Heap : in out System.Segment;
                  The_Test_Context : in out Test_Context.Object;
                  Test_Context_Handle : in out Po_Handle.Object);

    -- Destroys the Test Context and its handle.
    --
    procedure Destroy_Test_Context
                 (The_Test_Context : in out Test_Context.Object;
                  The_Test_Context_Handle : in out Po_Handle.Object);

    -- Opens the Test Context, gets and checks the condition of the open
    -- operation.  The Result is Success if the Open succeeded.  If  the
    -- Open    fails,    either    an    Inappropriate_Object_Class   or
    -- Unidentified_Failure Result is returned.
    --
    procedure Open_Test_Context (The_Test_Context : in out Test_Context.Object;
                                 Test_Context_Handle : in out Po_Handle.Object;
                                 Access_Mode : in Po_Access_Modes.Modes :=
                                    Po_Access_Modes.Read_Only;
                                 Result : out Status);

    -- Constructs a Script Construction Control object and a handle  for
    -- the Script Construction Control Object.
    --
    procedure Construct_Scc
                 (Name : in String;
                  Using_Heap : in out System.Segment;
                  The_Scc : in out Script_Construction_Control.Object;
                  Scc_Handle : in out Po_Handle.Object);

    -- Destroys the Script Construction Control Object and its handle.
    --
    procedure Destroy_Scc (The_Scc : in out Script_Construction_Control.Object;
                           The_Scc_Handle : in out Po_Handle.Object);

    -- Opens the Script Construction Control Object, gets and checks the
    -- condition of the open operation.  The Result is  Success  if  the
    -- Open    succeeded.     If    the    Open    fails,    either   an
    -- Inappropriate_Object_Class  or  Unidentified_Failure  Result   is
    -- returned.
    --
    procedure Open_Scc (The_Scc : in out Script_Construction_Control.Object;
                        Scc_Handle : in out Po_Handle.Object;
                        Access_Mode : in Po_Access_Modes.Modes :=
                           Po_Access_Modes.Read_Only;
                        Result : out Status);

    -- Constructs a Script Execution Control object and a handle for the
    -- Script Execution Control Object.
    --
    procedure Construct_Sec (Name : in String;
                             Using_Heap : in out System.Segment;
                             The_Sec : in out Test_Script_Control.Object;
                             Sec_Handle : in out Po_Handle.Object);

    -- Destroys the Script Execution Control Object and its handle.
    --
    procedure Destroy_Sec (The_Sec : in out Test_Script_Control.Object;
                           The_Sec_Handle : in out Po_Handle.Object);

    -- Opens the Script Execution Control Object, gets  and  checks  the
    -- condition  of  the  open operation.  The Result is Success if the
    -- Open   succeeded.     If    the    Open    fails,    either    an
    -- Inappropriate_Object_Class   or  Unidentified_Failure  Result  is
    -- returned.
    --
    procedure Open_Sec (The_Sec : in out Test_Script_Control.Object;
                        Sec_Handle : in out Po_Handle.Object;
                        Access_Mode : in Po_Access_Modes.Modes :=
                           Po_Access_Modes.Read_Only;
                        Result : out Status);

    function Is_Context_File (The_Object : String) return Boolean;

    function Is_Sec_File (The_Object : String) return Boolean;

    function Is_Scc_File (The_Object : String) return Boolean;

    function Is_Test_Case_File (The_Object : String) return Boolean;

    function Is_Test_Run_Group_File (The_Object : String) return Boolean;

    function Is_Test_Run_File (The_Object : String) return Boolean;

    function Is_Test_Set_File (The_Object : String) return Boolean;

    function Is_Coverage_Run_File (The_Object : String) return Boolean;

end Po_Tools;