diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2013-09-30 21:20:17 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2013-10-01 11:46:30 +0100 |
| commit | b9ce2d5723328578c84843f19aba335fa17846a5 (patch) | |
| tree | c487616725090f1c4e438b5da7c602b4dfd4b1af | |
| parent | 82cd258f08def79774f6d859a534a36f786e2d10 (diff) | |
| download | haskell-b9ce2d5723328578c84843f19aba335fa17846a5.tar.gz | |
new test cases for MultiWayIf w/ layout
| -rw-r--r-- | testsuite/tests/parser/should_run/ParserMultiWayIf.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/testsuite/tests/parser/should_run/ParserMultiWayIf.hs b/testsuite/tests/parser/should_run/ParserMultiWayIf.hs index 83bd2e94a7..9e69a8ff81 100644 --- a/testsuite/tests/parser/should_run/ParserMultiWayIf.hs +++ b/testsuite/tests/parser/should_run/ParserMultiWayIf.hs @@ -7,9 +7,14 @@ x1 = if | x < 10 -> "< 10" | otherwise -> "" x2 = if | x < 10 -> "< 10" | otherwise -> "" x3 = if | x < 10 -> "< 10" - | otherwise -> "" + | otherwise -> "" x4 = if | True -> "yes" x5 = if | True -> if | False -> 1 | True -> 2 -main = print $ x5 == 2 +x6 = if | x < 10 -> if | True -> "yes" + | False -> "no" + | otherwise -> "maybe" + +x7 = (if | True -> 0) +main = print $ x5 == 2 && x6 == "maybe" && x7 == 0 |