Failed

windows-64 / Tests-windows-64 / Windows64.Collections.Tests.Unordered.DictionaryTest.testAsCommaStringMore (from Collections-Tests)

Failing for the past 4 builds (Since Failed#1 )
Took 12 sec.

Stacktrace

TestTookTooMuchTime
Process>>pvtSignal:list:
[:delim_ | | delim|
		delim := delim_ asString. "In case the delimiter is a character, turn it into a string"
		(delim size > (size - head + 1)) ifTrue: [ 0 "Delimiter is larger than the remaining size of the receiver, so there is no point in trying it" ]
			ifFalse: [ "Delimiter is smaller than the remaining size of the receiver"
				(remainingString beginsWith: delim) ifTrue: [ delim size ] ifFalse: [ 0 ]
			]
		] in [
		remainingString := self last: size - head + 1. "Part of the receiver that remains to be examined"
		sizeOfLargestSkippableDelimiter := (delimiters collect: [:delim_ | | delim|
		delim := delim_ asString. "In case the delimiter is a character, turn it into a string"
		(delim size > (size - head + 1)) ifTrue: [ 0 "Delimiter is larger than the remaining size of the receiver, so there is no point in trying it" ]
			ifFalse: [ "Delimiter is smaller than the remaining size of the receiver"
				(remainingString beginsWith: delim) ifTrue: [ delim size ] ifFalse: [ 0 ]
			]
		]) max.
		head := head + sizeOfLargestSkippableDelimiter.
	] in ByteString(String)>>skipAnySubstring:startingAt:
Array(SequenceableCollection)>>collect:
[
		remainingString := self last: size - head + 1. "Part of the receiver that remains to be examined"
		sizeOfLargestSkippableDelimiter := (delimiters collect: [:delim_ | | delim|
		delim := delim_ asString. "In case the delimiter is a character, turn it into a string"
		(delim size > (size - head + 1)) ifTrue: [ 0 "Delimiter is larger than the remaining size of the receiver, so there is no point in trying it" ]
			ifFalse: [ "Delimiter is smaller than the remaining size of the receiver"
				(remainingString beginsWith: delim) ifTrue: [ delim size ] ifFalse: [ 0 ]
			]
		]) max.
		head := head + sizeOfLargestSkippableDelimiter.
	] in ByteString(String)>>skipAnySubstring:startingAt:
BlockClosure>>doWhileFalse:
ByteString(String)>>skipAnySubstring:startingAt:
ByteString(String)>>findBetweenSubstrings:
DictionaryTest>>testAsCommaStringMore
DictionaryTest(TestCase)>>performTest