nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

math.testsuite: Fix bad syntax in geometry_2d test.

Browse Source
This commit is contained in:
Rod Kay
2023-10-23 14:36:29 +11:00
parent 7ef12b7e79
commit 6a1d544e10
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
1-base/math/applet/test/suite/math_tests-geometry_2d.adb
View File

@@ -52,9 +52,9 @@ is
is is
use float_Math.Geometry.d2; use float_Math.Geometry.d2;
the_Tri : Triangle := [vertices => [[0.0, 0.0], the_Tri : Triangle := (vertices => [[0.0, 0.0],
[1.0, 0.0], [1.0, 0.0],
[1.0, 1.0]]]; [1.0, 1.0]]);
begin begin
assert (almost_Equal (Area (the_Tri), 0.5), assert (almost_Equal (Area (the_Tri), 0.5),
"T1 => & Image (the_Tri) & area should be 0.5 ... failed ! " & Image (Area (the_Tri), 12)); "T1 => & Image (the_Tri) & area should be 0.5 ... failed ! " & Image (Area (the_Tri), 12));