[Instantobjects-cvscommit] Source/Tests TestInstantObject.pas,1.1,1.2

[Steven M. <sr...@us...>]

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

Modified Files:
	TestInstantObject.pas 
Log Message:
Fixed memory leak in NewInstance test.

Index: TestInstantObject.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Tests/TestInstantObject.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** TestInstantObject.pas	10 Jun 2005 01:26:13 -0000	1.1
--- TestInstantObject.pas	10 Jun 2005 02:07:37 -0000	1.2
***************
*** 408,413 ****
  begin
    vReturnValue := FInstantObject.NewInstance;
!   AssertNotNull(vReturnValue);
!   AssertEquals('InstanceSize', TPerson.InstanceSize, vReturnValue.InstanceSize);
  end;
  
--- 408,417 ----
  begin
    vReturnValue := FInstantObject.NewInstance;
!   try
!     AssertNotNull(vReturnValue);
!     AssertEquals('InstanceSize', TPerson.InstanceSize, vReturnValue.InstanceSize);
!   finally
!     vReturnValue.Free;
!   end;
  end;