Regression

osx-32 / Tests-osx-32 / MacOSX32.FreeType.Tests.Cache.FreeTypeCacheTest.testGlyphAccessIsThreadSafeWhenAskingWidth (from FreeType-Tests)

Error Message

Assertion failed

Stacktrace

TestFailure
Assertion failed
FreeTypeCacheTest(TestAsserter)>>assert:description:resumable:
FreeTypeCacheTest(TestAsserter)>>assert:description:
FreeTypeCacheTest(Object)>>assert:
[  
		 | sem text canvases blocky widthAsk |

		sem := Semaphore new.
		text := (String loremIpsum: 25*1024).
		FreeTypeCache current removeAll.
		canvases := OrderedCollection new.

		widthAsk := [
			1 to: text size do: [ :i | StandardFonts codeFont widthOf: (text at: i). i % 50 = 0 ifTrue: [ Processor yield ]].
			sem signal ].

			
		blocky := [  | canvas |
			canvas := FormCanvas extent: 1000@1000.
			canvases add: canvas.
			(RubScrolledTextMorph new)
					setText: text;
					font: StandardFonts codeFont;
					bounds: (0@0 corner: canvas form extent);
					fullDrawOn: canvas.
			sem signal ].
			
		blocky forkAt: 39.
		blocky forkAt: 39.
		blocky forkAt: 39.
		widthAsk forkAt: 39.
		
		sem 
			wait;
			wait;
			wait;
			wait.	
			
		self assert: (((canvases at:1) form bits = (canvases at:2) form bits) and: [ ((canvases at:2) form bits = (canvases at:3) form bits) ]) 
	] in FreeTypeCacheTest>>testGlyphAccessIsThreadSafeWhenAskingWidth
SmallInteger(Integer)>>timesRepeat:
FreeTypeCacheTest>>testGlyphAccessIsThreadSafeWhenAskingWidth
FreeTypeCacheTest(TestCase)>>performTest