Fix bug on copy of DataFrame

Author: jecisc

src/DataFrame-Tests/DataFrameTest.class.st

@@ -898,6 +898,33 @@ DataFrameTest >> testColumnsSubset [
 	self assert: actualDataFrame equals: expectedDataFrame
 ]
 
+{ #category : #tests }
+DataFrameTest >> testCopy [
+
+	| copy |
+	copy := df copy.
+
+	self assert: copy equals: df.
+	self deny: copy identicalTo: df.
+
+	df addRow: #( 'Paris' 7 false ) named: 'D'.
+
+	self assert: df size equals: 4.
+	self assert: copy size equals: 3
+]
+
+{ #category : #tests }
+DataFrameTest >> testCopy2 [
+
+	| copy |
+	copy := df copy.
+
+	df addColumn: #( false true true ) named: 'Like it'.
+
+	self assert: df numberOfColumns equals: 4.
+	self assert: copy numberOfColumns equals: 3
+]
+
 { #category : #tests }
 DataFrameTest >> testCreateDataFrameWith3ColumnsAndNoRows [
 	| dataFrame |

src/DataFrame-Tests/DataSeriesTest.class.st

@@ -993,6 +993,21 @@ DataSeriesTest >> testCollectWithNotNils [
 	self assert: actual equals: expected
 ]
 
+{ #category : #running }
+DataSeriesTest >> testCopy [
+
+	| copy |
+	copy := series copy.
+
+	self assert: copy equals: series.
+	self deny: copy identicalTo: series.
+
+	series add: $l -> 30.
+
+	self assert: series size equals: 12.
+	self assert: copy size equals: 11
+]
+
 { #category : #'tests - copying' }
 DataSeriesTest >> testCopyCanBeChanged [
 

src/DataFrame/DataFrame.class.st

@@ -1412,6 +1412,16 @@ DataFrame >> outerJoin: aDataFrame onLeft: leftColumn onRight: rightColumn [
 	^ outputDf
 ]
 
+{ #category : #copying }
+DataFrame >> postCopy [
+
+	super postCopy.
+	contents := contents copy.
+	rowNames := rowNames copy.
+	columnNames := columnNames copy.
+	dataTypes := dataTypes copy
+]
+
 { #category : #printing }
 DataFrame >> printOn: aStream [