From ebdc084810b62551abf17c90644707fccdb07e88 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Sat, 15 Sep 2007 11:24:17 +0000 Subject: [PATCH] Renamed a (currently unused) function in TestUtil --- common/TestUtil.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/common/TestUtil.hs b/common/TestUtil.hs index 832cf5a..e823906 100644 --- a/common/TestUtil.hs +++ b/common/TestUtil.hs @@ -256,7 +256,7 @@ testPass :: testPass w x y z = TestCase $ join $ liftM (either (id) (\x -> return ())) $ (liftM snd) $ (testPassGetItems w x y z) -- | A test that runs a given AST pass, checks that it succeeds, and checks the resulting 'Items' with a given function. -testPassWithCheck :: +testPassWithItemsCheck :: (Data a, Data b) => String -- ^ The test name. -> a -- ^ The expected value. Can either be an actual AST, or a 'Pattern' to match an AST. @@ -264,7 +264,7 @@ testPassWithCheck :: -> (State CompState ()) -- ^ A function to transform a 'CompState'. Will be used on the 'emptyState' to get the initial state for the pass. -> (Items -> Assertion) -- ^ A function to check the 'Items' once the pass succeeds. -> Test -testPassWithCheck testName expected actualPass startStateTrans checkFunc = TestCase $ +testPassWithItemsCheck testName expected actualPass startStateTrans checkFunc = TestCase $ ((liftM snd) (testPassGetItems testName expected actualPass startStateTrans)) >>= (\res -> case res of