Merge pull request #30 from JanBliznicenko/pharo9

Thanks Jan. It's me who responsible for breaking changes in TestEnvironment :). I am going to avoid this process hook in next iteration as there is now a designed place to extend environment suitable for mocketry logic
dionisiydk · Sep 10, 2020 · ff1c572 · ff1c572
2 parents ea0e14b + f44524e
commit ff1c572
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 1 deletion.
diff --git a/Mocketry-Domain/MockCleaningProcessHook.class.st b/Mocketry-Domain/MockCleaningProcessHook.class.st
@@ -20,3 +20,18 @@ MockCleaningProcessHook class >> instance [
 MockCleaningProcessHook >> terminate [
 	MockCurrentBehaviour value: nil
 ]
+
+{ #category : #testing }
+MockCleaningProcessHook >> isSuspended [
+	^false
+]
+
+{ #category : #testing }
+MockCleaningProcessHook >> isTerminated [
+	^MockCurrentBehaviour value isNil
+]
+
+{ #category : #accessing }
+MockCleaningProcessHook >> priority [
+	^Processor activePriority
+]
diff --git a/Mocketry-Domain/TestExecutionEnvironment.extension.st b/Mocketry-Domain/TestExecutionEnvironment.extension.st
@@ -9,7 +9,7 @@ TestExecutionEnvironment >> allowsForkedProcessInheritMocks [
 { #category : #'*Mocketry-Domain' }
 TestExecutionEnvironment >> createMockBehaviour [
 	| behaviour |
-	forkedProcesses add: MockCleaningProcessHook instance.
+	self forkedProcesses add: MockCleaningProcessHook instance.
 
 	behaviour := super createMockBehaviour.
 	behaviour ownerTestCase: testCase.