Remove incorrect test

This commit is contained in:
Martin Fredin 2023-03-30 12:49:27 +02:00
parent 5d2c0e787e
commit 4831205e67

View file

@ -31,7 +31,6 @@ testTypeCheckerBidir = describe "Bidirectional type checker test" $ do
tc_tree
tc_mono_case
tc_pol_case
tc_mut_rec
tc_infer_case
tc_id =
@ -269,23 +268,6 @@ tc_pol_case = describe "Polymophic and recursive pattern matching" $ do
]
tc_mut_rec = specify "Feasible mutuable recursive definitions" $ run
[ "data Bool () where {"
, " True : Bool ()"
, " False : Bool ()"
, "};"
, "even : Int -> Bool ();"
, "even x = not (odd x);"
, "odd x = not (even x);"
, "not x = case x of {"
, " True => False;"
, " False => True;"
, "};"
] `shouldSatisfy` ok
tc_infer_case = describe "Infer case expression" $ do
specify "Wrong case expression rejected" $
run (fs ++ wrong) `shouldNotSatisfy` ok