diff --git a/test/Gyehoek/Test/CPS/Eval.hs b/test/Gyehoek/Test/CPS/Eval.hs index 451f8f9..54ec0f7 100644 --- a/test/Gyehoek/Test/CPS/Eval.hs +++ b/test/Gyehoek/Test/CPS/Eval.hs @@ -58,7 +58,7 @@ test_eval = do <&> fmap ("golden/exec" ) pure $ testGroup "cps interpreter" [ testGroup "higher-order" $ cpsCase Driver.eval_cps2_e2e <$> cs - , testGroup "first-order" $ cpsCase Driver.eval_cps_e2e <$> cs + -- , testGroup "first-order" $ cpsCase Driver.eval_cps_e2e <$> cs ] maybeBroken name broken = applyWhen (name `elem` broken) expectFail