Hi guys
We wrote
testHasExactlySamePropertiesThan "p"
| cp | "I should have the same entity than a copy of myself" self assert: (self nodeClass hasExactlySamePropertiesThan: self nodeClass deepCopy).
cp := self nodeClass deepCopy. cp propertyNamed: #NOP ifAbsentPut: 12000. "This property is described as a fame property but not existing on the copy so two entities should have different properties" self deny: (self nodeClass hasExactlySamePropertiesThan: cp).
and deepCopy loops on a FMValueLink