Add a test for #8035; patch from errge

ghc · Jul 7, 2013 · e9a3f72 · e9a3f72
1 parent ae3dae9
commit e9a3f72
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/tests/rts/T8035.hs b/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/tests/rts/all.T b/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, [''])