@@ -14,4 +14,9 @@ tests =
1414 , test "A left neq" <| assert . not <| (A "a" == B [1])
1515 , test "A left neq" <| assert . not <| (B [1] == A "a")
1616 ]
17− in suite "Equality Tests" [diff_tests]
17+ record_tests = suite "record type eq"
18+ [ test "empty same" <| assert ({} == {})
19+ , test "ctor same" <| assert ({ctor = Just 3} == {ctor = Just 3})
20+ , test "ctor diff" . assert . not <| ({ctor = Just 3} == {ctor = Nothing})
21+ ]
22+ in suite "Equality Tests" [diff_tests, record_tests]