Ticket #8035: testsuite-8035.patch

File testsuite-8035.patch, 733 bytes (added by errge, 2 years 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, [''])