Skip to content

GitLab

Commit fa931a07 authored by simonmar's avatar simonmar
Browse files

[project @ 2006-01-12 16:10:41 by simonmar] 

Add test from ticket #488
parent 2e8bfab9
Hide whitespace changes
Inline Side-by-side
testsuite/tests/ghc-regress/ghci/scripts/all.T
View file @ fa931a07
......@@ -17,3 +17,4 @@ test('ghci011', normal, ghci_script, ['ghci011.script'])
test('ghci012', normal, ghci_script, ['ghci012.script'])
test('ghci013', normal, ghci_script, ['ghci013.script'])
test('ghci014', normal, ghci_script, ['ghci014.script'])
test('ghci015', normal, ghci_script, ['ghci015.script'])
testsuite/tests/ghc-regress/ghci/scripts/ghci015.hs 0 → 100644
View file @ fa931a07
-- Code from ticket #488
module Test where
import Control.Concurrent.STM
import Control.Concurrent
import Control.Exception
import Prelude hiding (catch)
runTest loop = do
(tc1, tc2, tmv) <- atomically (do
tmv <- newEmptyTMVar
tc1 <- newTChan
tc2 <- newTChan
return (tc1, tc2, tmv)
)
myTId <- myThreadId
forkIO (forked loop (tc1, tc2, tmv, myTId))
atomically (writeTChan tc1 "blah")
atomically (writeTChan tc1 "blah2")
return "done"
forked loop args@(tc1, tc2, tmv, hisTId) = catch ((loop args) >>= setTMV . Just) hndlr `finally` setTMV Nothing
where
setTMV x = atomically (tryPutTMVar tmv x >> return ())
hndlr (AsyncException ThreadKilled) = return ()
hndlr e = throwTo hisTId e
goodLoop args@(tc1, tc2, tmv, hisTId) = do
x <- atomically (readTChan tc1)
x' <- return $ reverse x
atomically (writeTChan tc2 x')
if x == "blah2"
then return ()
else goodLoop args
badLoop args@(tc1, tc2, tmv, hisTId) = do
x <- atomically (readTChan tc1)
x' <- return $ reverse x
atomically (writeTChan tc2 x')
badLoop args
testsuite/tests/ghc-regress/ghci/scripts/ghci015.script 0 → 100644
View file @ fa931a07
:l ghci015
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
runTest badLoop
testsuite/tests/ghc-regress/ghci/scripts/ghci015.stdout 0 → 100644
View file @ fa931a07
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"
"done"