1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
-- | 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 /T/ext orientation
-- with output to the /T/erminal.)
--
-- @
-- \> 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
-- \>
-- @
module Test.HUnit
(
module Test.HUnit.Base,
module Test.HUnit.Text
)
where
import Test.HUnit.Base
import Test.HUnit.Text
|
