Moved groups instant variable to DataGrouped class. Wrote a test for grouping series by series

Author: olekscode

DataFrame-Core.package/DataFrameGrouped.class/properties.json

@@ -5,9 +5,7 @@
 	"classinstvars" : [ ],
 	"pools" : [ ],
 	"classvars" : [ ],
-	"instvars" : [
-		"groups"
-	],
+	"instvars" : [ ],
 	"name" : "DataFrameGrouped",
 	"type" : "normal"
 }

DataFrame-Core.package/DataGrouped.class/instance/groups.st

@@ -0,0 +1,4 @@
+accessing
+groups
+
+	^ groups

DataFrame-Core.package/DataGrouped.class/properties.json

@@ -5,7 +5,9 @@
 	"classinstvars" : [ ],
 	"pools" : [ ],
 	"classvars" : [ ],
-	"instvars" : [ ],
+	"instvars" : [
+		"groups"
+	],
 	"name" : "DataGrouped",
 	"type" : "normal"
 }

DataFrame-Core.package/DataSeriesGrouped.class/properties.json

@@ -5,9 +5,7 @@
 	"classinstvars" : [ ],
 	"pools" : [ ],
 	"classvars" : [ ],
-	"instvars" : [
-		"groups"
-	],
+	"instvars" : [ ],
 	"name" : "DataSeriesGrouped",
 	"type" : "normal"
 }

DataFrame-Tests.package/DataFrameAggrGroupTests.class/README.md

@@ -0,0 +1,11 @@
+initialization
+setUp
+
+	df := DataFrame fromRows:
+		#((16.99 1.01 'Female' 'No' 'Sun' 'Dinner' 2)
+		  (10.34 1.66 'Male' 'No' 'Sun' 'Dinner' 3)
+		  (21.01 3.5 'Male' 'No' 'Sun' 'Dinner' 3)
+		  (23.68 3.31 'Male' 'No' 'Sun' 'Dinner' 2)
+		  (24.59 3.61 'Female' 'No' 'Sun' 'Dinner' 4)).
+		
+	df columnNames: #('total_bill' 'tip' 'sex' 'smoker' 'day' 'time' 'size').

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

@@ -0,0 +1,14 @@
+tests
+testGroupSeriesBySeries
+
+	| femaleGroup maleGroup expectedSeries actualSeries |
+	
+	femaleGroup := #(16.99 24.59) asDataSeries.
+	maleGroup := #(10.34 21.01 23.68) asDataSeries.
+	
+	expectedSeries := { femaleGroup . maleGroup } asDataSeries.
+	expectedSeries keys: #('Female' 'Male').
+	
+	actualSeries := (df group: #total_bill by: #sex) groups.
+	
+	self assert: actualSeries equals: expectedSeries.

DataFrame-Tests.package/DataFrameAggrGroupTests.class/instance/testGroupSeriesBySeries.st

@@ -0,0 +1,13 @@
+{
+	"commentStamp" : "",
+	"super" : "TestCase",
+	"category" : "DataFrame-Tests",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"df"
+	],
+	"name" : "DataFrameAggrGroupTests",
+	"type" : "normal"
+}