diff options
| -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, ['']) |