Fixing the tests.

ocsigen · Nov 30, 2023 · e71f853 · e71f853
1 parent 7870dc4
commit e71f853
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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'/>"]],