@@ -947,8 +947,8 @@ testTransport newTransport = do
947 , ("CloseOneDirection", testCloseOneDirection transport numPings)
947 , ("CloseOneDirection", testCloseOneDirection transport numPings)
948 , ("CloseReopen", testCloseReopen transport numPings)
948 , ("CloseReopen", testCloseReopen transport numPings)
949 , ("ParallelConnects", testParallelConnects transport numPings)
949 , ("ParallelConnects", testParallelConnects transport numPings)
950− , ("SendAfterClose", testSendAfterClose transport 1000)
950+ , ("SendAfterClose", testSendAfterClose transport 100)
951− , ("Crossing", testCrossing transport 100)
951+ , ("Crossing", testCrossing transport 10)
952 , ("CloseTwice", testCloseTwice transport 100)
952 , ("CloseTwice", testCloseTwice transport 100)
953 , ("ConnectToSelf", testConnectToSelf transport numPings)
953 , ("ConnectToSelf", testConnectToSelf transport numPings)
954 , ("ConnectToSelfTwice", testConnectToSelfTwice transport numPings)
954 , ("ConnectToSelfTwice", testConnectToSelfTwice transport numPings)
@@ -958,7 +958,7 @@ testTransport newTransport = do
958 , ("ConnectClosedEndPoint", testConnectClosedEndPoint transport)
958 , ("ConnectClosedEndPoint", testConnectClosedEndPoint transport)
959 , ("ExceptionOnReceive", testExceptionOnReceive newTransport)
959 , ("ExceptionOnReceive", testExceptionOnReceive newTransport)
960 , ("SendException", testSendException newTransport)
960 , ("SendException", testSendException newTransport)
961− , ("Kill", testKill newTransport 10000)
961+ , ("Kill", testKill newTransport 1000)
964 numPings = 10000 :: Int
964 numPings = 10000 :: Int