@@ -58,7 +58,7 @@ test_eval = do
|
|||||||
<&> fmap ("golden/exec" </>)
|
<&> fmap ("golden/exec" </>)
|
||||||
pure $ testGroup "cps interpreter"
|
pure $ testGroup "cps interpreter"
|
||||||
[ testGroup "higher-order" $ cpsCase Driver.eval_cps2_e2e <$> cs
|
[ 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
|
maybeBroken name broken = applyWhen (name `elem` broken) expectFail
|
||||||
|
|||||||
Reference in New Issue
Block a user