HTF 0.6.0.0 → 0.6.0.1
raw patch · 2 files changed
+6/−6 lines, 2 filesdep ~QuickCheckdep ~containersdep ~directoryPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: QuickCheck, containers, directory
API changes (from Hackage documentation)
- Test.Framework.Pretty: instance (Pretty a) => Pretty [a]
- Test.Framework.TestManager: instance (TestableHTF t) => TestableHTF [t]
+ Test.Framework.Pretty: instance Pretty a => Pretty [a]
+ Test.Framework.TestManager: instance TestableHTF t => TestableHTF [t]
- Test.Framework.HUnitWrapper: assertEqualNoShowVerbose_ :: (Eq a) => Location -> String -> a -> a -> Assertion
+ Test.Framework.HUnitWrapper: assertEqualNoShowVerbose_ :: Eq a => Location -> String -> a -> a -> Assertion
- Test.Framework.HUnitWrapper: assertEqualNoShow_ :: (Eq a) => Location -> a -> a -> Assertion
+ Test.Framework.HUnitWrapper: assertEqualNoShow_ :: Eq a => Location -> a -> a -> Assertion
- Test.Framework.HUnitWrapper: assertLeftVerbose_ :: (Show b) => Location -> String -> Either a b -> IO a
+ Test.Framework.HUnitWrapper: assertLeftVerbose_ :: Show b => Location -> String -> Either a b -> IO a
- Test.Framework.HUnitWrapper: assertLeft_ :: (Show b) => Location -> Either a b -> IO a
+ Test.Framework.HUnitWrapper: assertLeft_ :: Show b => Location -> Either a b -> IO a
- Test.Framework.HUnitWrapper: assertNothingVerbose_ :: (Show a) => Location -> String -> Maybe a -> Assertion
+ Test.Framework.HUnitWrapper: assertNothingVerbose_ :: Show a => Location -> String -> Maybe a -> Assertion
- Test.Framework.HUnitWrapper: assertNothing_ :: (Show a) => Location -> Maybe a -> Assertion
+ Test.Framework.HUnitWrapper: assertNothing_ :: Show a => Location -> Maybe a -> Assertion
- Test.Framework.HUnitWrapper: assertRightVerbose_ :: (Show a) => Location -> String -> Either a b -> IO b
+ Test.Framework.HUnitWrapper: assertRightVerbose_ :: Show a => Location -> String -> Either a b -> IO b
- Test.Framework.HUnitWrapper: assertRight_ :: (Show a) => Location -> Either a b -> IO b
+ Test.Framework.HUnitWrapper: assertRight_ :: Show a => Location -> Either a b -> IO b
- Test.Framework.HUnitWrapper: assertThrowsVerbose_ :: (Exception e) => Location -> String -> a -> (e -> Bool) -> Assertion
+ Test.Framework.HUnitWrapper: assertThrowsVerbose_ :: Exception e => Location -> String -> a -> (e -> Bool) -> Assertion
- Test.Framework.HUnitWrapper: assertThrows_ :: (Exception e) => Location -> a -> (e -> Bool) -> Assertion
+ Test.Framework.HUnitWrapper: assertThrows_ :: Exception e => Location -> a -> (e -> Bool) -> Assertion
- Test.Framework.Pretty: pretty :: (Pretty a) => a -> Doc
+ Test.Framework.Pretty: pretty :: Pretty a => a -> Doc
- Test.Framework.Pretty: prettyList :: (Pretty a) => [a] -> Doc
+ Test.Framework.Pretty: prettyList :: Pretty a => [a] -> Doc
- Test.Framework.Pretty: showPretty :: (Pretty a) => a -> String
+ Test.Framework.Pretty: showPretty :: Pretty a => a -> String
- Test.Framework.TestManager: runTest :: (TestableHTF t) => t -> IO ()
+ Test.Framework.TestManager: runTest :: TestableHTF t => t -> IO ()
- Test.Framework.TestManager: runTestWithArgs :: (TestableHTF t) => [String] -> t -> IO ()
+ Test.Framework.TestManager: runTestWithArgs :: TestableHTF t => [String] -> t -> IO ()
- Test.Framework.TestManager: runTestWithFilter :: (TestableHTF t) => Filter -> t -> IO ()
+ Test.Framework.TestManager: runTestWithFilter :: TestableHTF t => Filter -> t -> IO ()
Files
- HTF.cabal +4/−4
- Test/Framework/QuickCheckWrapper.hs +2/−2
HTF.cabal view
@@ -1,5 +1,5 @@ Name: HTF-Version: 0.6.0.0+Version: 0.6.0.1 License: LGPL License-File: LICENSE Copyright: (c) 2005-2010 Stefan Wehr@@ -46,12 +46,12 @@ Library Build-Depends: HUnit == 1.2.*,- QuickCheck == 2.1.*,+ QuickCheck >= 2.1 && < 2.4, base >= 4 && < 5, random == 1.0.*,- containers == 0.3.*,+ containers >= 0.3 && < 0.5, process == 1.0.*,- directory == 1.0.*,+ directory >= 1.0 && < 1.2, mtl >= 1.1 && < 2.1, pretty == 1.0.* Exposed-Modules:
Test/Framework/QuickCheckWrapper.hs view
@@ -81,8 +81,8 @@ (\e -> return $ Left (show (e::SomeException))) case res of Left err -> quickCheckTestError (Just err)- Right (Success _) -> return ()- Right (Failure gen size _ _) -> + Right (Success {}) -> return ()+ Right (Failure { usedSize=size, usedSeed=gen }) -> do putStrLn ("Replay argument: " ++ (show (show (Just (gen, size))))) quickCheckTestFail Nothing