Commit e402b821 authored by dimitris's avatar dimitris
Browse files

Merge branch 'master' of http://darcs.haskell.org/testsuite

parents 40d4f9fc 6fe9d966
{-# 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)
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment