@@ -947,8 +947,8 @@ testTransport newTransport = do
947947 , ("CloseOneDirection", testCloseOneDirection transport numPings)
948948 , ("CloseReopen", testCloseReopen transport numPings)
949949 , ("ParallelConnects", testParallelConnects transport numPings)
950− , ("SendAfterClose", testSendAfterClose transport 1000)
951− , ("Crossing", testCrossing transport 100)
950+ , ("SendAfterClose", testSendAfterClose transport 100)
951+ , ("Crossing", testCrossing transport 10)
952952 , ("CloseTwice", testCloseTwice transport 100)
953953 , ("ConnectToSelf", testConnectToSelf transport numPings)
954954 , ("ConnectToSelfTwice", testConnectToSelfTwice transport numPings)
@@ -958,7 +958,7 @@ testTransport newTransport = do
958958 , ("ConnectClosedEndPoint", testConnectClosedEndPoint transport)
959959 , ("ExceptionOnReceive", testExceptionOnReceive newTransport)
960960 , ("SendException", testSendException newTransport)
961− , ("Kill", testKill newTransport 10000)
961+ , ("Kill", testKill newTransport 1000)
962962 ]
963963 where
964964 numPings = 10000 :: Int