aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2012-08-08 23:18:19 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2012-08-08 23:18:19 -0700
commitdfa4b76630837560189844eb79c83abcb619b0f6 (patch)
tree5b7c1f288b16367fcfef56c7b47051098c56da6a /tests
parent34f1f9716b620e3c50b7298abb6a78055d300ae8 (diff)
downloadpandoc-dfa4b76630837560189844eb79c83abcb619b0f6.tar.gz
Changes to literate haskell options.
- Removed writerLiterateHaskell from WriterOptions. - Removed readerLiterateHaskell from ReaderOptions. - Added Ext_literate_haskell to Extensions. Test for this instead of the above. - Removed failUnlessLHS from Shared. Note: At this point, +lhs and .lhs extension no longer has any effect. Need to fix.
Diffstat (limited to 'tests')
-rw-r--r--tests/Tests/Readers/Markdown.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/Tests/Readers/Markdown.hs b/tests/Tests/Readers/Markdown.hs
index dbb96c15f..8d0b567e9 100644
--- a/tests/Tests/Readers/Markdown.hs
+++ b/tests/Tests/Readers/Markdown.hs
@@ -6,6 +6,7 @@ import Test.Framework
import Tests.Helpers
import Tests.Arbitrary()
import Text.Pandoc.Builder
+import qualified Data.Set as Set
-- import Text.Pandoc.Shared ( normalize )
import Text.Pandoc
@@ -91,7 +92,8 @@ tests = [ testGroup "inline code"
=?> para (note (para "See [^1]"))
]
, testGroup "lhs"
- [ test (readMarkdown def{ readerLiterateHaskell = True })
+ [ test (readMarkdown def{ readerExtensions = Set.insert
+ Ext_literate_haskell $ readerExtensions def })
"inverse bird tracks and html" $
"> a\n\n< b\n\n<div>\n"
=?> codeBlockWith ("",["sourceCode","literate","haskell"],[]) "a"