aboutsummaryrefslogtreecommitdiff
path: root/tests/unit-tests/parsetests.hs
diff options
context:
space:
mode:
authorSimon Hengel <simon.hengel@wiktory.org>2011-04-08 17:09:28 +0000
committerSimon Hengel <simon.hengel@wiktory.org>2011-04-08 17:09:28 +0000
commit6889ef69d6ffad53a292555615df2c2b336f93db (patch)
tree5a5bed955ecc1261aee6f88e8200f05b88627793 /tests/unit-tests/parsetests.hs
parent3a048f0e823f21133ee7d24d066ddf6bd053379d (diff)
Add support for blank lines in the result of examples
Result lines that only contain the string "<BLANKLINE>" are treated as a blank line.
Diffstat (limited to 'tests/unit-tests/parsetests.hs')
-rw-r--r--tests/unit-tests/parsetests.hs6
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/unit-tests/parsetests.hs b/tests/unit-tests/parsetests.hs
index a76e476e..e0645401 100644
--- a/tests/unit-tests/parsetests.hs
+++ b/tests/unit-tests/parsetests.hs
@@ -41,6 +41,12 @@ tests = [
input = "foobar\n> some code"
, result = Nothing -- parse error
}
+
+ -- test <BLANKLINE> support
+ , ParseTest {
+ input = ">>> putFooBar\nfoo\n<BLANKLINE>\nbar"
+ , result = Just $ DocExamples $ [Example "putFooBar" ["foo","","bar"]]
+ }
]