diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/RunTests.hs | 2 | ||||
| -rw-r--r-- | tests/markdown-reader-more.native | 5 | ||||
| -rw-r--r-- | tests/markdown-reader-more.txt | 6 |
3 files changed, 11 insertions, 2 deletions
diff --git a/tests/RunTests.hs b/tests/RunTests.hs index 94b56d04d..0d8a1a6a1 100644 --- a/tests/RunTests.hs +++ b/tests/RunTests.hs @@ -96,7 +96,7 @@ main = do "testsuite.txt" "testsuite.native" r7 <- runTest "markdown reader (tables)" ["-r", "markdown", "-w", "native"] "tables.txt" "tables.native" - r7a <- runTest "markdown reader (more)" ["-r", "markdown", "-w", "native"] + r7a <- runTest "markdown reader (more)" ["-r", "markdown", "-w", "native", "-S"] "markdown-reader-more.txt" "markdown-reader-more.native" r8 <- runTest "rst reader" ["-r", "rst", "-w", "native", "-s", "-S"] "rst-reader.rst" "rst-reader.native" diff --git a/tests/markdown-reader-more.native b/tests/markdown-reader-more.native index 55968af32..784b14ccc 100644 --- a/tests/markdown-reader-more.native +++ b/tests/markdown-reader-more.native @@ -45,4 +45,7 @@ Pandoc (Meta {docTitle = [Str "Title",Space,Str "spanning",Space,Str "multiple", , Header 2 [Str "Case",Str "-",Str "insensitive",Space,Str "references"] , Para [Link [Str "Fum"] ("/fum","")] , Para [Link [Str "FUM"] ("/fum","")] -, Para [Link [Str "bat"] ("/bat","")] ] +, Para [Link [Str "bat"] ("/bat","")] +, Header 2 [Str "Curly",Space,Str "smart",Space,Str "quotes"] +, Para [Quoted DoubleQuote [Str "Hi"]] +, Para [Quoted SingleQuote [Str "Hi"]] ] diff --git a/tests/markdown-reader-more.txt b/tests/markdown-reader-more.txt index dd43a5df3..f4540d84d 100644 --- a/tests/markdown-reader-more.txt +++ b/tests/markdown-reader-more.txt @@ -116,3 +116,9 @@ $\tuple{x,y}$ [fum]: /fum [BAT]: /bat + +## Curly smart quotes + +“Hi” + +‘Hi’ |