HUnit-1.2.5.2: A unit testing framework for Haskell

Safe Haskell | None

Test.HUnit

Description

HUnit is a unit testing framework for Haskell, inspired by the JUnit tool for Java. This guide describes how to use HUnit, assuming you are familiar with Haskell, though not necessarily with JUnit.

In the Haskell module where your tests will reside, import module `Test.HUnit`:

        import Test.HUnit

Define test cases as appropriate:

        test1 = TestCase (assertEqual for (foo 3), (1,2) (foo 3))
        test2 = TestCase (do (x,y) <- partA 3
                             assertEqual for the first result of partA, 5 x
                             b <- partB y
                             assertBool ((partB  ++ show y ++ ) failed) b)

Name the test cases and group them together:

        tests = TestList [TestLabel test1 test1, TestLabel test2 test2]

Run the tests as a group. At a Haskell interpreter prompt, apply the function `runTestTT` to the collected tests. (The TT suggests Text orientation with output to the Terminal.)

        > runTestTT tests
        Cases: 2  Tried: 2  Errors: 0  Failures: 0
        >

If the tests are proving their worth, you might see:

        > runTestTT tests
        # Failure in: 0:test1
        for (foo 3),
        expected: (1,2)
         but got: (1,3)
        Cases: 2  Tried: 2  Errors: 0  Failures: 1
        >

You can specify tests even more succinctly using operators and overloaded functions that HUnit provides:

        tests = test [ test1 ~: (foo 3) ~: (1,2) ~=? (foo 3),
                       test2 ~: do (x, y) <- partA 3
                                     assertEqual for the first result of partA, 5 x
                                     partB y @? (partB  ++ show y ++ ) failed ]

Assuming the same test failures as before, you would see:

        > runTestTT tests
        # Failure in: 0:test1:(foo 3)
        expected: (1,2)
         but got: (1,3)
        Cases: 2  Tried: 2  Errors: 0  Failures: 1
        >

# Documentation

module Test.HUnit.Base

module Test.HUnit.Text