diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2015-08-11 10:23:05 +0200 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2015-08-11 11:01:20 +0200 |
| commit | a68786bcfb146758795b982040ca7249c687a469 (patch) | |
| tree | 8cf01d3f2fcb9221d6f49ca7a5e6b52848b6ca6a /p | |
| parent | 18fb9e4b4dcb3a7741824fd94d6fab3dcaf30b04 (diff) | |
| download | DHG_packages-a68786bcfb146758795b982040ca7249c687a469.tar.gz | |
hunit patch: Fix line ending
Diffstat (limited to 'p')
| -rw-r--r-- | p/haskell-hunit/debian/patches/broken_links.patch | 70 |
1 files changed, 35 insertions, 35 deletions
diff --git a/p/haskell-hunit/debian/patches/broken_links.patch b/p/haskell-hunit/debian/patches/broken_links.patch index 392a0343e..c6bfc592f 100644 --- a/p/haskell-hunit/debian/patches/broken_links.patch +++ b/p/haskell-hunit/debian/patches/broken_links.patch @@ -10,39 +10,39 @@ Index: HUnit-1.2.2.1/Test/HUnit.hs --- HUnit-1.2.2.1.orig/Test/HUnit.hs 2010-02-20 11:08:41.000000000 -0200 +++ HUnit-1.2.2.1/Test/HUnit.hs 2010-02-20 11:09:16.000000000 -0200 @@ -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 + -- 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: + -- 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:
|