Regression

windows-32 / Tests-windows-32 / Windows32.Zinc.Tests.ZnEasyTest.testPostUnicodeUtf8 (from Zinc-Tests)

Stacktrace

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
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:
BlockClosure>>on:do:
ZnClient>>executeWithRetriesRemaining:
[ self executeWithRetriesRemaining: self numberOfRetries ] in [ [ self executeWithRetriesRemaining: self numberOfRetries ]
	on: Error
	do: self ifFailBlock ] in ZnClient>>executeWithTimeout
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:
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:
BlockClosure>>ensure:
ZnSignalProgress(DynamicVariable)>>value:during:
ZnSignalProgress class(DynamicVariable class)>>value:during:
ZnClient>>withProgressDo:
ZnClient>>execute
ZnClient>>post
ZnEasy class>>post:data:
[ :server | 
| response data |
data := String
	streamContents:
		[ :stream | 0 to: 16r024F do: [ :each | stream nextPut: each asCharacter ] ].
response := ZnEasy
	post:
		(server localUrl
			addPathSegment: 'echo';
			yourself)
	data: (ZnEntity text: data).
self assert: response headers contentType = ZnMimeType textPlain.
self assert: response statusLine code = 200.
self assert: (response entity string includesSubstring: 'POST').
self assert: (response entity string includesSubstring: data) ] in ZnEasyTest>>testPostUnicodeUtf8
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}).
self assert: server isRunning & server isListening.
block cull: server ] in ZnEasyTest>>withServerDo:
BlockClosure>>ensure:
ZnEasyTest>>withServerDo:
ZnEasyTest>>testPostUnicodeUtf8
ZnEasyTest(TestCase)>>performTest