DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦6c3e17a48⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Test_Case_Data, seg_028b87

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

with Po_Handle;
with Executable_Code;
with Parallel_Termination_Control;
with Access_String;
with System;

package Test_Case_Data is

  type Object is private;

  function Constructor (Heap : System.Segment) return Test_Case_Data.Object;

  procedure Destructor (Of_The_Obj : in out Test_Case_Data.Object);

  type Handle_Elements is (No_Element, Subject_Program_Handle,
                           Test_Driver_Handle, Execution_Context_Handle,
                           Executable_Test_Code_Handle,
                           Evaluation_Action_Handle, Input_Data_Handle,
                           Output_Data_Handle, Expected_Output_Handle,
                           Error_Output_Handle, Coverage_Analyzer_Handle,
                           Rci_Cmd_Template_Handle, Pre_Condition_Handle,
                           Prolog_Handle, Epilog_Handle);

  type Run_Modes is (Direct_Call, Separate_Job, Connected_Job);

  function Get_Handle (Using_Element             : Handle_Elements;
                       From_The_Obj              : Test_Case_Data.Object;
                       Substitute_Test_Case_Name : Boolean := False;
                       Source_Value_Only         : Boolean := False)
                      return Po_Handle.Object;



  --
  -- Get_Handle is not defined for Coverage_Analyzer_Handle
  --

  function Get_Params (Using_Element : Handle_Elements;
                       From_The_Obj  : Test_Case_Data.Object)
                      return Access_String.Object;
  --
  -- Get_Params is only defined for
  -- Executable_Test_Code_Handle,Coverage_Analyzer_Handle,
  -- Pre_Condition_Handle,Prolog_Handle,Epilog_Handle,
  -- Evaluation_Action_Handle
  --

  function Test_Description
            (From_The_Obj : Test_Case_Data.Object) return String;

  function Term_Control (From_The_Obj : Test_Case_Data.Object)
                        return Parallel_Termination_Control.Object;

  function Keywords (From_The_Obj : Test_Case_Data.Object) return String;

  function Run_Mode (From_The_Obj : Test_Case_Data.Object) return Run_Modes;

  function Allow_Coverage_Analysis
            (From_The_Obj : Test_Case_Data.Object) return Boolean;

  procedure Set_Handle (Using_Element :        Handle_Elements;
                        In_The_Obj    : in out Test_Case_Data.Object;
                        New_Handle    :        Po_Handle.Object);

  function Relative_Name (From_The_Obj : Test_Case_Data.Object)
                         return Po_Handle.Object;


  procedure Set_Params (Using_Element :        Handle_Elements;
                        In_The_Obj    : in out Test_Case_Data.Object;
                        New_Params    :        Access_String.Object);

  procedure Set_Test_Description (In_The_Obj : in out Test_Case_Data.Object;
                                  New_Description : String);

  procedure Set_Keywords (In_The_Obj   : in out Test_Case_Data.Object;
                          New_Keywords :        String);

  procedure Set_Term_Control
             (In_The_Obj  : in out Test_Case_Data.Object;
              New_Control :        Parallel_Termination_Control.Object);

  procedure Set_Run_Mode (In_The_Obj   : in out Test_Case_Data.Object;
                          New_Run_Mode :        Run_Modes);

  procedure Set_Allow_Coverage_Analysis
             (In_The_Obj : in out Test_Case_Data.Object; Allow : Boolean);

  function Constructor
            (With_Value : String; Heap : System.Segment) return Object;

  function Equal (L, R : Object) return Boolean;

  procedure Copy (Target : in out Object;
                  Source :        Object;
                  Heap   :        System.Segment);



end Test_Case_Data;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=1b rec1=00 rec2=01 rec3=062
        [0x01] rec0=1c rec1=00 rec2=02 rec3=02c
        [0x02] rec0=17 rec1=00 rec2=03 rec3=00a
        [0x03] rec0=18 rec1=00 rec2=04 rec3=000
    tail 0x21521336e83c55e211245 0x42a00044462022803