procedure Add_Pass (Listener : in out Tap_Listener;
Info : Context);
procedure Add_Failure (Listener : in out Tap_Listener;
Info : Context);
procedure Add_Error (Listener : in out Tap_Listener;
Info : Context);
procedure Start_Test (Listener : in out Tap_Listener;
Info : Context);
procedure End_Test (Listener : in out Tap_Listener;
Info : Context);