From: Steven M. <sr...@us...> - 2005-06-19 05:52:28
|
Update of /cvsroot/instantobjects/Source/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11270 Modified Files: TestInstantElement.pas Log Message: Test update Index: TestInstantElement.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Tests/TestInstantElement.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** TestInstantElement.pas 19 Jun 2005 03:20:31 -0000 1.4 --- TestInstantElement.pas 19 Jun 2005 05:52:19 -0000 1.5 *************** *** 94,99 **** vReturnValue := FInstantElement.DetachObject(vObject); ! AssertFalse('DetachObject', vReturnValue); ! AssertEquals('Object RefCount 3', 1, vObject.RefCount); AssertEquals('Value.Id 2', '', FInstantElement.Value.Id); end; --- 94,98 ---- vReturnValue := FInstantElement.DetachObject(vObject); ! AssertTrue('DetachObject', vReturnValue); AssertEquals('Value.Id 2', '', FInstantElement.Value.Id); end; |