diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Tests/Old.hs | 8 | ||||
| -rw-r--r-- | tests/Tests/Readers/Markdown.hs | 3 | ||||
| -rw-r--r-- | tests/Tests/Readers/Org.hs | 3 |
3 files changed, 8 insertions, 6 deletions
diff --git a/tests/Tests/Old.hs b/tests/Tests/Old.hs index c52a368e2..f9a8a71d5 100644 --- a/tests/Tests/Old.hs +++ b/tests/Tests/Old.hs @@ -47,13 +47,13 @@ tests = [ testGroup "markdown" [ testGroup "writer" $ writerTests "markdown" ++ lhsWriterTests "markdown" , testGroup "reader" - [ test "basic" ["-r", "markdown", "-w", "native", "-s", "-S"] + [ test "basic" ["-r", "markdown+smart", "-w", "native", "-s"] "testsuite.txt" "testsuite.native" , test "tables" ["-r", "markdown", "-w", "native", "--columns=80"] "tables.txt" "tables.native" , test "pipe tables" ["-r", "markdown", "-w", "native", "--columns=80"] "pipe-tables.txt" "pipe-tables.native" - , test "more" ["-r", "markdown", "-w", "native", "-s", "-S"] + , test "more" ["-r", "markdown+smart", "-w", "native", "-s"] "markdown-reader-more.txt" "markdown-reader-more.native" , lhsReaderTest "markdown+lhs" ] @@ -65,8 +65,8 @@ tests = [ testGroup "markdown" , testGroup "rst" [ testGroup "writer" (writerTests "rst" ++ lhsWriterTests "rst") , testGroup "reader" - [ test "basic" ["-r", "rst", "-w", "native", - "-s", "-S", "--columns=80"] "rst-reader.rst" "rst-reader.native" + [ test "basic" ["-r", "rst+smart", "-w", "native", + "-s", "--columns=80"] "rst-reader.rst" "rst-reader.native" , test "tables" ["-r", "rst", "-w", "native", "--columns=80"] "tables.rst" "tables-rstsubset.native" , lhsReaderTest "rst+lhs" diff --git a/tests/Tests/Readers/Markdown.hs b/tests/Tests/Readers/Markdown.hs index 3bc8f34ae..ff68b4d3f 100644 --- a/tests/Tests/Readers/Markdown.hs +++ b/tests/Tests/Readers/Markdown.hs @@ -12,7 +12,8 @@ markdown :: String -> Pandoc markdown = purely $ readMarkdown def markdownSmart :: String -> Pandoc -markdownSmart = purely $ readMarkdown def { readerSmart = True } +markdownSmart = purely $ readMarkdown def { readerExtensions = + enableExtension Ext_smart $ readerExtensions def } markdownCDL :: String -> Pandoc markdownCDL = purely $ readMarkdown def { readerExtensions = enableExtension diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs index 96a783045..ed29f1377 100644 --- a/tests/Tests/Readers/Org.hs +++ b/tests/Tests/Readers/Org.hs @@ -12,7 +12,8 @@ org :: String -> Pandoc org = purely $ readOrg def orgSmart :: String -> Pandoc -orgSmart = purely $ readOrg def { readerSmart = True } +orgSmart = purely $ readOrg def { readerExtensions = + enableExtension Ext_smart $ readerExtensions def } infix 4 =: (=:) :: ToString c |