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

--
Andre Hora