diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2015-02-18 19:57:48 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2015-02-18 21:09:07 +0000 |
| commit | 1a7a99161a6a41d8eba7ce02482eeaf0b0ba75d5 (patch) | |
| tree | f74f32feb3b2e9eb436dc4a076a549491e0f55e9 /tests/Tests/Old.hs | |
| parent | 70e0c4d41b94edcc611a652c2f02973aff667121 (diff) | |
Update tests
Diffstat (limited to 'tests/Tests/Old.hs')
| -rw-r--r-- | tests/Tests/Old.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/Tests/Old.hs b/tests/Tests/Old.hs index 5bdf325b1..047ad0481 100644 --- a/tests/Tests/Old.hs +++ b/tests/Tests/Old.hs @@ -18,6 +18,7 @@ import Prelude hiding ( readFile ) import qualified Data.ByteString.Lazy as B import Text.Pandoc.UTF8 (toStringLazy) import Text.Printf +import Text.Pandoc.Error readFileUTF8 :: FilePath -> IO String readFileUTF8 f = B.readFile f >>= return . toStringLazy @@ -182,7 +183,7 @@ lhsReaderTest :: String -> Test lhsReaderTest format = testWithNormalize normalizer "lhs" ["-r", format, "-w", "native"] ("lhs-test" <.> format) norm - where normalizer = writeNative def . normalize . readNative + where normalizer = writeNative def . normalize . handleError . readNative norm = if format == "markdown+lhs" then "lhs-test-markdown.native" else "lhs-test.native" |