Add initial prototype.

This commit is contained in:
Rod Kay
2022-07-31 17:34:54 +10:00
commit 54a53b2ac0
1421 changed files with 358874 additions and 0 deletions

View File

@@ -0,0 +1,20 @@
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;