Regression

Darwin-arm64 / Tests-Darwin-arm64-CoInterpreter / MacOSX64.NewTools.DocumentBrowser.GitHubResource.Tests.MicGitHubAPITest.testGet (from NewTools-DocumentBrowser-GitHubResource-Tests)

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>>waitForDataFor:ifClosed:ifTimedOut:
Socket>>waitForDataFor:
ZdcSecureSocketStream(ZdcAbstractSocketStream)>>socketWaitForData
[ self socketWaitForData ] in ZdcSecureSocketStream(ZdcSimpleSocketStream)>>fillReadBuffer
FullBlockClosure(BlockClosure)>>on:do:
ZdcSecureSocketStream(ZdcSimpleSocketStream)>>fillReadBuffer
ZdcSecureSocketStream(ZdcAbstractSocketStream)>>next
ZnLineReader>>processNext
ZnLineReader>>nextLine
ZnStatusLine>>readFrom:
ZnStatusLine class>>readFrom:
ZnResponse>>readHeaderFrom:
ZnResponse(ZnMessage)>>readFrom:
ZnResponse class(ZnMessage class)>>readFrom:
[ :stream | ZnResponse readFrom: stream ] in [ [ :stream | ZnResponse readFrom: stream ] ] in ZnClient>>reader
[
			response := (#(HEAD CONNECT) includes: request method)
				ifTrue: [ ZnResponse readHeaderFrom: connection ]
				ifFalse: [
					self streaming
						ifTrue: [ ZnResponse readStreamingFrom: connection ]
						ifFalse: [
							self reader value: connection ] ] ] in [
		self withDefaultCharacterEncoderDo: [
			response := (#(HEAD CONNECT) includes: request method)
				ifTrue: [ ZnResponse readHeaderFrom: connection ]
				ifFalse: [
					self streaming
						ifTrue: [ ZnResponse readStreamingFrom: connection ]
						ifFalse: [
							self reader value: connection ] ] ] ] in ZnClient>>readResponse
True>>ifTrue:ifFalse:
ZnClient>>withDefaultCharacterEncoderDo:
[
		self withDefaultCharacterEncoderDo: [
			response := (#(HEAD CONNECT) includes: request method)
				ifTrue: [ ZnResponse readHeaderFrom: connection ]
				ifFalse: [
					self streaming
						ifTrue: [ ZnResponse readStreamingFrom: connection ]
						ifFalse: [
							self reader value: connection ] ] ] ] in ZnClient>>readResponse
True>>ifTrue:ifFalse:
ZnClient>>withMaximumNumberOfDictionaryEntriesDo:
ZnClient>>readResponse
ZnClient>>executeRequestResponse
[ self executeRequestResponse ] in ZnClient>>getConnectionAndExecute
FullBlockClosure(BlockClosure)>>ensure:
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 prepareRequest.
		result := self executeWithTimeout.
		self prepareNextRequest.
		result ] in ZnClient>>execute
[ activeProcess
			psValueAt: index
			put: anObject.
		aBlock value ] in ZnCurrentOptions(DynamicVariable)>>value:during:
FullBlockClosure(BlockClosure)>>ensure:
ZnCurrentOptions(DynamicVariable)>>value:during:
ZnCurrentOptions class(DynamicVariable class)>>value:during:
[ ZnCurrentOptions value: self during: block ] in ZnOptions>>conditionallyDuring:
UndefinedObject>>ifNil:ifNotNil:
ZnOptions>>conditionallyDuring:
ZnClient>>withDynamicVariablesDo:
ZnClient>>execute
ZnClient>>get
[
		(self newRequestTo: aString)
			get;
			response ] in MicGitHubAPI(IceGitHubAPI)>>get:
MicGitHubAPI(IceGitHubAPI)>>responseWithValidationDo:
MicGitHubAPI(IceGitHubAPI)>>contentsWithValidationDo:
MicGitHubAPI(IceGitHubAPI)>>jsonContentsWithValidationDo:
MicGitHubAPI(IceGitHubAPI)>>get:
[ super get: apiCallString] in MicGitHubAPI>>get:
FullBlockClosure(BlockClosure)>>cull:
[ | value |
				value := block cull: key.
				"Sadly we have to check the presence of key again
				in case of the block execution already added the entry"
				keyIndex
					associationAt: key
					ifAbsent: [
						association := self newAssociationKey: key value: value.
						^ self handleMiss: association ] ] in [ | association |
		association := keyIndex
			associationAt: key
			ifAbsent: [ | value |
				value := block cull: key.
				"Sadly we have to check the presence of key again
				in case of the block execution already added the entry"
				keyIndex
					associationAt: key
					ifAbsent: [
						association := self newAssociationKey: key value: value.
						^ self handleMiss: association ] ].
		^ self handleHit: association ] in LRUCache>>at:ifAbsentPut:
Dictionary>>associationAt:ifAbsent:
[ | association |
		association := keyIndex
			associationAt: key
			ifAbsent: [ | value |
				value := block cull: key.
				"Sadly we have to check the presence of key again
				in case of the block execution already added the entry"
				keyIndex
					associationAt: key
					ifAbsent: [
						association := self newAssociationKey: key value: value.
						^ self handleMiss: association ] ].
		^ self handleHit: association ] in LRUCache>>at:ifAbsentPut:
LRUCache(AbstractCache)>>critical:
LRUCache>>at:ifAbsentPut:
MicGitHubAPI>>get:
[response := self get: ('repos/{1}/{2}' format: {user. project}).
	^ response at: 'default_branch' ifAbsent: [ 'main' ]] in MicGitHubAPI>>defaultBranch:project:
FullBlockClosure(BlockClosure)>>on:do:
MicGitHubAPI>>defaultBranch:project:
[ api defaultBranch: 'pillar-markup' project: 'Microdown' ] in MicGitHubAPITest>>setUp
FullBlockClosure(BlockClosure)>>on:do:
MicGitHubAPITest>>setUp