The Monad.Reader/Issue5/Software Testing With Haskell
Software Testing With Haskell
- by ShaeErisson for The Monad.Reader Issue 5, Date: 2005-10-02T21:05:41Z
Both HUnit and QuickCheck are included with GHC 6.4.1 under the module names of Test.HUnit and Test.QuickCheck
HUnit was written by Dean Herington and is available on SourceForge at http://hunit.sourceforge.net/ .
If you've ever used the xUnit framework in other programming languages, HUnit will feel familiar. The User's Guide includes a 'getting started' started section, and there are a thousand introductions to various flavors of the xUnit framework, so we'll mention HUnit only briefly.
From the user's guide:
"Tests are specified compositionally. Assertions are combined to make a test case, and test cases are combined into tests."
Here's a short demo:
module ProtoHunit where import Test.HUnit import Test.HUnit testList = TestList -- construct a TestList from a list of type TestCase [TestCase $ -- construct a TestCase from an assertion assertEqual "description" 2 (1 + 1) -- construct an assertion from a descriptive string, an expected result, and something to execute ] t = runTestTT testList
QuickCheck was written by Koen Claessan and John Hughes, and is available from Chalmers at http://www.cs.chalmers.se/~rjmh/QuickCheck/ .
QuickCheck takes a dramatically different approach to software testing. The programmer specifies a property that the code should follow, and the QuickCheck library generates random values and checks to see if the property always holds.
Some demonstration properties are given below.
module ProtoQuickCheck where import Test.QuickCheck -- this succeeds in one case of the input. prop_Fail :: Int -> Bool prop_Fail x = x == 1 -- this succeeds in three cases of the input. prop_RevUnit :: [Int] -> Bool prop_RevUnit x = reverse x == x -- what's wrong with this picture? prop_RevUnitConfusion :: [Int] -> Bool prop_RevUnitConfusion x = reverse [x] == [x] -- do you see a bug? prop_RevApp :: [Int] -> [Int] -> Bool prop_RevApp xs ys = reverse (xs ++ ys) == reverse xs ++ reverse ys prop_RevRev :: [Int] -> Bool prop_RevRev xs = reverse (reverse xs) == xs (f === g) x = f x == g x prop_CompAssoc :: (Int -> Int) -> (Int -> Int) -> (Int -> Int) -> Int -> Bool prop_CompAssoc f g h = (f . (g . h)) === ((f . g) . h) prop_CompCommut :: (Int -> Int) -> (Int -> Int) -> Int -> Bool prop_CompCommut f g = (f . g) === (g . f) -- this operator ==> -- means filter inputs by that condition -- below an x and y are only accepted if x is less than or equal to y prop_MaxLe :: Int -> Int -> Property prop_MaxLe x y = x <= y ==> max x y == y instance Show (a -> b) where show _ = "<<function>>"
To test one of these properties, load the source into ghci and run quickCheck prop_Fail. One possible response is:
Falsifiable, after 0 tests: -1
Int -> Bool
The Haskell wiki has information on one button unit testing with the emacs haskell-mode.
Other libraries and applications that deal with software testing in Haskell are mentioned below, but are beyond the scope of this short introduction.