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
|
# Description: Correct broken links in documentation
# Some " were left without a quote in the documentation. This patch only
# changes them to \".
# Bug: http://sourceforge.net/tracker/?func=detail&aid=2955563&group_id=46796&atid=447396
# Forwarded: http://sourceforge.net/tracker/download.php?group_id=46796&atid=447396&file_id=363731&aid=2955563
# Author: Marco Túlio Gontijo e Silva <marcot@debian.org>
# Last-Update: 2010-02-20
--- a/Test/HUnit.hs
+++ b/Test/HUnit.hs
@@ -12,17 +12,17 @@
-- Define test cases as appropriate:
--
-- @
--- test1 = TestCase (assertEqual "for (foo 3)," (1,2) (foo 3))
+-- 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
+-- assertEqual \"for the first result of partA,\" 5 x
-- b <- partB y
--- assertBool ("(partB " ++ show y ++ ") failed") b)
+-- assertBool (\"(partB \" ++ show y ++ \") failed\") b)
-- @
--
-- Name the test cases and group them together:
--
-- @
--- tests = TestList [TestLabel "test1" test1, TestLabel "test2" test2]
+-- tests = TestList [TestLabel \"test1\" test1, TestLabel \"test2\" test2]
-- @
--
-- Run the tests as a group. At a Haskell interpreter prompt, apply the function
@@ -51,10 +51,10 @@
-- 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" ]
+-- 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:
|
