sync trivial changes (mostly formatting) with Pharo 13

TaskIt-Tests/TKTBasicTaskTest.class.st

@@ -1,10 +1,12 @@
 Class {
-	#name : #TKTBasicTaskTest,
-	#superclass : #TKTTestCase,
-	#category : #'TaskIt-Tests-Kernel'
+	#name : 'TKTBasicTaskTest',
+	#superclass : 'TKTTestCase',
+	#category : 'TaskIt-Tests-Kernel',
+	#package : 'TaskIt-Tests',
+	#tag : 'Kernel'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 TKTBasicTaskTest >> testFutureExecutes [
 
 	| done sema |
@@ -13,20 +15,18 @@ TKTBasicTaskTest >> testFutureExecutes [
 	[ done := true.
 	sema signal ] future.
 	sema wait.
-	
+
 	self assert: done
-
-
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TKTBasicTaskTest >> testFutureExecutesByDefaultInGlobalWorkerPool [
 	| future |
 	future := [ TKTConfiguration runner ] future.
 	self assert: (future synchronizeTimeout: 1 second) equals: TKTConfiguration runner
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TKTBasicTaskTest >> testFutureExecutesConcurrently [
 	| results future1 future2 |
 	results := OrderedCollection new.
@@ -41,7 +41,7 @@ TKTBasicTaskTest >> testFutureExecutesConcurrently [
 	self assert: results asArray equals: #(2 1)
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TKTBasicTaskTest >> testFutureReturnsAssociatedFutureObject [
 	| done sema |
 	done := false.
@@ -52,17 +52,17 @@ TKTBasicTaskTest >> testFutureReturnsAssociatedFutureObject [
 	self assert: done
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TKTBasicTaskTest >> testFutureWithFutureInsideSchedulesOk [
 
 	| future |
 
 	future := [ [TKTConfiguration runner] schedule ] future.
 
-	self shouldnt: (future synchronizeTimeout: 1 second) raise: UnhandledError.
+	self shouldnt: (future synchronizeTimeout: 1 second) raise: UnhandledError
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TKTBasicTaskTest >> testScheduleExecutes [
 	| done sema |
 	done := false.

TaskIt-Tests/TKTCommonQueueWorkerPoolTest.class.st

@@ -1,10 +1,12 @@
 Class {
-	#name : #TKTCommonQueueWorkerPoolTest,
-	#superclass : #TKTTestCase,
-	#category : #'TaskIt-Tests-Worker'
+	#name : 'TKTCommonQueueWorkerPoolTest',
+	#superclass : 'TKTTestCase',
+	#category : 'TaskIt-Tests-Worker',
+	#package : 'TaskIt-Tests',
+	#tag : 'Worker'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 TKTCommonQueueWorkerPoolTest >> testWorkerPoolCretesWorkersWhenExecutingATask [
 	| pool |
 	pool := TKTCommonQueueWorkerPool new.
@@ -15,7 +17,7 @@ TKTCommonQueueWorkerPoolTest >> testWorkerPoolCretesWorkersWhenExecutingATask [
 	self assert: pool workers notEmpty
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TKTCommonQueueWorkerPoolTest >> testWorkerPoolDoesNotExceedPoolSize [
 	| pool |
 	pool := TKTCommonQueueWorkerPool new.
@@ -26,7 +28,7 @@ TKTCommonQueueWorkerPoolTest >> testWorkerPoolDoesNotExceedPoolSize [
 	self assert: pool size <=  4
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TKTCommonQueueWorkerPoolTest >> testWorkerPoolDoesNotExceedPoolSizeWhenSchedulingTasksInParallel [
 	| pool totalTasks futures |
 	pool := TKTCommonQueueWorkerPool new.
@@ -40,64 +42,62 @@ TKTCommonQueueWorkerPoolTest >> testWorkerPoolDoesNotExceedPoolSizeWhenSchedulin
 	self assert: pool size <= 10
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TKTCommonQueueWorkerPoolTest >> testWorkerPoolStopStopsWorkers [
 
 	| pool |
 	pool := TKTCommonQueueWorkerPool new.
 	pool poolMaxSize: 4.
 	pool start.
-		
+
 	((1 to: 10) collect: [:i | pool future: [ 1 + 1 ] ])
 		do: [ :future | future waitForCompletion: 500 milliSeconds. ].
-	
+
 	pool stop.
-	
-	pool workers do: [ :worker | self deny: worker isRunning ].
+
+	pool workers do: [ :worker | self deny: worker isRunning ]
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TKTCommonQueueWorkerPoolTest >> testWorkerPoolWorkersAreStoppedAfterPoolsCollection [
 
 	| pool workerProcess |
 	pool := TKTCommonQueueWorkerPool new.
 	pool name: 'test pool' , UUID new asString.
 	pool poolMaxSize: 4.
 	pool start.
-	(pool future: (MessageSend receiver: self selector: #yourself)) 
+	(pool future: (MessageSend receiver: self selector: #yourself))
 		waitForCompletion: 1 second.
 	self assert: pool workers notEmpty.
 	workerProcess := WeakArray with: pool workers anyOne process.
 	pool := nil.
-	
-	self assertWithGarbageCollect: [ workerProcess first isNil ].
+
+	self assertWithGarbageCollect: [ workerProcess first isNil ]
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TKTCommonQueueWorkerPoolTest >> testWorkerPoolWorkersProcessesAreStoppedAfterPoolsCollection [
 
 	| pool workerProcess |
 	pool := TKTCommonQueueWorkerPool new.
 	pool name: 'Test pool' , UUID new asString.
 	pool poolMaxSize: 4.
 	pool start.
-	(pool future: (MessageSend receiver: self selector: #yourself)) 
+	(pool future: (MessageSend receiver: self selector: #yourself))
 		waitForCompletion: 1 second.
 	workerProcess := WeakArray with: pool workers anyOne process process.
 	pool := nil.
-	self assertWithGarbageCollect: [ workerProcess first isNil ].
-
+	self assertWithGarbageCollect: [ workerProcess first isNil ]
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TKTCommonQueueWorkerPoolTest >> testWorkerPoolWorkersProcessesAreTerminatedAfterPoolsCollection [
 
 	| pool workerProcess |
 	pool := TKTCommonQueueWorkerPool createDefault.
-	(pool future: (MessageSend receiver: self selector: #yourself)) 
+	(pool future: (MessageSend receiver: self selector: #yourself))
 		waitForCompletion: 1 second.
 	workerProcess := pool workers anyOne process process.
 	pool := nil.
-	self assertWithGarbageCollect: [ workerProcess isTerminated ].
-
+	self assertWithGarbageCollect: [ workerProcess isTerminated ]
 ]

TaskIt-Tests/TKTConfigurationTest.class.st

@@ -1,10 +1,12 @@
 Class {
-	#name : #TKTConfigurationTest,
-	#superclass : #TKTTestCase,
-	#category : #'TaskIt-Tests-Kernel'
+	#name : 'TKTConfigurationTest',
+	#superclass : 'TKTTestCase',
+	#category : 'TaskIt-Tests-Kernel',
+	#package : 'TaskIt-Tests',
+	#tag : 'Kernel'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 TKTConfigurationTest >> testAllProfilesCanBeSet [
 	TKTProfile profiles do: [ :each |
 		| aProfile |
@@ -16,7 +18,7 @@ TKTConfigurationTest >> testAllProfilesCanBeSet [
 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TKTConfigurationTest >> testDefaultValueIsAProfile [
 	TKTConfiguration resetSoleInstance.
 	self assert: (TKTConfiguration profile isKindOf: TKTProfile).