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