Tests update

ocaml · May 11, 2021 · c484b6d · c484b6d
1 parent 20a4589
commit c484b6d
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 10 deletions.
diff --git a/tests/test-dirs/construct/c-depth.t b/tests/test-dirs/construct/c-depth.t
@@ -53,8 +53,8 @@ Test 2.2
   $ $MERLIN single construct -depth 2 -position 2:12 -filename d2.ml <d2.ml |
   >  jq ".value[1]"
   [
-    "{ a = (Some _); b = (Some _) }",
     "{ a = None; b = (Some _) }",
+    "{ a = (Some _); b = (Some _) }",
     "{ a = (Some _); b = None }",
     "{ a = None; b = None }"
   ]
@@ -63,23 +63,23 @@ Test 2.3
   $ $MERLIN single construct -depth 3 -position 2:12 -filename d2.ml <d2.ml |
   >  jq ".value[1]"
   [
+    "{ a = (Some None); b = (Some 0.0) }",
     "{ a = (Some (Some _)); b = (Some 0.0) }",
     "{ a = None; b = (Some 0.0) }",
-    "{ a = (Some None); b = (Some 0.0) }",
-    "{ a = (Some (Some _)); b = None }",
     "{ a = None; b = None }",
+    "{ a = (Some (Some _)); b = None }",
     "{ a = (Some None); b = None }"
   ]
 
 Test 2.4
   $ $MERLIN single construct -depth 4 -position 2:12 -filename d2.ml <d2.ml |
   >  jq ".value[1]"
   [
+    "{ a = (Some None); b = (Some 0.0) }",
     "{ a = (Some (Some 0)); b = (Some 0.0) }",
     "{ a = None; b = (Some 0.0) }",
-    "{ a = (Some None); b = (Some 0.0) }",
-    "{ a = (Some (Some 0)); b = None }",
     "{ a = None; b = None }",
+    "{ a = (Some (Some 0)); b = None }",
     "{ a = (Some None); b = None }"
   ]
 
@@ -92,8 +92,8 @@ Test 3.1
   $ $MERLIN single construct -depth 2 -position 2:12 -filename d3.ml <d3.ml |
   >  jq ".value[1]"
   [
-    "((Some _), (Some _))",
     "(None, (Some _))",
+    "((Some _), (Some _))",
     "((Some _), None)",
     "(None, None)"
   ]
diff --git a/tests/test-dirs/construct/c-simple.t b/tests/test-dirs/construct/c-simple.t
@@ -352,13 +352,13 @@ Eq (Int _, Float) is wrong and should not appear (fixed)
         }
       },
       [
-        "Eq ((Eq (_, _)), (Eq (_, _)))",
+        "Eq ((Eq (_, _)), (Float _))",
         "Float 0.0",
-        "Eq ((Float _), (Eq (_, _)))",
+        "Eq ((Float _), (Float _))",
         "Int 0",
+        "Eq ((Float _), (Eq (_, _)))",
+        "Eq ((Eq (_, _)), (Eq (_, _)))",
         "Eq ((Int _), (Eq (_, _)))",
-        "Eq ((Eq (_, _)), (Float _))",
-        "Eq ((Float _), (Float _))",
         "Eq ((Eq (_, _)), (Int _))",
         "Eq ((Int _), (Int _))"
       ]