[issue-154] Promoted the local variables in the test to state variabl…

…e to remove duplication.

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

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