diff --git a/src/RemoteServiceReplication-Test/RsrConnectionSpecificationTestCase.class.st b/src/RemoteServiceReplication-Test/RsrConnectionSpecificationTestCase.class.st index 9e0a3f9..a5373c7 100644 --- a/src/RemoteServiceReplication-Test/RsrConnectionSpecificationTestCase.class.st +++ b/src/RemoteServiceReplication-Test/RsrConnectionSpecificationTestCase.class.st @@ -260,24 +260,15 @@ RsrConnectionSpecificationTestCase >> testEstablishConnection [ ] { #category : 'running' } -RsrConnectionSpecificationTestCase >> testFailedAcceptOnAlternativeLocalhost [ +RsrConnectionSpecificationTestCase >> testFailedConnect [ - | acceptor initiator semaphore | - acceptor := RsrAcceptConnection - host: self alternativeLocalhost - port: self port. + | initiator | initiator := RsrInitiateConnection host: self localhost port: self port. - semaphore := Semaphore new. - RsrProcessModel - fork: [[semaphore signal. acceptor waitForConnection] on: RsrWaitForConnectionCancelled do: [:ex | ex return]] - named: 'Pending WaitForConnectionCancelled'. - [semaphore wait. self should: [initiator connect] - raise: RsrSocketError] - ensure: [acceptor cancelWaitForConnection] + raise: RsrSocketError ] { #category : 'running' } diff --git a/src/RemoteServiceReplication-Test/RsrSocketStressTest.class.st b/src/RemoteServiceReplication-Test/RsrSocketStressTest.class.st index 4bbc294..283c8b0 100644 --- a/src/RemoteServiceReplication-Test/RsrSocketStressTest.class.st +++ b/src/RemoteServiceReplication-Test/RsrSocketStressTest.class.st @@ -9,7 +9,7 @@ Class { RsrSocketStressTest class >> defaultTimeLimit [ "These tests take longer over a Socket" - ^60 seconds + ^120 seconds ] { #category : 'testing' }