aboutsummaryrefslogtreecommitdiff
path: root/tests/Tests/Writers/ConTeXt.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2013-01-23 08:47:43 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2013-01-23 19:26:39 -0800
commitdaeb52d4e0f21b0e1ad8c3ce17ee9f18a6394f63 (patch)
tree40a9791fdff806ce599635bd0c5d5fbfb54f8cdc /tests/Tests/Writers/ConTeXt.hs
parent9c299d282f943fd4db076b09b1901309e19308bd (diff)
downloadpandoc-daeb52d4e0f21b0e1ad8c3ce17ee9f18a6394f63.tar.gz
Eliminated use of TH in test suite.
Diffstat (limited to 'tests/Tests/Writers/ConTeXt.hs')
-rw-r--r--tests/Tests/Writers/ConTeXt.hs36
1 files changed, 18 insertions, 18 deletions
diff --git a/tests/Tests/Writers/ConTeXt.hs b/tests/Tests/Writers/ConTeXt.hs
index 1beed33bb..8f0305adb 100644
--- a/tests/Tests/Writers/ConTeXt.hs
+++ b/tests/Tests/Writers/ConTeXt.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE OverloadedStrings, QuasiQuotes #-}
+{-# LANGUAGE OverloadedStrings #-}
module Tests.Writers.ConTeXt (tests) where
import Test.Framework
@@ -48,23 +48,23 @@ tests = [ testGroup "inline code"
[ "nested" =:
bulletList [
plain (text "top")
- <> bulletList [
- plain (text "next")
- <> bulletList [plain (text "bot")]
- ]
- ] =?> [_LIT|
-\startitemize[packed]
-\item
- top
- \startitemize[packed]
- \item
- next
- \startitemize[packed]
- \item
- bot
- \stopitemize
- \stopitemize
-\stopitemize|]
+ <> bulletList [
+ plain (text "next")
+ <> bulletList [plain (text "bot")]
+ ]
+ ] =?> unlines
+ [ "\\startitemize[packed]"
+ , "\\item"
+ , " top"
+ , " \\startitemize[packed]"
+ , " \\item"
+ , " next"
+ , " \\startitemize[packed]"
+ , " \\item"
+ , " bot"
+ , " \\stopitemize"
+ , " \\stopitemize"
+ , "\\stopitemize" ]
]
]