@@ -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
|
||||
|
||||
Reference in New Issue
Block a user