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
|
--
-- Copyright (C) 2008, AdaCore
--
with AUnit.Test_Caller;
package body Rectangle.Tests.Suite is
package Runner is new AUnit.Test_Caller
(Rectangle.Tests.Test);
Result : aliased AUnit.Test_Suites.Test_Suite;
Test_Width : aliased Runner.Test_Case;
Test_Height : aliased Runner.Test_Case;
Test_Area : aliased Runner.Test_Case;
-----------
-- Suite --
-----------
function Suite return AUnit.Test_Suites.Access_Test_Suite
is
begin
Runner.Create (Test_Width,
"Rectangle : Test width",
Test_Set_Width'Access);
Runner.Create (Test_Height,
"Rectangle : Test height",
Test_Set_Height'Access);
Runner.Create (Test_Area,
"Rectangle : Test area",
Test_Get_Area'Access);
Result.Add_Test (Test_Width'Access);
Result.Add_Test (Test_Height'Access);
Result.Add_Test (Test_Area'Access);
return Result'Access;
end Suite;
end Rectangle.Tests.Suite;
|
