Formatting

Author: jordanmontt

src/MethodProxies-Tests/MpMethodProxyTest.class.st

@@ -142,39 +142,19 @@ MpMethodProxyTest >> testCanRunConcurrently [
 	sharedObject := MpTestConcurrentSharedObject new.
 	testSemaphore := Semaphore new.
 
-	mp1 := MpMethodProxy
-		       onMethod:
-		       (MpTestConcurrentSharedObject lookupSelector: #methodProcess1)
-		       handler: MpWaitBeforeHandler new.
-	mp2 := MpMethodProxy
-		       onMethod:
-		       (MpTestConcurrentSharedObject lookupSelector: #methodProcess2)
-		       handler: MpWaitAndTriggerBeforeHandler new.
-	mpTrigger1 := MpMethodProxy
-		              onMethod:
-		              (MpTestConcurrentSharedObject lookupSelector:
-			               #trigger1)
-		              handler:
-		              (handlerTrigger1 := MpAfterCounterHandler new).
-	mpTrigger2 := MpMethodProxy
-		              onMethod:
-		              (MpTestConcurrentSharedObject lookupSelector:
-			               #trigger2)
-		              handler:
-		              (handlerTrigger2 := MpAfterCounterHandler new).
+	mp1 := MpMethodProxy onMethod: (MpTestConcurrentSharedObject >> #methodProcess1) handler: MpWaitBeforeHandler new.
+	mp2 := MpMethodProxy onMethod: (MpTestConcurrentSharedObject >> #methodProcess2) handler: MpWaitAndTriggerBeforeHandler new.
+	mpTrigger1 := MpMethodProxy onMethod: (MpTestConcurrentSharedObject >> #trigger1) handler: (handlerTrigger1 := MpAfterCounterHandler new).
+	mpTrigger2 := MpMethodProxy onMethod: (MpTestConcurrentSharedObject >> #trigger2) handler: (handlerTrigger2 := MpAfterCounterHandler new).
 
 	self installMethodProxy: mp1.
 	self installMethodProxy: mp2.
 	self installMethodProxy: mpTrigger1.
 	self installMethodProxy: mpTrigger2.
 
 	"Here the first process will run an instrumented trigger (trigger1) while the second process is not instrumenting, then the second process will run a non-instrumented trigger while the first process is still instrumenting."
-	p1 := [
-	sharedObject methodProcess1.
-	testSemaphore signal ] fork.
-	p2 := [
-	sharedObject methodProcess2.
-	testSemaphore signal ] fork.
+	p1 := [ sharedObject methodProcess1. testSemaphore signal ] fork.
+	p2 := [ sharedObject methodProcess2. testSemaphore signal ] fork.
 	testSemaphore wait.
 
 	"Here the first trigger should have been captured, but not the second. If not concurrency is not correctly managed."