diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-01-21 10:23:41 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-21 10:23:41 -0800 |
| commit | d0726920db29fee60f09c45be2974bf8d9eb464f (patch) | |
| tree | 023a6dc2c0d5a43048dae7a735dd8f9d2bab72b1 /tests/Tests/Helpers.hs | |
| parent | 5c35be13625895f52c66f98be81751b49b1b0365 (diff) | |
| download | pandoc-d0726920db29fee60f09c45be2974bf8d9eb464f.tar.gz | |
Added Tests.Writers.ConTeXt and helpers for writer tests.
Diffstat (limited to 'tests/Tests/Helpers.hs')
| -rw-r--r-- | tests/Tests/Helpers.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/Tests/Helpers.hs b/tests/Tests/Helpers.hs index 6a677f7b9..f8236a54b 100644 --- a/tests/Tests/Helpers.hs +++ b/tests/Tests/Helpers.hs @@ -9,6 +9,11 @@ import Test.Framework import Test.Framework.Providers.HUnit import Test.HUnit hiding (Test) +infix 8 --> + +(-->) :: (Eq a, Show a) => a -> a -> Assertion +a --> e = assertEqual " " e a + -- In the first argument, the String is the input, and the Pandoc -- the output, of a pandoc reader. The input is shown in case -- the test fails. |