From ffb75e0fc715d91d21d04f797b87e55b33d54722 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Tue, 28 Aug 2007 11:57:02 +0000 Subject: [PATCH] Removed an unused function from TestUtil --- TestUtil.hs | 6 ------ 1 file changed, 6 deletions(-) diff --git a/TestUtil.hs b/TestUtil.hs index 1611f47..85a3642 100644 --- a/TestUtil.hs +++ b/TestUtil.hs @@ -120,12 +120,6 @@ assertNotEqual msg = assertCompareCustom msg (/=) assertItemNotSame :: String -> Items -> String -> String -> Assertion assertItemNotSame msg items key0 key1 = assertNotEqual msg ((Map.lookup key0 items) :: Maybe AnyDataItem) ((Map.lookup key1 items) :: Maybe AnyDataItem) --- | Helper function that checks if a looked-up value is what was expected -assertItemNotEqual :: Data a => String -> a -> Maybe AnyDataItem -> Assertion -assertItemNotEqual msg _ Nothing = assertFailure $ msg ++ " item not matched!" ---Putting x into ADI wrapper and using the Eq instance for AnyDataItem is easier than taking y out and checking the data types match: -assertItemNotEqual msg exp (Just act) = assertNotEqual msg (ADI exp) act - testPassGetItems :: (Data a, Data b) => String -> a -> PassM b -> (State CompState ()) -> IO (CompState, Either Assertion Items) testPassGetItems testName expected actualPass startStateTrans = --passResult :: Either String b