Fixed the random seed for testing

Author: olekscode

src/Math-Tests-Clustering/PMClusterFinderTest.class.st

@@ -2,7 +2,8 @@ Class {
 	#name : #PMClusterFinderTest,
 	#superclass : #TestCase,
 	#instVars : [
-		'dataServer'
+		'dataServer',
+		'randomNumberGenerator'
 	],
 	#category : #'Math-Tests-Clustering'
 }
@@ -12,13 +13,11 @@ PMClusterFinderTest >> accumulateAround: aVector size: aNumber into: aCollection
 	"Private - Generate a random point around the given center and insert it into the collection.
 	aNumber is the sigma for the distance to the center"
 
-	| random r phi psi localVector |
-	random := Random new.
+	| r phi psi localVector |
 
-	r := (PMNormalDistribution new: 0 sigma: aNumber) random.
-	
-	phi := random nextBetween: 0 and: Float pi.
-	psi := random nextBetween: 0 and: Float pi.
+	r := randomNumberGenerator nextBetween: -1 * aNumber and: aNumber.
+	phi := randomNumberGenerator nextBetween: 0 and: Float pi.
+	psi := randomNumberGenerator nextBetween: 0 and: Float pi.
 
 	localVector := PMVector new: 3.
 	localVector
@@ -32,30 +31,27 @@ PMClusterFinderTest >> accumulateAround: aVector size: aNumber into: aCollection
 { #category : #utils }
 PMClusterFinderTest >> generatedPoints: anInteger [
 	"Private - Generate random points into aCollection. 3 clusters are used"
-	| centers results random randomNumber |
+	| centers results randomNumber |
 
 	centers := {
 		#( 200 200  200) asPMVector .
 		#(-200 200  200) asPMVector .
 		#( 200 200 -200) asPMVector }.
 
 	results := OrderedCollection new.
-	PMMitchellMooreGenerator reset: 6.
-	
-	"make tests non-random to make sure that they will not fail on the integrator server."
-	random := Random new.
 
 	anInteger timesRepeat: [
-		randomNumber := random nextIntegerBetween: 1 and: 3.
+		randomNumber := randomNumberGenerator nextIntegerBetween: 1 and: 3.
 		self accumulateAround: (centers at: randomNumber) size: 1 into: results ].
 
 	^ results
 ]
 
 { #category : #setUp }
 PMClusterFinderTest >> setUp [
-
-
+	super setUp.
+	randomNumberGenerator := Random seed: 3.
+	
 	dataServer := PMMemoryBasedDataServer new.
 	dataServer data: (self generatedPoints: 1000).