From: Nando D. <na...@us...> - 2005-02-22 11:32:16
|
Update of /cvsroot/instantobjects/Source/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31008/Tests Modified Files: TestMockBroker.pas Log Message: fixed line endings Index: TestMockBroker.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Tests/TestMockBroker.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** TestMockBroker.pas 20 Feb 2005 19:26:42 -0000 1.1 --- TestMockBroker.pas 22 Feb 2005 11:31:15 -0000 1.2 *************** *** 1,155 **** ! unit TestMockBroker; ! ! interface ! ! uses ! Classes, SysUtils, ! InstantPersistence, ! fpcunit, ! testregistry, ! InstantMock, ! UbMockObject, ! Model; ! ! type ! ! TTestMockBroker = class(TTestCase) ! private ! protected ! FConn: TInstantMockConnector; ! procedure SetUp; override; ! procedure TearDown; override; ! published ! procedure TestModelMdx; ! procedure TestGetBroker; ! procedure TestBuildDatabase; ! procedure TestStoreAndRetrieveAddress; ! procedure TestStoreAndRetrieveContact; ! end; ! ! ! implementation ! ! { TTestMockBroker } ! ! procedure TTestMockBroker.TestModelMdx; ! begin ! InstantModel.LoadFromFile(ChangeFileExt(ParamStr(0),'.mdx')); ! ! AssertNotNull(InstantModel.ClassMetadatas.Find('TContact')); ! end; ! ! ! procedure TTestMockBroker.TestGetBroker; ! var ! brok: TInstantMockBroker; ! begin ! brok := (Fconn.Broker as TInstantMockBroker); ! AssertNotNull(brok); ! AssertEquals(brok.ClassType, TInstantMockBroker); ! brok.MockManager.StartSetUp; ! brok.MockManager.EndSetUp; ! Fconn.BuildDatabase(InstantModel); ! brok.MockManager.Verify; ! end; ! ! procedure TTestMockBroker.TestBuildDatabase; ! var ! brok: TInstantMockBroker; ! begin ! InstantModel.LoadFromFile(ChangeFileExt(ParamStr(0),'.mdx')); ! brok := Fconn.Broker as TInstantMockBroker; ! brok.MockManager.StartSetUp; ! brok.MockManager.EndSetUp; ! Fconn.BuildDatabase(InstantModel); ! brok.MockManager.Verify; ! end; ! ! procedure TTestMockBroker.TestStoreAndRetrieveAddress; ! var ! a: TAddress; ! old_id: string; ! brok: TInstantMockBroker; ! begin ! InstantModel.LoadFromFile(ChangeFileExt(ParamStr(0),'.mdx')); ! Fconn.IsDefault := True; ! Fconn.StartTransaction; ! brok := Fconn.Broker as TInstantMockBroker; ! brok.MockManager.StartSetUp; ! a := TAddress.Create; ! try ! a.City := 'Milan'; ! a.Store(); ! old_id := a.id; ! finally ! a.Free; ! end; ! brok.MockManager.EndSetUp; ! brok.MockManager.AddExpectation('InternalStoreObject ' + old_id); ! brok.MockManager.Verify; ! Fconn.CommitTransaction; ! brok.MockManager.StartSetUp; ! a := TAddress.Create; ! try ! a.Retrieve(old_id); ! finally ! a.Free; ! end; ! brok.MockManager.EndSetUp; ! brok.MockManager.AddExpectation('InternalRetrieveObject ' + old_id); ! brok.MockManager.Verify; ! end; ! ! procedure TTestMockBroker.TestStoreAndRetrieveContact; ! var ! c: TContact; ! old_id: string; ! brok: TInstantMockBroker; ! begin ! InstantModel.LoadFromFile(ChangeFileExt(ParamStr(0),'.mdx')); ! ! Fconn.IsDefault := True; ! brok := Fconn.Broker as TInstantMockBroker; ! brok.MockManager.StartSetUp; ! c := TContact.Create; ! try ! c.Name := 'Mike'; ! c.Address.City := 'Milan'; ! c.Store(); ! 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; ! end; ! brok.MockManager.EndSetUp; ! brok.MockManager.AddExpectation('InternalRetrieveObject ' + old_id); ! brok.MockManager.Verify; ! end; ! ! ! procedure TTestMockBroker.SetUp; ! begin ! inherited; ! FConn := TInstantMockConnector.Create(nil); ! end; ! ! procedure TTestMockBroker.TearDown; ! begin ! FConn.Free; ! inherited; ! end; ! ! initialization ! RegisterTests([TTestMockBroker]); ! ! end. --- 1,146 ---- ! unit TestMockBroker; ! interface ! ! uses ! Classes, SysUtils, InstantPersistence, fpcunit, testregistry, InstantMock, ! UbMockObject, Model; ! ! type ! TTestMockBroker = class(TTestCase) ! private ! protected ! FConn: TInstantMockConnector; ! procedure SetUp; override; ! procedure TearDown; override; ! published ! procedure TestModelMdx; ! procedure TestGetBroker; ! procedure TestBuildDatabase; ! procedure TestStoreAndRetrieveAddress; ! procedure TestStoreAndRetrieveContact; ! end; ! ! implementation ! ! { TTestMockBroker } ! ! procedure TTestMockBroker.TestModelMdx; ! begin ! InstantModel.LoadFromFile(ChangeFileExt(ParamStr(0),'.mdx')); ! ! AssertNotNull(InstantModel.ClassMetadatas.Find('TContact')); ! end; ! ! procedure TTestMockBroker.TestGetBroker; ! var ! brok: TInstantMockBroker; ! begin ! brok := (Fconn.Broker as TInstantMockBroker); ! AssertNotNull(brok); ! AssertEquals(brok.ClassType, TInstantMockBroker); ! brok.MockManager.StartSetUp; ! brok.MockManager.EndSetUp; ! Fconn.BuildDatabase(InstantModel); ! brok.MockManager.Verify; ! end; ! ! procedure TTestMockBroker.TestBuildDatabase; ! var ! brok: TInstantMockBroker; ! begin ! InstantModel.LoadFromFile(ChangeFileExt(ParamStr(0),'.mdx')); ! ! brok := Fconn.Broker as TInstantMockBroker; ! brok.MockManager.StartSetUp; ! brok.MockManager.EndSetUp; ! Fconn.BuildDatabase(InstantModel); ! brok.MockManager.Verify; ! end; ! ! procedure TTestMockBroker.TestStoreAndRetrieveAddress; ! var ! a: TAddress; ! old_id: string; ! brok: TInstantMockBroker; ! begin ! InstantModel.LoadFromFile(ChangeFileExt(ParamStr(0),'.mdx')); ! ! Fconn.IsDefault := True; ! Fconn.StartTransaction; ! brok := Fconn.Broker as TInstantMockBroker; ! brok.MockManager.StartSetUp; ! a := TAddress.Create; ! try ! a.City := 'Milan'; ! a.Store(); ! old_id := a.id; ! finally ! a.Free; ! end; ! brok.MockManager.EndSetUp; ! brok.MockManager.AddExpectation('InternalStoreObject ' + old_id); ! brok.MockManager.Verify; ! Fconn.CommitTransaction; ! brok.MockManager.StartSetUp; ! a := TAddress.Create; ! try ! a.Retrieve(old_id); ! finally ! a.Free; ! end; ! brok.MockManager.EndSetUp; ! brok.MockManager.AddExpectation('InternalRetrieveObject ' + old_id); ! brok.MockManager.Verify; ! end; ! ! procedure TTestMockBroker.TestStoreAndRetrieveContact; ! var ! c: TContact; ! old_id: string; ! brok: TInstantMockBroker; ! begin ! InstantModel.LoadFromFile(ChangeFileExt(ParamStr(0),'.mdx')); ! Fconn.IsDefault := True; ! brok := Fconn.Broker as TInstantMockBroker; ! brok.MockManager.StartSetUp; ! c := TContact.Create; ! try ! c.Name := 'Mike'; ! c.Address.City := 'Milan'; ! c.Store(); ! 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; ! end; ! brok.MockManager.EndSetUp; ! brok.MockManager.AddExpectation('InternalRetrieveObject ' + old_id); ! brok.MockManager.Verify; ! end; ! ! procedure TTestMockBroker.SetUp; ! begin ! inherited; ! FConn := TInstantMockConnector.Create(nil); ! end; ! ! procedure TTestMockBroker.TearDown; ! begin ! FConn.Free; ! inherited; ! end; ! ! initialization ! RegisterTests([TTestMockBroker]); ! ! end. \ No newline at end of file |