instantobjects-cvscommit

[uberto b. <ub...@us...>]

Update of /cvsroot/instantobjects/Source/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17630

Modified Files:
	TestMockBroker.pas 
Log Message:
Changed test broker using Retrieve constructor

Index: TestMockBroker.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Tests/TestMockBroker.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** TestMockBroker.pas	22 Feb 2005 11:31:15 -0000	1.2
--- TestMockBroker.pas	22 Feb 2005 16:47:48 -0000	1.3
***************
*** 77,82 ****
      old_id := a.id;
    finally
!     a.Free;
    end;
    brok.MockManager.EndSetUp;
    brok.MockManager.AddExpectation('InternalStoreObject ' + old_id);
--- 77,83 ----
      old_id := a.id;
    finally
!     FreeAndNil(a);
    end;
+   AssertNull(a);
    brok.MockManager.EndSetUp;
    brok.MockManager.AddExpectation('InternalStoreObject ' + old_id);
***************
*** 84,90 ****
    Fconn.CommitTransaction;
    brok.MockManager.StartSetUp;
!   a := TAddress.Create;
    try
!     a.Retrieve(old_id);
    finally
      a.Free;
--- 85,91 ----
    Fconn.CommitTransaction;
    brok.MockManager.StartSetUp;
!   a := TAddress.Retrieve(old_id);
    try
!     AssertEquals(old_id, a.Id);
    finally
      a.Free;
***************
*** 112,124 ****
      old_id := c.id;
    finally
!     c.Free;
    end;
    brok.MockManager.EndSetUp;
    brok.MockManager.AddExpectation('InternalStoreObject ' + old_id);
    brok.MockManager.Verify;
    brok.MockManager.StartSetUp;
!   c := TContact.Create;
    try
!     c.Retrieve(old_id);
    finally
      c.Free;
--- 113,127 ----
      old_id := c.id;
    finally
!     FreeAndNil(c);
    end;
+   AssertNull(c);
    brok.MockManager.EndSetUp;
    brok.MockManager.AddExpectation('InternalStoreObject ' + old_id);
    brok.MockManager.Verify;
    brok.MockManager.StartSetUp;
!   c := TContact.Retrieve(old_id);
    try
!     AssertEquals(old_id, c.Id);
!     AssertNotNull(c.Address);
    finally
      c.Free;