From e71f853512302ea4dfe845f1d83ea9cc208295f9 Mon Sep 17 00:00:00 2001
From: Martin Bodin <martin.bodin@inria.fr>
Date: Thu, 30 Nov 2023 15:47:43 +0100
Subject: [PATCH] Fixing the tests.

---
 test/test_jsx.re | 4 ++--
 test/test_ppx.ml | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/test/test_jsx.re b/test/test_jsx.re
index 297292bac..2f1bca2e1 100644
--- a/test/test_jsx.re
+++ b/test/test_jsx.re
@@ -334,12 +334,12 @@ let svg = (
       (
         "fill_opacity float, circle",
         [<circle cx=1 cy=2 r=3 fill_opacity=0.5 />],
-        [circle(~a=[a_cx (1., None); a_cy (2., None); a_r (3., None); a_fill_opacity 0.5], [])],
+        [circle(~a=[a_cx((1., None)), a_cy((2., None)), a_r((3., None)), a_fill_opacity(0.5)], [])],
       ),
       (
         "fill_opacity percentage, rect",
         [<rect x=1 y='2' width=3 height='4' fill_opacity='50%' />],
-        [rect(~a=[a_cx (1., None); a_cy (2., None); a_width (3., None); a_height (4., None); a_fill_opacity 0.5], [])],
+        [rect(~a=[a_cx((1., None)), a_cy((2., None)), a_width((3., None)), a_height((4., None)), a_fill_opacity(0.5)], [])],
       ),
       (
         "fill_rule nonzero",
diff --git a/test/test_ppx.ml b/test/test_ppx.ml
index 58251b95c..254fefdfd 100644
--- a/test/test_ppx.ml
+++ b/test/test_ppx.ml
@@ -422,7 +422,7 @@ let svg = "svg", SvgTests.make Svg.[
 
   "fill_opacity percentage, rect",
   [[%svg "<rect x=1 y='2' width=3 height='4' fill-opacity='50%' />"]],
-  [rect ~a:[a_cx (1., None); a_cy (2., None); a_width (3., None); a_height (4., None); a_fill_opacity 0.5] []] ;
+  [rect ~a:[a_x (1., None); a_y (2., None); a_width (3., None); a_height (4., None); a_fill_opacity 0.5] []] ;
 
   "fill_rule type nonzero",
   [[%svg "<path fill-rule='nonzero'/>"]],