Merge branch 'case-split-crash-test' into release-5.6.0.0

2016-05-15 03:43:55 +03:00 · 2016-05-15 03:43:55 +03:00 · 97dbcef96d
parent ef8349f19a 8e2c6fd083
commit 97dbcef96d
2 changed files with 9 additions and 0 deletions
--- a/test/CaseSplitSpec.hs
+++ b/test/CaseSplitSpec.hs
@ -39,3 +39,8 @@ spec = do
                res `shouldBe` "38 21 38 59"++
                        " \"mlReverse' Nil accum = _mlReverse_body\NUL"++
                        "                    mlReverse' (Cons xs'1 xs'2) accum = _mlReverse_body\"\n"
+
+        it "doesn't crash when source doesn't make sense" $
+            withDirectory_ "test/data/case-split" $ do
+                res <- runD $ splits "Crash.hs" 4 6
+                res `shouldBe` []
--- a/test/data/case-split/Crash.hs
+++ b/test/data/case-split/Crash.hs
@ -0,0 +1,4 @@
+module Crash where
+
+test :: Maybe a
+test x = undefined