From 6889ef69d6ffad53a292555615df2c2b336f93db Mon Sep 17 00:00:00 2001
From: Simon Hengel <simon.hengel@wiktory.org>
Date: Fri, 8 Apr 2011 17:09:28 +0000
Subject: Add support for blank lines in the result of examples

Result lines that only contain the string "<BLANKLINE>" are treated as a blank
line.
---
 tests/unit-tests/parsetests.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'tests/unit-tests/parsetests.hs')

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"]]
+    }
   ]
 
 
-- 
cgit v1.2.3