Fixing the tests.

Author: Mbodin

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",

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'/>"]],