diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-07-13 13:47:09 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-07-13 13:47:09 -0700 |
| commit | 35e2caa05863002acb64ce34504fb4424d2bc441 (patch) | |
| tree | cb02da8ffecbfb0aed0bc837a1500340e45c59ec /tests/Tests/Writers/HTML.hs | |
| parent | 837a9bf87a3768b9427977eb8a19c1b154fc9c9c (diff) | |
Updated a test whose output changed due to last commit.
Diffstat (limited to 'tests/Tests/Writers/HTML.hs')
| -rw-r--r-- | tests/Tests/Writers/HTML.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/tests/Tests/Writers/HTML.hs b/tests/Tests/Writers/HTML.hs index 1693f2fc1..84f4db191 100644 --- a/tests/Tests/Writers/HTML.hs +++ b/tests/Tests/Writers/HTML.hs @@ -6,7 +6,6 @@ import Text.Pandoc.Builder import Text.Pandoc import Tests.Helpers import Tests.Arbitrary() -import Text.Highlighting.Kate (languages) -- null if no hl support html :: (ToString a, ToPandoc a) => a -> String html = writeHtmlString def{ writerWrapText = False } . toPandoc @@ -32,9 +31,7 @@ tests :: [Test] tests = [ testGroup "inline code" [ "basic" =: code "@&" =?> "<code>@&</code>" , "haskell" =: codeWith ("",["haskell"],[]) ">>=" - =?> if null languages - then "<code class=\"haskell\">>>=</code>" - else "<code class=\"sourceCode haskell\"><span class=\"fu\">>>=</span></code>" + =?> "<code class=\"haskell\">>>=</code>" , "nolanguage" =: codeWith ("",["nolanguage"],[]) ">>=" =?> "<code class=\"nolanguage\">>>=</code>" ] |