diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-01-19 09:38:14 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-19 09:38:14 -0800 |
| commit | 831889bebcca9e226e8868396d3b707c57e871b9 (patch) | |
| tree | f8f6c4fa7a782ccc6c79c329f342eae1bd77198d /tests/Tests/Readers | |
| parent | 608d5bc75397b3c20e808ff227d15d5a6c3a8964 (diff) | |
| download | pandoc-831889bebcca9e226e8868396d3b707c57e871b9.tar.gz | |
Unit tests: On failure, print the input string.
Diffstat (limited to 'tests/Tests/Readers')
| -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 3a0a9b57a..71eaff79f 100644 --- a/tests/Tests/Readers/LaTeX.hs +++ b/tests/Tests/Readers/LaTeX.hs @@ -7,8 +7,8 @@ import Text.Pandoc.Builder import Text.Pandoc import Text.Pandoc.Shared (normalize) -latex :: String -> Pandoc -latex = normalize . readLaTeX defaultParserState{stateSmart = True} +latex :: String -> (String, Pandoc) +latex s = (s, normalize . readLaTeX defaultParserState{stateSmart = True} $ s) tests :: [Test] tests = [ testGroup "basic" |