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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
------------------------------------------------------------------------------
-- --
-- GNAT COMPILER COMPONENTS --
-- --
-- A U N I T . T E S T _ R E S U L T S --
-- --
-- S p e c --
-- --
-- --
-- Copyright (C) 2000-2011, AdaCore --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. --
-- --
-- --
-- --
-- --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
-- <http://www.gnu.org/licenses/>. --
-- --
-- GNAT is maintained by AdaCore (http://www.adacore.com) --
-- --
------------------------------------------------------------------------------
with Ada_Containers.AUnit_Lists;
with AUnit.Time_Measure; use AUnit.Time_Measure;
-- Test reporting.
--
package AUnit.Test_Results is
type Result is tagged limited private;
-- Record result. A result object is associated with the execution of a
-- top-level test suite.
type Test_Failure is record
Message : Message_String;
Source_Name : Message_String;
Line : Natural;
end record;
type Test_Failure_Access is access all Test_Failure;
pragma No_Strict_Aliasing (Test_Failure_Access);
-- Description of a test routine failure
type Test_Error is record
Exception_Name : Message_String;
Exception_Message : Message_String;
Traceback : Message_String;
end record;
type Test_Error_Access is access all Test_Error;
pragma No_Strict_Aliasing (Test_Error_Access);
-- Description of unexpected exceptions
type Test_Result is record
Test_Name : Message_String;
Routine_Name : Message_String;
Failure : Test_Failure_Access;
Error : Test_Error_Access;
Elapsed : Time := Null_Time;
end record;
-- Decription of a test routine result
use Ada_Containers;
package Result_Lists is new Ada_Containers.AUnit_Lists (Test_Result);
-- Containers for all test results
procedure Add_Error
(R : in out Result;
Test_Name : Message_String;
Routine_Name : Message_String;
Error : Test_Error;
Elapsed : Time);
-- Record an unexpected exception
procedure Add_Failure
(R : in out Result;
Test_Name : Message_String;
Routine_Name : Message_String;
Failure : Test_Failure;
Elapsed : Time);
-- Record a test routine failure
procedure Add_Success
(R : in out Result;
Test_Name : Message_String;
Routine_Name : Message_String;
Elapsed : Time);
-- Record a test routine success
procedure Set_Elapsed (R : in out Result; T : Time);
-- Set Elapsed time for reporter
function Error_Count (R : Result) return Count_Type;
-- Number of routines with unexpected exceptions
procedure Errors (R : in out Result;
E : in out Result_Lists.List);
-- List of routines with unexpected exceptions. This resets the list.
function Failure_Count (R : Result) return Count_Type;
-- Number of failed routines
procedure Failures (R : in out Result; F : in out Result_Lists.List);
-- List of failed routines. This resets the list.
function Elapsed (R : Result) return Time;
-- Elapsed time for test execution
procedure Start_Test (R : in out Result; Subtest_Count : Count_Type);
-- Set count for a test run
function Success_Count (R : Result) return Count_Type;
-- Number of successful routines
procedure Successes (R : in out Result; S : in out Result_Lists.List);
-- List of successful routines. This resets the list.
function Successful (R : Result) return Boolean;
-- All routines successful?
function Test_Count (R : Result) return Ada_Containers.Count_Type;
-- Number of routines run
procedure Clear (R : in out Result);
-- Clear the results
private
pragma Inline (Errors, Failures, Successes);
type Result is tagged limited record
Tests_Run : Count_Type := 0;
Result_List : Result_Lists.List;
Elapsed_Time : Time := Null_Time;
end record;
end AUnit.Test_Results;
|
