On Fri, Jul 15, 2011 at 4:56 PM, Andre Hora <andrehoraa@gmail.com> wrote:

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