Refactored testSelectRandomlyFrom

cormas · Aug 23, 2023 · c20f927 · c20f927
1 parent 66d5921
commit c20f927
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/repository/Cormas-Tests/CormasTest.class.st b/repository/Cormas-Tests/CormasTest.class.st
@@ -225,9 +225,13 @@ CormasTest >> testSeed [
 
 { #category : #tests }
 CormasTest >> testSelectRandomlyFrom [
-	| aCollection |
-	aCollection := #(1 2 3 4 5).
-	self assert: (aCollection includes: (Cormas selectRandomlyFrom: aCollection))
+
+	| collection selectedElement |
+	collection := #(a b c d e).
+
+	selectedElement := Cormas selectRandomlyFrom: collection.
+
+	self assert: (collection includes: selectedElement)
 ]
 
 { #category : #tests }