From 52b6e38425ca4ce1b95fa8e92daaa7f10f7d3a5b Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 20 Jan 2011 22:36:40 -0800 Subject: Updated tests for new native format. --- tests/Tests/Old.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'tests/Tests') diff --git a/tests/Tests/Old.hs b/tests/Tests/Old.hs index 50b6b2111..d73d731fb 100644 --- a/tests/Tests/Old.hs +++ b/tests/Tests/Old.hs @@ -12,6 +12,7 @@ import System.Exit import Data.Algorithm.Diff import Text.Pandoc.Shared ( substitute, normalize, defaultWriterOptions ) import Text.Pandoc.Writers.Native ( writeNative ) +import Text.Pandoc.Readers.Native ( readNative ) import Text.Pandoc.Highlighting ( languages ) import Prelude hiding ( readFile ) import qualified Data.ByteString.Lazy as B @@ -128,7 +129,7 @@ lhsReaderTest :: String -> Test lhsReaderTest format = testWithNormalize normalizer "lhs" ["-r", format, "-w", "native"] ("lhs-test" <.> format) "lhs-test.native" - where normalizer = writeNative defaultWriterOptions . normalize . read + where normalizer = writeNative defaultWriterOptions . normalize . readNative latexCitationTests :: String -> Test latexCitationTests n -- cgit v1.2.3