Exception debug string

src/BaselineOfTestWorkers/BaselineOfTestWorkers.class.st

@@ -44,7 +44,7 @@ BaselineOfTestWorkers >> baseline: spec [
 				package: 'TestWorkers-Worker' with: [ spec requires: #('TestWorkers-Connector') ];
 				package: 'TestWorkers-Client' with: [ spec requires: #('TestWorkers-Connector') ];
 				package: 'TestWorkers-UI' with: [ spec requires: #('TestWorkers-Client') ];
-				package: 'TestWorkers-Connector-Tests' with: [ spec requires: #('TestWorkers-Connector') ];
+
 				package: 'TestWorkers-Changes-Tests' with: [ spec requires: 'TestWorkers-Changes' ].
 
 			"Groups"

src/TestWorkers-Client/TWClient.class.st

@@ -122,6 +122,31 @@ TWClient >> resetResults [
 
 ]
 
+{ #category : #running }
+TWClient >> runMultipleTest: aMultipleTest [
+
+	| request |
+
+	request := TWMultipleTestRequest new
+		tests: aMultipleTest tests;
+		yourself.
+
+	self runRequest: request
+
+
+]
+
+{ #category : #running }
+TWClient >> runRequest: aTWTestRequest [
+
+	requests at: aTWTestRequest uuid asString put: aTWTestRequest.
+
+	"RabbitMQ likes to close the connection. This ensures we retry until we are able to connect again."
+	self ensureNetworkSuccess: [ aTWTestRequest sendOn: connection ]
+
+
+]
+
 { #category : #running }
 TWClient >> runSingleTest: aSingleTest [ 
 
@@ -132,27 +157,21 @@ TWClient >> runSingleTest: aSingleTest [
 		testSelector: aSingleTest testSelector;
 		yourself.
 
-	requests at: request uuid asString put: request.
-
-	"RabbitMQ likes to close the connection. This ensures we retry until we are able to connect again."
-	self ensureNetworkSuccess: [ request sendOn: connection ]
+	self runRequest: request
 
 
 ]
 
-{ #category : #operations }
+{ #category : #running }
 TWClient >> runTestClass: aTestCase [
 
 	| request |
 
-	request := TWTestRequest new
+	request := TWClassTestRequest new
 		testClassName: aTestCase name;
 		yourself.
 
-	requests at: request uuid asString put: request.
-
-	"RabbitMQ likes to close the connection. This ensures we retry until we are able to connect again."
-	self ensureNetworkSuccess: [ request sendOn: connection ]
+	self runRequest: request
 
 
 ]

src/TestWorkers-Connector/Deprecation.extension.st

@@ -1,6 +1,6 @@
-Extension { #name : #Deprecation }
-
-{ #category : #'*TestWorkers-Connector' }
-Deprecation >> twAnnounce: aTestCase toResult: aTestResult [
-	self resume
-]
+Extension { #name : #Deprecation }
+
+{ #category : #'*TestWorkers-Connector' }
+Deprecation >> twAnnounce: aTestCase toResult: aTestResult [
+	self resume
+]

src/TestWorkers-Connector/DirtyTestError.extension.st

@@ -1,14 +1,14 @@
-Extension { #name : #DirtyTestError }
-
-{ #category : #'*TestWorkers-Connector' }
-DirtyTestError >> twAnnounce: aTestCase toResult: aTestResult [
-
-	executionEnvironment isMainTestProcessFailed ifTrue: [ 
-		"The main test process errors are handled by SUnit using same message.
-		So the actual domain test error is already counted in result"
-		^self].
-
-	"If main test process was completed successfully
-	we should mark test as failed due to dirty system state"
-	aTestResult addError: aTestCase with: self
-]
+Extension { #name : #DirtyTestError }
+
+{ #category : #'*TestWorkers-Connector' }
+DirtyTestError >> twAnnounce: aTestCase toResult: aTestResult [
+
+	executionEnvironment isMainTestProcessFailed ifTrue: [ 
+		"The main test process errors are handled by SUnit using same message.
+		So the actual domain test error is already counted in result"
+		^self].
+	
+	"If main test process was completed successfully
+	we should mark test as failed due to dirty system state"
+	aTestResult addError: aTestCase with: self
+]

src/TestWorkers-Connector/Error.extension.st

@@ -1,7 +1,7 @@
-Extension { #name : #Error }
-
-{ #category : #'*TestWorkers-Connector' }
-Error >> twAnnounce: aTestCase toResult: aTestResult [
-
-	aTestResult addError: aTestCase with: self
-]
+Extension { #name : #Error }
+
+{ #category : #'*TestWorkers-Connector' }
+Error >> twAnnounce: aTestCase toResult: aTestResult [
+
+	aTestResult addError: aTestCase with: self
+]