diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/html-tests/tests/Examples.hs | 5 | ||||
| -rw-r--r-- | tests/html-tests/tests/Examples.html.ref | 12 | ||||
| -rw-r--r-- | tests/unit-tests/parsetests.hs | 6 |
3 files changed, 23 insertions, 0 deletions
diff --git a/tests/html-tests/tests/Examples.hs b/tests/html-tests/tests/Examples.hs index 7b703428..c8c450f1 100644 --- a/tests/html-tests/tests/Examples.hs +++ b/tests/html-tests/tests/Examples.hs @@ -28,6 +28,11 @@ module Examples where -- >>> isSpace 'a' -- False -- +-- >>> putStrLn "foo\n\nbar" +-- foo +-- <BLANKLINE> +-- bar +-- fib :: Integer -> Integer fib 0 = 0 fib 1 = 1 diff --git a/tests/html-tests/tests/Examples.html.ref b/tests/html-tests/tests/Examples.html.ref index 69b2fda4..61fcff1c 100644 --- a/tests/html-tests/tests/Examples.html.ref +++ b/tests/html-tests/tests/Examples.html.ref @@ -136,6 +136,18 @@ window.onload = function () {pageLoad();setSynopsis("mini_Examples.html");}; ></strong >False </pre + ><pre class="screen" + ><code class="prompt" + >>>> </code + ><strong class="userinput" + ><code + >putStrLn "foo\n\nbar" +</code + ></strong + >foo + +bar +</pre ></div ></div ></div 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"]] + } ] |