Improving the test of max size of the worker

src/TaskIt-Tests/TKTCommonQueueWorkerPoolTest.class.st

@@ -49,7 +49,7 @@ TKTCommonQueueWorkerPoolTest >> testWorkerPoolDoesNotExceedPoolSizeWhenSchedulin
 	1 to: 10 do: [ :i | futures nextPut: (pool future: [ 10 timesRepeat: [ futures nextPut: (pool future: [ totalTasks := totalTasks + 1 ]) ] ]) ].
 	[ futures isEmpty ] whileFalse: [ futures next waitForCompletion: 100 milliSeconds ].
 	self assert: totalTasks equals: 100.
-	self assert: pool size equals: 10
+	self assert: pool size <= 10
 ]
 
 { #category : #tests }