Ahven.Results – Package

Types

Result_Info

type Result_Info is private;

Result_Collection

type Result_Collection is limited private;

A collection of Result_Info objects. Contains also child collections.

Result_Collection_Access

type Result_Collection_Access is access Result_Collection;

Result_Info_Cursor

type Result_Info_Cursor is private;

A cursor type for Pass, Failure and Error results.

Result_Collection_Cursor

type Result_Collection_Cursor is private;

Cursor for iterating over a set of Result_Collection access objects.

Constants

Empty_Result_Info

Empty_Result_Info : constant Result_Info;

Result_Info object which holds no result. It can be used to initialize a new Result_Info object.

Procedures and Functions

Set_Test_Name

procedure Set_Test_Name (Info : in out Result_Info;
                         Name :        Bounded_String);

Set a test name for the result.

Set_Routine_Name

procedure Set_Routine_Name (Info : in out Result_Info;
                            Name :        Bounded_String);

Set a routine name for the result.

Set_Message

procedure Set_Message (Info : in out Result_Info;
                       Message : Bounded_String);

Set a message for the result.

Set_Test_Name

procedure Set_Test_Name (Info : in out Result_Info; Name : String);

A helper function, which calls Set_Test_Name (.. ; Bounded_String)

Set_Routine_Name

procedure Set_Routine_Name (Info : in out Result_Info; Name : String);

A helper function, which calls Set_Routine_Name (.. ; Bounded_String)

Set_Message

procedure Set_Message (Info : in out Result_Info; Message : String);

A helper function, which calls Set_Message (.. ; Bounded_String)

Set_Long_Message

procedure Set_Long_Message (Info    : in out Result_Info;
                            Message :        Bounded_String);

Set a long message for the result

Set_Long_Message

procedure Set_Long_Message (Info : in out Result_Info; Message : String);

A helper function, which calls Set_Long_Message (.. ; Bounded_String)

Set_Execution_Time

procedure Set_Execution_Time (Info         : in out Result_Info;
                              Elapsed_Time :        Duration);

Set the execution time of the result info (test).

Set_Output_File

procedure Set_Output_File (Info     : in out Result_Info;
                           Filename :        Bounded_String);

Set the name of the test output file.

Set_Output_File

procedure Set_Output_File (Info     : in out Result_Info;
                           Filename :        String);

Set the name of the test output file.

Get_Test_Name

function Get_Test_Name (Info : Result_Info) return String;

Return the test name of the result info.

Get_Routine_Name

function Get_Routine_Name (Info : Result_Info) return String;

Return the routine name of the result info.

Get_Message

function Get_Message (Info : Result_Info) return String;

Return the message of the result info.

Get_Long_Message

function Get_Long_Message (Info : Result_Info) return String;

Return the long message of the result info.

Get_Execution_Time

function Get_Execution_Time (Info : Result_Info) return Duration;

Return the execution time of the result info.

Get_Output_File

function Get_Output_File (Info : Result_Info) return Bounded_String;

Return the name of the output file. Empty string is returned in case there is no output file.

Add_Child

procedure Add_Child (Collection : in out Result_Collection;
                     Child      :        Result_Collection_Access);

Add a child collection to the collection.

Add_Error

procedure Add_Error (Collection : in out Result_Collection;
                     Info       :        Result_Info);

Add a test error to the collection.

Add_Skipped

procedure Add_Skipped (Collection : in out Result_Collection;
                       Info       :        Result_Info);

Add a skipped test to the collection.

Add_Failure

procedure Add_Failure (Collection : in out Result_Collection;
                       Info       :        Result_Info);

Add a test failure to the collection.

Add_Pass

procedure Add_Pass (Collection : in out Result_Collection;
                    Info       :        Result_Info);

Add a passed test to the collection

Release

procedure Release (Collection : in out Result_Collection);

Release resourced held by the collection. Frees also all children added via Add_Child.

Set_Name

procedure Set_Name (Collection : in out Result_Collection;
                    Name       :        Bounded_String);

Set a test name for the collection.

Set_Parent

procedure Set_Parent (Collection : in out Result_Collection;
                      Parent     :        Result_Collection_Access);

Set a parent collection to the collection.

Test_Count

function Test_Count (Collection : Result_Collection) return Natural;

Return the amount of tests in the collection. Tests in child collections are included.

Direct_Test_Count

function Direct_Test_Count (Collection : Result_Collection) return Natural;

Return the amount of tests in the collection. The tests in the child collections are NOT included.

Pass_Count

function Pass_Count (Collection : Result_Collection) return Natural;

Return the amount of passed tests in the collection. Tests in child collections are included.

Error_Count

function Error_Count (Collection : Result_Collection) return Natural;

Return the amount of test errors in the collection. Tests in child collections are included.

Failure_Count

function Failure_Count (Collection : Result_Collection) return Natural;

Return the amount of test errors in the collection. Tests in child collections are included.

Skipped_Count

function Skipped_Count (Collection : Result_Collection) return Natural;

Return the amount of skipped tests in the collection. Tests in child collections are included.

Get_Test_Name

function Get_Test_Name (Collection : Result_Collection)
  return Bounded_String;

Return the name of the collection’s test.

Get_Parent

function Get_Parent (Collection : Result_Collection)
  return Result_Collection_Access;

Return the parent of the collection.

Get_Execution_Time

function Get_Execution_Time (Collection : Result_Collection)
  return Duration;

Return the execution time of the whole collection.

First_Pass

function First_Pass (Collection : Result_Collection)
  return Result_Info_Cursor;

Get the first pass from the collection.

First_Failure

function First_Failure (Collection : Result_Collection)
  return Result_Info_Cursor;

Get the first failure from the collection.

First_Error

function First_Error (Collection : Result_Collection)
  return Result_Info_Cursor;

Get the first error from the collection.

Data

function Data (Position: Result_Info_Cursor) return Result_Info;

Get the data behind the cursor.

Is_Valid

function Is_Valid (Position: Result_Info_Cursor) return Boolean;

Is the cursor still valid?

First_Child

function First_Child (Collection : in Result_Collection)
  return Result_Collection_Cursor;

Get the first child of the collection.

Next

function Next (Position: Result_Collection_Cursor)
  return Result_Collection_Cursor;

Get the next child.

Is_Valid

function Is_Valid (Position: Result_Collection_Cursor) return Boolean;

Is the cursor still valid?

Data

function Data (Position: Result_Collection_Cursor)
  return Result_Collection_Access;

Get the data (Result_Collection_Access) behind the cursor.

Child_Depth

function Child_Depth (Collection : Result_Collection) return Natural;

Return the maximum depth of children. (a child of a child, etc.)