Failed

unix-64 / Tests-unix-64 / Unix64.Zinc.Tests.ZnImageExampleDelegateTest.testUpload (from Zinc-Tests)

Failing for the past 1 build (Since #710 )

Stacktrace

TestTookTooMuchTime
Process>>pvtSignal:list:
[self schedule.
	"It is critical that the following has no suspension point so that
	the test and the wait primitive are atomic. In addition, if the delay
	is no longer being waited on while entering the way we know that it 
	is expired because the delay has already fired."
	beingWaitedOn 
		ifTrue:[delaySemaphore wait]
		ifFalse:[expired := true]] in DelayWaitTimeout>>wait
FullBlockClosure(BlockClosure)>>ensure:
DelayWaitTimeout>>wait
Semaphore>>waitTimeoutMSecs:
Socket>>waitForConnectionFor:ifTimedOut:
Socket>>connectTo:port:waitForConnectionFor:
ZdcSocketStream(ZdcAbstractSocketStream)>>socketConnectTo:port:
ZdcSocketStream(ZdcSimpleSocketStream)>>connectTo:port:
ZdcSocketStream class(ZdcSimpleSocketStream class)>>openConnectionToHost:port:timeout:
ZnNetworkingUtils>>socketStreamToUrlDirectly:
ZnNetworkingUtils>>socketStreamToUrl:
ZnNetworkingUtils class>>socketStreamToUrl:
ZnClient>>newConnectionTo:
ZnClient>>getConnectionAndExecute
ZnClient>>executeWithRedirectsRemaining:
[ self executeWithRedirectsRemaining: self maxNumberOfRedirects ] in ZnClient>>executeWithRetriesRemaining:
FullBlockClosure(BlockClosure)>>on:do:
ZnClient>>executeWithRetriesRemaining:
[ self executeWithRetriesRemaining: self numberOfRetries ] in [ 
		[ self executeWithRetriesRemaining: self numberOfRetries ]
			on: Error
			do: self ifFailBlock ] in ZnClient>>executeWithTimeout
FullBlockClosure(BlockClosure)>>on:do:
[ 
		[ self executeWithRetriesRemaining: self numberOfRetries ]
			on: Error
			do: self ifFailBlock ] in ZnClient>>executeWithTimeout
[ ^ block value ] in ZnClient>>withTimeoutDo:
[ activeProcess
			psValueAt: index
			put: anObject.
		aBlock value ] in ZnConnectionTimeout(DynamicVariable)>>value:during:
FullBlockClosure(BlockClosure)>>ensure:
ZnConnectionTimeout(DynamicVariable)>>value:during:
ZnConnectionTimeout class(DynamicVariable class)>>value:during:
ZnClient>>withTimeoutDo:
ZnClient>>executeWithTimeout
[ result := self executeWithTimeout ] in ZnClient>>execute
[ ^ block value ] in ZnClient>>withProgressDo:
[ activeProcess
			psValueAt: index
			put: anObject.
		aBlock value ] in ZnSignalProgress(DynamicVariable)>>value:during:
FullBlockClosure(BlockClosure)>>ensure:
ZnSignalProgress(DynamicVariable)>>value:during:
ZnSignalProgress class(DynamicVariable class)>>value:during:
ZnClient>>withProgressDo:
ZnClient>>execute
ZnClient>>get
ZnClient>>get:
ZnImageExampleDelegateTest>>image
[ :server |
		| image client |
		image := self image.
		client := ZnClient new.
		client url: server localUrl; addPath: #image.
		client addPart: (ZnMimePart fieldName: #file entity: image).
		client post.
		self assert: client isSuccess.
		client resetEntity; queryAt: #raw put: #true.
		client get.
		self assert: client isSuccess.
		self assert: client entity equals: image.
		client close ] in ZnImageExampleDelegateTest>>testUpload
FullBlockClosure(BlockClosure)>>cull:
[ 
		server start.
		self 
			assert: server isRunning & server isListening
			description: ('Failed to start server on port {1}. Is there one already?' format: { server port }).
		server delegate: ZnImageExampleDelegate new.
		block cull: server
	] in ZnImageExampleDelegateTest>>withServerDo:
FullBlockClosure(BlockClosure)>>ensure:
ZnImageExampleDelegateTest>>withServerDo:
ZnImageExampleDelegateTest>>testUpload
ZnImageExampleDelegateTest(TestCase)>>performTest