Update tests for GHC 6.12
authorSimon Marlow <marlowsd@gmail.com>
Wed, 14 Oct 2009 13:26:27 +0000 (13:26 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Wed, 14 Oct 2009 13:26:27 +0000 (13:26 +0000)
tests/conc047.stdout
tests/conc048.stdout
tests/conc063.hs
tests/conc063.stdout

index c319cd3..9ddc837 100644 (file)
@@ -1,4 +1,4 @@
-Before\r
-Survived unused retry\r
-Caught: thread blocked indefinitely\r
-Caught: thread blocked indefinitely\r
+Before
+Survived unused retry
+Caught: thread blocked indefinitely in an STM transaction
+Caught: thread blocked indefinitely in an STM transaction
index b27a481..49b1f75 100644 (file)
@@ -10,7 +10,7 @@ T4
 T5
 (0,50)
 T6
-Caught: thread blocked indefinitely
+Caught: thread blocked indefinitely in an STM transaction
 (0,50)
 T7
 Iter 9
@@ -25,7 +25,7 @@ T4
 T5
 (0,50)
 T6
-Caught: thread blocked indefinitely
+Caught: thread blocked indefinitely in an STM transaction
 (0,50)
 T7
 Iter 8
@@ -40,7 +40,7 @@ T4
 T5
 (0,50)
 T6
-Caught: thread blocked indefinitely
+Caught: thread blocked indefinitely in an STM transaction
 (0,50)
 T7
 Iter 7
@@ -55,7 +55,7 @@ T4
 T5
 (0,50)
 T6
-Caught: thread blocked indefinitely
+Caught: thread blocked indefinitely in an STM transaction
 (0,50)
 T7
 Iter 6
@@ -70,7 +70,7 @@ T4
 T5
 (0,50)
 T6
-Caught: thread blocked indefinitely
+Caught: thread blocked indefinitely in an STM transaction
 (0,50)
 T7
 Iter 5
@@ -85,7 +85,7 @@ T4
 T5
 (0,50)
 T6
-Caught: thread blocked indefinitely
+Caught: thread blocked indefinitely in an STM transaction
 (0,50)
 T7
 Iter 4
@@ -100,7 +100,7 @@ T4
 T5
 (0,50)
 T6
-Caught: thread blocked indefinitely
+Caught: thread blocked indefinitely in an STM transaction
 (0,50)
 T7
 Iter 3
@@ -115,7 +115,7 @@ T4
 T5
 (0,50)
 T6
-Caught: thread blocked indefinitely
+Caught: thread blocked indefinitely in an STM transaction
 (0,50)
 T7
 Iter 2
@@ -130,7 +130,7 @@ T4
 T5
 (0,50)
 T6
-Caught: thread blocked indefinitely
+Caught: thread blocked indefinitely in an STM transaction
 (0,50)
 T7
 Iter 1
@@ -145,7 +145,7 @@ T4
 T5
 (0,50)
 T6
-Caught: thread blocked indefinitely
+Caught: thread blocked indefinitely in an STM transaction
 (0,50)
 T7
 Iter 0
@@ -160,6 +160,6 @@ T4
 T5
 (0,50)
 T6
-Caught: thread blocked indefinitely
+Caught: thread blocked indefinitely in an STM transaction
 (0,50)
 T7
index 64d5df4..13c4a3c 100644 (file)
@@ -3,9 +3,9 @@ module Main where
 
 import GHC.Conc
 import Control.Exception
-import IO
 import Foreign.StablePtr
 import System.IO
+import Control.Concurrent.MVar
 
 -- Test invariants using updates & blocking in invariants
 main = do
index e047fea..3021e1a 100644 (file)
@@ -13,4 +13,4 @@ Attaching an invariant that blocks
 Another update to the TVar with the blocking invariant
 
 Update the TVar to cause the invariant to block again (expect thread blocked indef)
-Caught: thread blocked indefinitely
+Caught: thread blocked indefinitely in an STM transaction