diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-07-07 19:07:16 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-07-07 19:07:16 +0100 |
| commit | 5d621d59f77e7fd97a507888c4dfa85804a7aac2 (patch) | |
| tree | 0a882b8ab40be094e1ea2e928ca96db209df478c /testsuite/tests/rts | |
| parent | 3248b3a7af49da47783f215e0c798b92bdfcd511 (diff) | |
| download | haskell-5d621d59f77e7fd97a507888c4dfa85804a7aac2.tar.gz | |
Add a test for #8035; patch from errge
Diffstat (limited to 'testsuite/tests/rts')
| -rw-r--r-- | testsuite/tests/rts/T8035.hs | 10 | ||||
| -rw-r--r-- | testsuite/tests/rts/all.T | 1 |
2 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/rts/T8035.hs b/testsuite/tests/rts/T8035.hs new file mode 100644 index 0000000000..73afc7f205 --- /dev/null +++ b/testsuite/tests/rts/T8035.hs @@ -0,0 +1,10 @@ +{-# LANGUAGE ScopedTypeVariables #-} + +import Control.Exception +import Control.Monad +import GHC.Conc + +main = join $ atomically $ do + catchSTM + (throwSTM ThreadKilled `orElse` return (putStrLn "wtf")) + (\(e::SomeException) -> return (putStrLn "ok")) diff --git a/testsuite/tests/rts/all.T b/testsuite/tests/rts/all.T index 9a7f2fe275..46c368f3de 100644 --- a/testsuite/tests/rts/all.T +++ b/testsuite/tests/rts/all.T @@ -179,3 +179,4 @@ test('T7919', [extra_clean(['T7919A.o','T7919A.hi', when(fast(),skip) ], compile_and_run, ['']) +test('T8035', normal, compile_and_run, ['']) |