21 lines
619 B
Ada
21 lines
619 B
Ada
with ahven.Text_Runner,
|
|
ahven.Framework,
|
|
math_Tests.linear_Algebra_2d,
|
|
math_Tests.linear_Algebra_3d,
|
|
math_Tests.Geometry_2d;
|
|
|
|
|
|
procedure launch_math_Testsuite
|
|
is
|
|
S : constant ahven.Framework.test_Suite_access := ahven.Framework.create_Suite ("All Math Tests");
|
|
|
|
begin
|
|
S.add_Test (new math_Tests .Test);
|
|
S.add_Test (new math_Tests.linear_Algebra_2d.Test);
|
|
S.add_Test (new math_Tests.linear_Algebra_3d.Test);
|
|
S.add_Test (new math_Tests.Geometry_2d .Test);
|
|
|
|
ahven.text_Runner.run (S);
|
|
ahven.Framework .release_Suite (S);
|
|
end launch_math_Testsuite;
|