diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-09-04 12:14:31 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-09-04 19:55:53 -0400 |
| commit | 313355e37308b39139c2cb6681bf255b45669946 (patch) | |
| tree | 7621e1525a6752dfded215924685b108e1a04738 | |
| parent | 73b887e2df06476bda567223f13d41bb34586f64 (diff) | |
Org reader: Update Tests
Test for markup after blank line.
| -rw-r--r-- | tests/Tests/Readers/Org.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/Tests/Readers/Org.hs b/tests/Tests/Readers/Org.hs index cc4e495f3..b9896e1b0 100644 --- a/tests/Tests/Readers/Org.hs +++ b/tests/Tests/Readers/Org.hs @@ -126,6 +126,10 @@ tests = , (emph "b") <> "." ]) + , "Markup should work properly after a blank line" =: + unlines ["foo", "", "/bar/"] =?> + (para $ text "foo") <> (para $ emph $ text "bar") + , "Inline math must stay within three lines" =: unlines [ "$a", "b", "c$", "$d", "e", "f", "g$" ] =?> para ((math "a\nb\nc") <> space <> @@ -944,7 +948,7 @@ tests = , "" , "#+RESULTS:" , ": 65" ] =?> - rawBlock "html" "" + rawBlock "html" "" , "Example block" =: unlines [ "#+begin_example" |