Test: Add deep copy state isolation test

Author: HossamSaberr

src/Containers-KeyedTree-Tests/CTKeyedTreeTest.class.st

@@ -215,6 +215,25 @@ CTKeyedTreeTest >> testCopy [
 	self assert: (c includesKey: #new)
 ]
 
+{ #category : 'tests' }
+CTKeyedTreeTest >> testDeepCopyStateNotShared [
+	| original clone |
+	original := CTKeyedTree new
+		at: #config put: (CTKeyedTree new 
+			at: #color put: 'red'; 
+			yourself);
+		yourself.
+		
+	clone := original copy.
+	
+	(clone at: #config) at: #color put: 'blue'.
+	
+	self assert: (original atPath: #(config color)) equals: 'red'.
+	self assert: (clone atPath: #(config color)) equals: 'blue'.
+	
+	self deny: (original at: #config) == (clone at: #config).
+]
+
 { #category : 'tests' }
 CTKeyedTreeTest >> testDepth [