assertnotequal

This commit is contained in:
Simon Michael 2008-10-10 11:11:49 +00:00
parent 77b7de1b5f
commit 9b5a35b5d2

View File

@ -41,6 +41,7 @@ import Text.ParserCombinators.Parsec (parse)
-- testing
assertequal e a = assertEqual "" e a
assertnotequal e a = assertBool "expected inequality, got equality" (e /= a)
parsewith p ts = parse p "" ts