1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
:mod:`Ahven.Listeners.Basic` -- Package
=======================================
.. module:: Ahven.Listeners.Basic
.. moduleauthor:: Tero Koskinen <tero.koskinen@iki.fi>
-----
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
Get_Output_Capture
''''''''''''''''''
::
function Get_Output_Capture (Listener : Basic_Listener)
return Boolean;
Capture the Ada.Text_IO output?
|
