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

[Nando D. <na...@us...>]

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

Modified Files:
	TestMockConnector.pas 
Log Message:
fixed line endings

Index: TestMockConnector.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Tests/TestMockConnector.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** TestMockConnector.pas	20 Feb 2005 19:26:42 -0000	1.1
--- TestMockConnector.pas	22 Feb 2005 11:41:23 -0000	1.2
***************
*** 1,111 ****
! unit TestMockConnector;
! 
! interface
! 
! uses
!   Classes, SysUtils,
!   InstantPersistence,
!   fpcunit,
!   testregistry,
!   InstantMock,
!   UbMockObject;
! 
! type
! 
!   TTestMockConnector = class(TTestCase)
!   published
!     procedure TestBuildDatabase;
!     procedure TestConnectDisconnect;
!     procedure TestTransaction;
!     procedure TestDefault;
!   end;
! 
! implementation
! 
! { TTestMockConnector }
! 
! procedure TTestMockConnector.TestBuildDatabase;
! var
!   conn: TInstantMockConnector;
! begin
!   InstantModel.LoadFromFile(ChangeFileExt(ParamStr(0),'.mdx'));
!   conn := TInstantMockConnector.Create(nil);
!   try
!     AssertNotNull(conn);
!     conn.MockManager.AddExpectation('InternalConnect');
!     conn.MockManager.AddExpectation('InternalCreateScheme');
!     conn.MockManager.AddExpectation('CreateBroker');
!     conn.MockManager.AddExpectation('InternalDisconnect');
!     conn.MockManager.EndSetUp;
!     AssertEquals(4, conn.MockManager.UncoveredExpectations);
!     conn.BuildDatabase(InstantModel);
!     conn.MockManager.Verify;
!   finally
!     conn.Free;
!   end;
! 
! end;
! 
! procedure TTestMockConnector.TestConnectDisconnect;
! var
!   conn: TInstantMockConnector;
! begin
!   conn := TInstantMockConnector.Create(nil);
!   try
!     conn.BuildDatabase(InstantModel);
!     conn.MockManager.StartSetUp;
!     conn.MockManager.AddExpectation('InternalConnect');
!     conn.MockManager.AddExpectation('InternalDisconnect');
!     conn.MockManager.EndSetUp;
!     conn.Connect;
!     conn.Disconnect;
!     conn.MockManager.Verify;
!   finally
!     conn.Free;
!   end;
! end;
! 
! 
! procedure TTestMockConnector.TestTransaction;
! var
!   conn: TInstantMockConnector;
! begin
!   InstantModel.LoadFromFile(ChangeFileExt(ParamStr(0),'.mdx'));
!   conn := TInstantMockConnector.Create(nil);
!   try
!     conn.BuildDatabase(InstantModel);
!     conn.Connect;
!     conn.MockManager.StartSetUp; //reset expectations
!     conn.MockManager.AddExpectation('InternalStartTransaction');
!     conn.MockManager.AddExpectation('InternalCommitTransaction');
!     conn.MockManager.EndSetUp;
!     conn.StartTransaction;
!     AssertTrue(conn.InTransaction);
      conn.CommitTransaction;
!     AssertFalse(conn.InTransaction);
!     conn.MockManager.Verify;
!     conn.Disconnect;
!   finally
!     conn.Free;
!   end;
! end;
! 
! procedure TTestMockConnector.TestDefault;
! var
!   conn: TInstantMockConnector;
! begin
!   conn := TInstantMockConnector.Create(nil);
!   try
!     conn.IsDefault := True;
!     AssertSame(InstantDefaultConnector, conn);
!   finally
!     conn.Free;
!   end;
! end;
! 
! 
! 
! initialization
!   RegisterTests([TTestMockConnector]);
! 
! end.
--- 1,106 ----
! unit TestMockConnector;
! 
! interface
! 
! uses
!   Classes, SysUtils,
!   InstantPersistence,
!   fpcunit,
!   testregistry,
!   InstantMock,
!   UbMockObject;
! 
! type
!   TTestMockConnector = class(TTestCase)
!   published
!     procedure TestBuildDatabase;
!     procedure TestConnectDisconnect;
!     procedure TestTransaction;
!     procedure TestDefault;
!   end;
! 
! implementation
! 
! { TTestMockConnector }
! 
! procedure TTestMockConnector.TestBuildDatabase;
! var
!   conn: TInstantMockConnector;
! begin
!   InstantModel.LoadFromFile(ChangeFileExt(ParamStr(0),'.mdx'));
!   conn := TInstantMockConnector.Create(nil);
!   try
!     AssertNotNull(conn);
!     conn.MockManager.AddExpectation('InternalConnect');
!     conn.MockManager.AddExpectation('InternalCreateScheme');
!     conn.MockManager.AddExpectation('CreateBroker');
!     conn.MockManager.AddExpectation('InternalDisconnect');
!     conn.MockManager.EndSetUp;
!     AssertEquals(4, conn.MockManager.UncoveredExpectations);
!     conn.BuildDatabase(InstantModel);
!     conn.MockManager.Verify;
!   finally
!     conn.Free;
!   end;
! end;
! 
! procedure TTestMockConnector.TestConnectDisconnect;
! var
!   conn: TInstantMockConnector;
! begin
!   conn := TInstantMockConnector.Create(nil);
!   try
!     conn.BuildDatabase(InstantModel);
!     conn.MockManager.StartSetUp;
!     conn.MockManager.AddExpectation('InternalConnect');
!     conn.MockManager.AddExpectation('InternalDisconnect');
!     conn.MockManager.EndSetUp;
!     conn.Connect;
!     conn.Disconnect;
!     conn.MockManager.Verify;
!   finally
!     conn.Free;
!   end;
! end;
! 
! procedure TTestMockConnector.TestTransaction;
! var
!   conn: TInstantMockConnector;
! begin
!   InstantModel.LoadFromFile(ChangeFileExt(ParamStr(0),'.mdx'));
!   conn := TInstantMockConnector.Create(nil);
!   try
!     conn.BuildDatabase(InstantModel);
!     conn.Connect;
!     conn.MockManager.StartSetUp; //reset expectations
!     conn.MockManager.AddExpectation('InternalStartTransaction');
!     conn.MockManager.AddExpectation('InternalCommitTransaction');
!     conn.MockManager.EndSetUp;
!     conn.StartTransaction;
!     AssertTrue(conn.InTransaction);
      conn.CommitTransaction;
!     AssertFalse(conn.InTransaction);
!     conn.MockManager.Verify;
!     conn.Disconnect;
!   finally
!     conn.Free;
!   end;
! end;
! 
! procedure TTestMockConnector.TestDefault;
! var
!   conn: TInstantMockConnector;
! begin
!   conn := TInstantMockConnector.Create(nil);
!   try
!     conn.IsDefault := True;
!     AssertSame(InstantDefaultConnector, conn);
!   finally
!     conn.Free;
!   end;
! end;
! 
! initialization
!   RegisterTests([TTestMockConnector]);
! 
! end.