diff options
author | John MacFarlane <jgm@berkeley.edu> | 2011-01-21 20:50:18 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-22 10:50:15 -0800 |
commit | 15250859c355634670ce1ad532800bca591dc99b (patch) | |
tree | 39516cc60dfc5c9562add364b5d83394e2fdbe32 /tests/Tests/Readers/LaTeX.hs | |
parent | b3c1a89cdf8fe7fd919d4ccc63aeb19af3273f96 (diff) | |
download | pandoc-15250859c355634670ce1ad532800bca591dc99b.tar.gz |
Improved test framework.
Now there is a uniform interface for reader and writer tests.
Also added a quasiquoter, for multiline strings.
Diffstat (limited to 'tests/Tests/Readers/LaTeX.hs')
-rw-r--r-- | tests/Tests/Readers/LaTeX.hs | 31 |
1 files changed, 18 insertions, 13 deletions
diff --git a/tests/Tests/Readers/LaTeX.hs b/tests/Tests/Readers/LaTeX.hs index 55bd0400f..9db909b17 100644 --- a/tests/Tests/Readers/LaTeX.hs +++ b/tests/Tests/Readers/LaTeX.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE OverloadedStrings #-} module Tests.Readers.LaTeX (tests) where import Text.Pandoc.Definition @@ -5,34 +6,38 @@ import Test.Framework import Tests.Helpers import Text.Pandoc.Builder import Text.Pandoc -import Text.Pandoc.Shared (normalize) -latex :: String -> (String, Pandoc) -latex s = (s, normalize . readLaTeX defaultParserState{stateSmart = True} $ s) +latex :: String -> Pandoc +latex = readLaTeX defaultParserState + +infix 5 =: +(=:) :: ToString c + => String -> (String, c) -> Test +(=:) = test latex tests :: [Test] tests = [ testGroup "basic" [ "simple" =: - latex "word" =?> str "word" + "wo rd" =?> para "word" , "space" =: - latex "some text" =?> text "some text" + "some text" =?> para ("some text") , "emphasized" =: - latex "\\emph{emphasized}" =?> (emph $ str "emphasized") + "\\emph{emphasized}" =?> para (emph "emphasized") ] , testGroup "headers" [ "level 1" =: - latex "\\section{header}" =?> header 1 (str "header") + "\\section{header}" =?> header 1 "header" , "level 2" =: - latex "\\subsection{header}" =?> header 2 (str "header") + "\\subsection{header}" =?> header 2 "header" , "level 3" =: - latex "\\subsubsection{header}" =?> header 3 (str "header") + "\\subsubsection{header}" =?> header 3 "header" , "emph" =: - latex "\\section{text \\emph{emph}}" =?> - header 1 (str "text" +++ space +++ emph (str "emph")) + "\\section{text \\emph{emph}}" =?> + header 1 ("text" +++ space +++ emph "emph") , "link" =: - latex "\\section{text \\href{/url}{link}}" =?> - header 1 (str "text" +++ space +++ link "/url" "" (str "link")) + "\\section{text \\href{/url}{link}}" =?> + header 1 ("text" +++ space +++ link "/url" "" "link") ] ] |