barrucadu/dejafu
1
1
Fork 0
mirror of https://github.com/barrucadu/dejafu.git synced 2024-11-23 22:23:18 +03:00
Code Issues Projects Releases Wiki Activity

Add a test case exhibiting #139

Browse Source
This commit is contained in:
Michael Walker 2017-10-21 19:03:37 +01:00
parent 060e18acc5
commit 5838a921b7
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
dejafu-tests/Cases/Regressions.hs
View File

@ -49,4 +49,10 @@ tests =
catchSomeException
(uninterruptibleMask_ (throw ThreadKilled))
(\_ -> myThreadId >>= killThread)
, djfu "https://github.com/barrucadu/dejafu/issues/139" (failing $ gives' [()]) $
catchSomeException
(catchSomeException (throw ThreadKilled) (\_ -> pure ())
>> throw ThreadKilled)
(\_ -> pure ())
]