[issue-154] Fixed the bug?

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

@@ -88,11 +88,11 @@ PMAccuracyTest >> testExtractFromResultsWhichOnlyOne [
 		assert: (a extractFromResults: #('bla' 'blah') which: 2 onlyOne: false)
 		equals: 'blah'.
 	"Why are we getting the argument?"	
-	self assert: a testGetterAaa second = #(true) description: [ a asString ].
+	self assert: (a testGetter: 'Aaa') second equals: #(true).
 	self
 		assert: (a extractFromResults: #('bla' 'blah') which: 1 onlyOne: true)
 		equals: #('bla' 'blah').
-	self assert: a testGetterAaa second = #(#(false) #(true)) description: a asString 
+	self assert: (a testGetter: 'Aaa') second = #(#(false) #(true)) description: a asString 
 ]
 
 { #category : #tests }

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

@@ -15,9 +15,17 @@ Class {
 	#category : #'Math-Tests-Accuracy'
 }
 
+{ #category : #'as yet unclassified' }
+PMAccuracyTestExample >> argumentWith: key [
+	| r |
+	r := self argumentAt: (self findKey: key).
+	numberOfResults ifNotNil: [ :rn | r := r at: rn ].
+	^ r
+]
+
 { #category : #converting }
 PMAccuracyTestExample >> asString [
-	^ theSelector asString , theSender asString , self argument asString, self parameter asString , names asString 
+	^ theSender asString , theSelector asString , self argument asString, self parameter asString , names asString 
 ]
 
 { #category : #tests }
@@ -151,6 +159,16 @@ PMAccuracyTestExample >> tearDown [
 	count := count - (1 / 5)
 ]
 
+{ #category : #tests }
+PMAccuracyTestExample >> testGetter: key [
+	^ Array
+		with: self parameter
+		with: (self argumentWith: 'Aaa')
+		with: (self resultsAt: 'Aaa')
+		with: (self numberOfDifferentParametersAt: 'Aaa')
+		with: (self numberOfDifferentResultsAt: 'Aaa')
+]
+
 { #category : #private }
 PMAccuracyTestExample >> testGetterAaa [
 ^Array