[issue-154] Corrected the behaviour of findKey, making it more testab…

…le in the subclass to mitigate risk.

src/Math-Tests-Accuracy/PMAccuracyFindKeyTest.class.st

@@ -0,0 +1,33 @@
+"
+This test case exercises the findKey: message with some regression tests.
+"
+Class {
+	#name : #PMAccuracyFindKeyTest,
+	#superclass : #TestCase,
+	#category : #'Math-Tests-Accuracy'
+}
+
+{ #category : #tests }
+PMAccuracyFindKeyTest >> testFindKeyReturnsAllTheRestStringWhenSelectorCorrespondsToNonExistentProperty [
+	| accuracy |
+	accuracy := PMAccuracyTestExample new.
+
+	self assert: (accuracy findKey: 'NonExistent') equals: 'AllTheRest'
+]
+
+{ #category : #tests }
+PMAccuracyFindKeyTest >> testFindKeyReturnsAllTheRestStringWhenSelectorIsInitialize [
+	| accuracy selector |
+	accuracy := PMAccuracyTestExample new.
+	selector := 'initialize'.
+
+	self assert: (accuracy findKey: selector) equals: 'AllTheRest'
+]
+
+{ #category : #tests }
+PMAccuracyFindKeyTest >> testFindKeyReturnsPropertyWhenSelectorIsSuffixOfInitializePropertyMessage [
+	| accuracy |
+	accuracy := PMAccuracyTestExample new.
+
+	self assert: (accuracy findKey: 'Aaa') equals: 'Aaa'
+]

src/Math-Tests-Accuracy/PMAccuracyTestExample.class.st

@@ -56,6 +56,25 @@ PMAccuracyTestExample >> count [
 	^ count
 ]
 
+{ #category : #private }
+PMAccuracyTestExample >> findKey [
+	| s selector |
+	s := thisContext sender.
+	selector := s sender method selector.
+	^ self findKey: selector
+]
+
+{ #category : #private }
+PMAccuracyTestExample >> findKey: selector [
+	| matchingMessage |
+	selector = 'initialize'
+		ifTrue: [ ^ 'AllTheRest' ].
+	matchingMessage := names
+		detect: [ :name | selector endsWith: name ]
+		ifNone: [ 'AllTheRest' ].
+	^ matchingMessage
+]
+
 { #category : #'initialize-release' }
 PMAccuracyTestExample >> initialize [
 	"this is always necessarily the first thing:"