diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-01-20 22:38:16 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-20 22:38:16 -0800 |
| commit | e5e2b0f9abc96fd30bfcec1b2653374e34b9c6dd (patch) | |
| tree | 4a7e6994e9a26a5033882c31bf0ad9fd048abfef /tests/Tests/Readers/LaTeX.hs | |
| parent | 52b6e38425ca4ce1b95fa8e92daaa7f10f7d3a5b (diff) | |
Fixed the two test cases that were intentionally set to fail.
Diffstat (limited to 'tests/Tests/Readers/LaTeX.hs')
| -rw-r--r-- | tests/Tests/Readers/LaTeX.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Tests/Readers/LaTeX.hs b/tests/Tests/Readers/LaTeX.hs index 71eaff79f..55bd0400f 100644 --- a/tests/Tests/Readers/LaTeX.hs +++ b/tests/Tests/Readers/LaTeX.hs @@ -13,7 +13,7 @@ latex s = (s, normalize . readLaTeX defaultParserState{stateSmart = True} $ s) tests :: [Test] tests = [ testGroup "basic" [ "simple" =: - latex "word" =?> str "wor d" + latex "word" =?> str "word" , "space" =: latex "some text" =?> text "some text" , "emphasized" =: @@ -29,7 +29,7 @@ tests = [ testGroup "basic" latex "\\subsubsection{header}" =?> header 3 (str "header") , "emph" =: latex "\\section{text \\emph{emph}}" =?> - header 1 (str "text2" +++ space +++ emph (str "emph")) + header 1 (str "text" +++ space +++ emph (str "emph")) , "link" =: latex "\\section{text \\href{/url}{link}}" =?> header 1 (str "text" +++ space +++ link "/url" "" (str "link")) |