Wrote better tests for collect

Author: olekscode

DataFrame-Core.package/DataSeries.class/instance/collect..st

@@ -0,0 +1,7 @@
+enumerating
+collect: aBlock
+
+	| series |
+	series := super collect: aBlock.
+	series name: self name.
+	^ series

DataFrame-Tests.package/DataSeriesTests.class/instance/setUp.st

@@ -1,4 +1,5 @@
 initialization
 setUp
 
-	series := (10 to: 100 by: 10) asDataSeries.
+	series := (10 to: 100 by: 10) asDataSeries.
+	series name: 'ExampleSeries'.

DataFrame-Tests.package/DataSeriesTests.class/instance/testAsDataSeries.st

@@ -5,4 +5,5 @@ testAsDataSeries
 	aSeries := #(a b c) asDataSeries.
 
 	self assert: aSeries size equals: 3.
-	self assert: aSeries asArray equals: #(a b c).
+	self assert: aSeries asArray equals: #(a b c).
+	self assert: aSeries keys equals: #(1 2 3).

DataFrame-Tests.package/DataSeriesTests.class/instance/testAtPut.st

@@ -5,5 +5,6 @@ testAtPut
 
 	series at: 6 put: -2.	
 	expected := #(10 20 30 40 50 -2 70 80 90 100) asDataSeries.
+	expected name: series name.
 
 	self assert: series equals: expected.

DataFrame-Tests.package/DataSeriesTests.class/instance/testCollect.st

@@ -7,5 +7,6 @@ testCollect
 		each / 10 ].
 
 	expected := (1 to: 10) asDataSeries.
+	expected name: series name.
 
 	self assert: actual equals: expected.

DataFrame-Tests.package/DataSeriesTests.class/instance/testCollectWithIndex.st

@@ -7,5 +7,6 @@ testCollectWithIndex
 		each / 10 + i ].
 
 	expected := (2 to: 20 by: 2) asDataSeries.
+	expected name: series name.
 
 	self assert: actual equals: expected.