Merge 519d60a into d2903ae

glennsl · Oct 18, 2020 · 96bc163 · 96bc163
2 parents d2903ae + 519d60a
commit 96bc163
Show file tree

Hide file tree

Showing 4 changed files with 150 additions and 115 deletions.
diff --git a/__tests__/expect_test.ml b/__tests__/expect_test.ml
@@ -1,5 +1,9 @@
 open Jest
 
+type test_record = {
+  value: string
+}
+
 let () =
 
 describe "Expect" (fun () -> 
@@ -23,6 +27,8 @@ describe "Expect" (fun () ->
     expect [| "a"; "b"; "c" |] |> toBeSupersetOf [| "a"; "c" |]);
   test "toContain" (fun () ->
     expect [| "a"; "b"; "c" |] |> toContain "b");
+  test "toContainEqual" (fun () ->
+    expect [| {value = "a"}; {value = "b"}; {value = "c"} |] |> toContainEqual {value = "b"});
   test "toContainString" (fun () ->
     expect "banana" |> toContainString "nana");
   test "toHaveLength" (fun () ->
@@ -69,6 +75,8 @@ describe "Expect" (fun () ->
     expect [| "a"; "b"; "c" |] |> not_ |> toBeSupersetOf [| "a"; "d" |]);
   test "not toContain" (fun () ->
     expect [| "a"; "b"; "c" |] |> not_ |> toContain "d");
+  test "not toContainEqual" (fun () ->
+    expect [| {value = "a"}; {value = "b"}; {value = "c"} |] |> not_ |> toContainEqual {value = "d"});
   test "not toContainString" (fun () ->
     expect "banana" |> not_ |> toContainString "nanan");
   test "not toHaveLength" (fun () ->
@@ -146,4 +154,4 @@ describe "ExpectJs" (fun () ->
     expect [%obj { foo = 0; bar = true }] |> not_ |> toContainProperties [| "foo"; "zoo" |]);
   test "not toMatchObject" (fun () ->
     expect [%obj { a = 1; b = 2; c = 3 }] |> not_ |> toMatchObject [%obj { a = 1; c = 2 }]);
-);
+);