From: Nando D. <na...@us...> - 2005-06-18 09:56:50
|
Update of /cvsroot/instantobjects/Source/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28817/Tests Modified Files: TestInstantTableMetadata.pas Log Message: changes to support the database evolution refactorings Index: TestInstantTableMetadata.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Tests/TestInstantTableMetadata.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** TestInstantTableMetadata.pas 10 Jun 2005 01:25:33 -0000 1.3 --- TestInstantTableMetadata.pas 18 Jun 2005 09:56:39 -0000 1.4 *************** *** 44,48 **** InstantModel.LoadFromResFile(ChangeFileExt(ParamStr(0), '.mdr')); ! FOwner := TInstantRelationalScheme.Create(InstantModel); FInstantTableMetadata := FOwner.FindTableMetadata('Address'); end; --- 44,49 ---- InstantModel.LoadFromResFile(ChangeFileExt(ParamStr(0), '.mdr')); ! FOwner := TInstantScheme.Create; ! FOwner.Catalog := TInstantModelCatalog.Create(FOwner, InstantModel); FInstantTableMetadata := FOwner.FindTableMetadata('Address'); end; |