hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Testcase for case-split crash

Browse Source
This commit is contained in:
Nikolay Yakimov 2016-03-15 23:33:28 +03:00
parent c925e920a0
commit 8e2c6fd083
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/CaseSplitSpec.hs
View File

@ -39,3 +39,8 @@ spec = do
res `shouldBe` "38 21 38 59"++ res `shouldBe` "38 21 38 59"++
" \"mlReverse' Nil accum = _mlReverse_body\NUL"++ " \"mlReverse' Nil accum = _mlReverse_body\NUL"++
" mlReverse' (Cons xs'1 xs'2) accum = _mlReverse_body\"\n" " 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` []

4
test/data/case-split/Crash.hs Normal file
View File

@ -0,0 +1,4 @@
module Crash where
test :: Maybe a
test x = undefined