math.testsuite: Fix bad syntax in geometry_2d test.

2023-10-23 14:36:29 +11:00
parent 7ef12b7e79
commit 6a1d544e10
1 changed files with 2 additions and 2 deletions
--- a/1-base/math/applet/test/suite/math_tests-geometry_2d.adb
+++ b/1-base/math/applet/test/suite/math_tests-geometry_2d.adb
@@ -52,9 +52,9 @@ is
   is
      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, 1.0]]];
+                                          [1.0, 1.0]]);
   begin
      assert (almost_Equal (Area (the_Tri), 0.5),
              "T1 =>  & Image (the_Tri) &  area should be 0.5 ... failed !   " & Image (Area (the_Tri), 12));