# `Ahven.Listeners.Basic` – Package

## Types

### Result_Type

    type Result_Type is (NO_RESULT, PASS_RESULT, FAILURE_RESULT, ERROR_RESULT);

### Basic_Listener

    type Basic_Listener is new Result_Listener with record
       Main_Result       : aliased Result_Collection;
       Current_Result    : Result_Collection_Access;
       Last_Test_Result  : Result_Type := NO_RESULT;
       Last_Info         : Result_Info := Empty_Result_Info;
       Capture_Output    : Boolean     := False;
       Output_File       : Temporary_Output.Temporary_File;
       Start_Time        : Ada.Calendar.Time;
    end record;

## Procedures and Functions

### Add_Pass

    procedure Add_Pass (Listener : in out Basic_Listener;
                        Info     :        Context);

New implementation for Listeners.Add_Pass

### Add_Failure

    procedure Add_Failure (Listener : in out Basic_Listener;
                           Info     :        Context);

New implementation for Listeners.Add_Failure

### Add_Error

    procedure Add_Error (Listener : in out Basic_Listener;
                         Info     :        Context);

New implementation for Listeners.Add_Error

### Start_Test

    procedure Start_Test (Listener : in out Basic_Listener;
                          Info     :        Context);

New implementation for Listeners.Start_Test

### End_Test

    procedure End_Test (Listener : in out Basic_Listener;
                        Info     :        Context);

New implementation for Listeners.End_Test

### Set_Output_Capture

    procedure Set_Output_Capture (Listener : in out Basic_Listener;
                                  Capture  :        Boolean);

Enable or disable Ada.Text_IO output capturing. When Capture is True, all Ada.Text_IO output is redirected into temporary files. See Ahven.Temporary_Output package for details.

### Get_Output_Capture

    function Get_Output_Capture (Listener : Basic_Listener)
      return Boolean;

Capture the Ada.Text_IO output?