Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/f492a9842db11c8e5af12bc97ea158fa1fc6cbcd >--------------------------------------------------------------- commit f492a9842db11c8e5af12bc97ea158fa1fc6cbcd Author: Simon Marlow <[email protected]> Date: Wed Nov 16 16:16:28 2011 +0000 add test for #5238 >--------------------------------------------------------------- tests/concurrent/should_run/5238.hs | 12 ++++++++++++ tests/concurrent/should_run/5238.stdout | 1 + tests/concurrent/should_run/all.T | 1 + 3 files changed, 14 insertions(+), 0 deletions(-) diff --git a/tests/concurrent/should_run/5238.hs b/tests/concurrent/should_run/5238.hs new file mode 100644 index 0000000..87c1530 --- /dev/null +++ b/tests/concurrent/should_run/5238.hs @@ -0,0 +1,12 @@ +{-# LANGUAGE UnicodeSyntax #-} +{-# LANGUAGE ScopedTypeVariables #-} + +import Control.Exception +import Control.Concurrent.STM + +main = do + ms1 â getMaskingState + atomically $ (throwSTM Overflow) `catchSTM` + (\(e â· SomeException) â return ()) + ms2 â getMaskingState + putStrLn $ show (ms1, ms2) diff --git a/tests/concurrent/should_run/5238.stdout b/tests/concurrent/should_run/5238.stdout new file mode 100644 index 0000000..8262bfa --- /dev/null +++ b/tests/concurrent/should_run/5238.stdout @@ -0,0 +1 @@ +(Unmasked,Unmasked) diff --git a/tests/concurrent/should_run/all.T b/tests/concurrent/should_run/all.T index ccef92d..1daa7f2 100644 --- a/tests/concurrent/should_run/all.T +++ b/tests/concurrent/should_run/all.T @@ -67,6 +67,7 @@ test('5558', test('5421', normal, compile_and_run, ['']) test('5611', normal, compile_and_run, ['']) +test('5238', normal, compile_and_run, ['']) # ----------------------------------------------------------------------------- # These tests we only do for a full run
_______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
