Ticket #8035: testsuite-8035.patch

File testsuite-8035.patch, 733 bytes (added by errge, 21 months ago)

test to reproduce the issue inside the testsuite

  • new file tests/rts/T8035.hs

    diff --git a/tests/rts/T8035.hs b/tests/rts/T8035.hs
    new file mode 100644
    index 0000000..73afc7f
    - +  
     1{-# LANGUAGE ScopedTypeVariables #-} 
     2 
     3import Control.Exception 
     4import Control.Monad 
     5import GHC.Conc 
     6 
     7main = join $ atomically $ do 
     8  catchSTM 
     9    (throwSTM ThreadKilled `orElse` return (putStrLn "wtf")) 
     10    (\(e::SomeException) -> return (putStrLn "ok")) 
  • tests/rts/all.T

    diff --git a/tests/rts/all.T b/tests/rts/all.T
    index 9a7f2fe..5b31ced 100644
    a b test('T7919', [extra_clean(['T7919A.o','T7919A.hi', 
    179179               when(fast(),skip) ], 
    180180             compile_and_run, ['']) 
    181181 
     182test('T8035', normal, compile_and_run, [''])