HTF 0.3 → 0.3.1

raw patch · 3 files changed

+9/−4 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• HTF.cabal +1/−1
• Test/Framework/HUnitWrapper.hs +1/−1
• Test/Framework/HaskellParser.hs +7/−2

@@ -1,5 +1,5 @@ Name:             HTF-Version:          0.3+Version:          0.3.1 License:          LGPL License-File:     LICENSE Copyright:        (c) 2005-2010 Stefan Wehr

@@ -117,7 +117,7 @@ assertNotEmpty_ _ (_:_) = return ()  assertEmpty_ :: Location -> [a] -> HU.Assertion-assertEmpty_ loc (_:_) = assertFailure ("assertNull failed at " ++ showLoc loc)+assertEmpty_ loc (_:_) = assertFailure ("assertEmpty failed at " ++ showLoc loc) assertEmpty_ loc [] = return ()  assertThrows_ :: Exception e => Location -> a -> (e -> Bool) -> HU.Assertion

@@ -54,8 +54,12 @@       fixedInput :: String       fixedInput = (input ++ "\n") {- the parser fails if the last line is a                                       line comment not ending with \n -}+      {- FIXME: fixities needed for all operators. Heuristic:+         all operators are considered to be any sequence+         of the symbols _:"'>!#$%&*+./<=>?@\^|-~ with at most length 8 -}       parseMode :: Parser.ParseMode-      parseMode = Parser.defaultParseMode { Parser.parseFilename = originalFileName+      parseMode = Parser.defaultParseMode { Parser.parseFilename =+                                              originalFileName                                           , Parser.extensions =                                               Ext.glasgowExts ++                                               [Ext.ExplicitForall]@@ -66,7 +70,8 @@                           imports decls) =           Module moduleName (map transformImport imports)                             (mapMaybe transformDecl decls)-      transformImport (Syn.ImportDecl loc (Syn.ModuleName s) qualified _ _ alias _) =+      transformImport (Syn.ImportDecl loc (Syn.ModuleName s)+                                      qualified _ _ alias _) =           let alias' = case alias of                          Nothing -> Nothing                          Just (Syn.ModuleName s) -> Just s