From: <na...@us...> - 2010-09-16 10:47:21
|
Revision: 919 http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=919&view=rev Author: nandod Date: 2010-09-16 10:47:14 +0000 (Thu, 16 Sep 2010) Log Message: ----------- * Test suite changed due to Burst Load Mode changes. + Missing Delphi XE test project files. Modified Paths: -------------- trunk/Tests/InstantMock.pas Added Paths: ----------- trunk/Tests/TestIO_DXE.dpr trunk/Tests/TestIO_DXE.dproj trunk/Tests/TestIO_DXE.mdr trunk/Tests/TestIO_DXE.mdrt trunk/Tests/TestIO_DXE.mdx trunk/Tests/TestIO_DXE.mdxt trunk/Tests/TestIO_DXE.res Removed Paths: ------------- trunk/Tests/TestIO_D2011.dpr trunk/Tests/TestIO_D2011.res Modified: trunk/Tests/InstantMock.pas =================================================================== --- trunk/Tests/InstantMock.pas 2010-09-16 10:28:36 UTC (rev 918) +++ trunk/Tests/InstantMock.pas 2010-09-16 10:47:14 UTC (rev 919) @@ -24,7 +24,7 @@ * the Initial Developer. All Rights Reserved. * * Contributor(s): - * Steven Mitchell + * Steven Mitchell, Nando Dessena * * ***** END LICENSE BLOCK ***** *) @@ -36,7 +36,7 @@ uses SysUtils, Classes, DB, InstantPersistence, InstantBrokers, InstantMetadata, - InstantTypes, UbMockObject; + InstantTypes, InstantClasses, UbMockObject; type TInstantBrokerClass = class of TInstantBroker; @@ -78,7 +78,8 @@ ConflictAction: TInstantConflictAction): Boolean; override; function InternalRetrieveObject(AObject: TInstantObject; const AObjectId: string; - ConflictAction: TInstantConflictAction): Boolean; override; + ConflictAction: TInstantConflictAction; + const AObjectData: TInstantAbstractObjectData = nil): Boolean; override; function InternalStoreObject(AObject: TInstantObject; ConflictAction: TInstantConflictAction): Boolean; override; public @@ -97,7 +98,8 @@ ConflictAction: TInstantConflictAction): Boolean; override; function InternalRetrieveObject(AObject: TInstantObject; const AObjectId: String; - ConflictAction: TInstantConflictAction): Boolean; override; + ConflictAction: TInstantConflictAction; + const AObjectData: TInstantAbstractObjectData = nil): Boolean; override; function InternalStoreObject(AObject: TInstantObject; ConflictAction: TInstantConflictAction): Boolean; override; public @@ -144,7 +146,8 @@ function InternalDisposeObject(AObject: TInstantObject; ConflictAction: TInstantConflictAction): Boolean; override; function InternalRetrieveObject(AObject: TInstantObject; const AObjectId: - String; ConflictAction: TInstantConflictAction): Boolean; override; + String; ConflictAction: TInstantConflictAction; + const AObjectData: TInstantAbstractObjectData = nil): Boolean; override; function InternalStoreObject(AObject: TInstantObject; ConflictAction: TInstantConflictAction): Boolean; override; public @@ -288,7 +291,8 @@ function TInstantMockBroker.InternalRetrieveObject(AObject: TInstantObject; const AObjectId: string; - ConflictAction: TInstantConflictAction): Boolean; + ConflictAction: TInstantConflictAction; + const AObjectData: TInstantAbstractObjectData = nil): Boolean; begin Result := True; FMock.AddExpectation('InternalRetrieveObject ' + AObjectId); @@ -355,7 +359,8 @@ function TInstantMockCRBroker.InternalRetrieveObject( AObject: TInstantObject; const AObjectId: String; - ConflictAction: TInstantConflictAction): Boolean; + ConflictAction: TInstantConflictAction; + const AObjectData: TInstantAbstractObjectData = nil): Boolean; begin Result := True; MockManager.AddExpectation('InternalRetrieveObject ' + CaToStr(ConflictAction) + ' ' + AObjectId); @@ -507,7 +512,8 @@ end; function TInstantMockSQLBroker.InternalRetrieveObject(AObject: TInstantObject; - const AObjectId: String; ConflictAction: TInstantConflictAction): Boolean; + const AObjectId: String; ConflictAction: TInstantConflictAction; + const AObjectData: TInstantAbstractObjectData = nil): Boolean; begin Result := True; MockManager.AddExpectation('InternalRetrieveObject ' + CaToStr(ConflictAction) + ' ' + AObjectId); Deleted: trunk/Tests/TestIO_D2011.dpr =================================================================== --- trunk/Tests/TestIO_D2011.dpr 2010-09-16 10:28:36 UTC (rev 918) +++ trunk/Tests/TestIO_D2011.dpr 2010-09-16 10:47:14 UTC (rev 919) @@ -1,68 +0,0 @@ -program TestIO_D2011; - -{$I '..\Source\InstantDefines.inc'} - -{$IFDEF FPC} -{$mode objfpc}{$H+} -{$ENDIF} - -uses - Forms, - guitestrunner, - fpcunit, - testregistry, - testutils, - testreport, - InstantPersistence, - InstantMock in 'InstantMock.pas', - TestMockConnector in 'TestMockConnector.pas', - TestMockBroker in 'TestMockBroker.pas', - TestModel in 'TestModel.pas', - TestInstantMetadata in 'TestInstantMetadata.pas', - TestInstantFieldMetadata in 'TestInstantFieldMetadata.pas', - TestInstantClassMetadata in 'TestInstantClassMetadata.pas', - TestInstantAttributeMetadata in 'TestInstantAttributeMetadata.pas', - TestInstantIndexMetadata in 'TestInstantIndexMetadata.pas', - TestInstantTableMetadata in 'TestInstantTableMetadata.pas', - TestInstantScheme in 'TestInstantScheme.pas', - TestInstantClasses in 'TestInstantClasses.pas', - TestInstantRtti in 'TestInstantRtti.pas', - TestMinimalModel in 'TestMinimalModel.pas', - TestInstantAttributeMap in 'TestInstantAttributeMap.pas', - TestInstantAttribute in 'TestInstantAttribute.pas', - TestInstantNumeric in 'TestInstantNumeric.pas', - TestInstantInteger in 'TestInstantInteger.pas', - TestInstantString in 'TestInstantString.pas', - TestInstantDateTime in 'TestInstantDateTime.pas', - TestInstantDate in 'TestInstantDate.pas', - TestInstantTime in 'TestInstantTime.pas', - TestInstantBoolean in 'TestInstantBoolean.pas', - TestInstantFloat in 'TestInstantFloat.pas', - TestInstantCurrency in 'TestInstantCurrency.pas', - TestInstantBlob in 'TestInstantBlob.pas', - TestInstantComplex in 'TestInstantComplex.pas', - TestInstantPart in 'TestInstantPart.pas', - TestInstantReference in 'TestInstantReference.pas', - TestInstantObject in 'TestInstantObject.pas', - TestInstantObjectState in 'TestInstantObjectState.pas', - TestInstantCache in 'TestInstantCache.pas', - TestInstantObjectStore in 'TestInstantObjectStore.pas', - TestInstantParts in 'TestInstantParts.pas', - TestInstantReferences in 'TestInstantReferences.pas', - TestInstantCircularReferences in 'TestInstantCircularReferences.pas', - TestInstantObjectReference in 'TestInstantObjectReference.pas', - MinimalModel in 'MinimalModel.pas', - TestXMLBroker in 'TestXMLBroker.pas', - TestInstantCode in 'TestInstantCode.pas'; - -{$R *.res} -{$R *.mdr} {TestModel} - -begin - Application.Initialize; - InstantModel.ClassMetadatas.Clear; - Application.CreateForm(TGUITestRunner, TestRunner); - //Application.CreateForm(TTestRunner, TestRunner); - Application.Run; -end. - Deleted: trunk/Tests/TestIO_D2011.res =================================================================== (Binary files differ) Copied: trunk/Tests/TestIO_DXE.dpr (from rev 918, trunk/Tests/TestIO_D2011.dpr) =================================================================== --- trunk/Tests/TestIO_DXE.dpr (rev 0) +++ trunk/Tests/TestIO_DXE.dpr 2010-09-16 10:47:14 UTC (rev 919) @@ -0,0 +1,68 @@ +program TestIO_DXE; + +{$I '..\Source\InstantDefines.inc'} + +{$IFDEF FPC} +{$mode objfpc}{$H+} +{$ENDIF} + +uses + Forms, + guitestrunner, + fpcunit, + testregistry, + testutils, + testreport, + InstantPersistence, + InstantMock in 'InstantMock.pas', + TestMockConnector in 'TestMockConnector.pas', + TestMockBroker in 'TestMockBroker.pas', + TestModel in 'TestModel.pas', + TestInstantMetadata in 'TestInstantMetadata.pas', + TestInstantFieldMetadata in 'TestInstantFieldMetadata.pas', + TestInstantClassMetadata in 'TestInstantClassMetadata.pas', + TestInstantAttributeMetadata in 'TestInstantAttributeMetadata.pas', + TestInstantIndexMetadata in 'TestInstantIndexMetadata.pas', + TestInstantTableMetadata in 'TestInstantTableMetadata.pas', + TestInstantScheme in 'TestInstantScheme.pas', + TestInstantClasses in 'TestInstantClasses.pas', + TestInstantRtti in 'TestInstantRtti.pas', + TestMinimalModel in 'TestMinimalModel.pas', + TestInstantAttributeMap in 'TestInstantAttributeMap.pas', + TestInstantAttribute in 'TestInstantAttribute.pas', + TestInstantNumeric in 'TestInstantNumeric.pas', + TestInstantInteger in 'TestInstantInteger.pas', + TestInstantString in 'TestInstantString.pas', + TestInstantDateTime in 'TestInstantDateTime.pas', + TestInstantDate in 'TestInstantDate.pas', + TestInstantTime in 'TestInstantTime.pas', + TestInstantBoolean in 'TestInstantBoolean.pas', + TestInstantFloat in 'TestInstantFloat.pas', + TestInstantCurrency in 'TestInstantCurrency.pas', + TestInstantBlob in 'TestInstantBlob.pas', + TestInstantComplex in 'TestInstantComplex.pas', + TestInstantPart in 'TestInstantPart.pas', + TestInstantReference in 'TestInstantReference.pas', + TestInstantObject in 'TestInstantObject.pas', + TestInstantObjectState in 'TestInstantObjectState.pas', + TestInstantCache in 'TestInstantCache.pas', + TestInstantObjectStore in 'TestInstantObjectStore.pas', + TestInstantParts in 'TestInstantParts.pas', + TestInstantReferences in 'TestInstantReferences.pas', + TestInstantCircularReferences in 'TestInstantCircularReferences.pas', + TestInstantObjectReference in 'TestInstantObjectReference.pas', + MinimalModel in 'MinimalModel.pas', + TestXMLBroker in 'TestXMLBroker.pas', + TestInstantCode in 'TestInstantCode.pas'; + +{$R *.res} +{$R *.mdr} {TestModel} + +begin + Application.Initialize; + InstantModel.ClassMetadatas.Clear; + Application.CreateForm(TGUITestRunner, TestRunner); + //Application.CreateForm(TTestRunner, TestRunner); + Application.Run; +end. + Added: trunk/Tests/TestIO_DXE.dproj =================================================================== --- trunk/Tests/TestIO_DXE.dproj (rev 0) +++ trunk/Tests/TestIO_DXE.dproj 2010-09-16 10:47:14 UTC (rev 919) @@ -0,0 +1,164 @@ + <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <PropertyGroup> + <ProjectGuid>{015d41df-eb42-4172-b75c-3e0f464f00cc}</ProjectGuid> + <MainSource>TestIO_DXE.dpr</MainSource> + <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> + <DCC_DCCCompiler>DCC32</DCC_DCCCompiler> + <DCC_DependencyCheckOutputName>TestIO_DXE.exe</DCC_DependencyCheckOutputName> + <ProjectVersion>12.2</ProjectVersion> + <Config Condition="'$(Config)'==''">Debug</Config> + <Base>True</Base> + <Platform>Win32</Platform> + <AppType>Application</AppType> + <FrameworkType>VCL</FrameworkType> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''"> + <Cfg_1>true</Cfg_1> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''"> + <Cfg_2>true</Cfg_2> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Base)'!=''"> + <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias)</DCC_UnitAlias> + <DCC_UnitSearchPath>..\Source\Core;..\Source\Brokers\XML;.\ubmock\src;.\DUnit\src;$(DCC_UnitSearchPath)</DCC_UnitSearchPath> + <DCC_DebugDCUs>true</DCC_DebugDCUs> + <DCC_DependencyCheckOutputName>TestIO_DXE.exe</DCC_DependencyCheckOutputName> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_1)'!=''"> + <Version>7.0</Version> + <DCC_DebugInformation>False</DCC_DebugInformation> + <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> + <DCC_Optimize>False</DCC_Optimize> + <DCC_TypedAtParameter>True</DCC_TypedAtParameter> + <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> + <DCC_ResourcePath>..\Source\Core;.\ubmock\src;$(DCC_ResourcePath)</DCC_ResourcePath> + <DCC_ObjPath>..\Source\Core;.\ubmock\src;$(DCC_ObjPath)</DCC_ObjPath> + <DCC_IncludePath>..\Source\Core;.\ubmock\src;$(DCC_IncludePath)</DCC_IncludePath> + <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_2)'!=''"> + <Version>7.0</Version> + <DCC_Optimize>False</DCC_Optimize> + <DCC_TypedAtParameter>True</DCC_TypedAtParameter> + <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> + <DCC_ResourcePath>..\Source\Core;.\ubmock\src;$(DCC_ResourcePath)</DCC_ResourcePath> + <DCC_ObjPath>..\Source\Core;.\ubmock\src;$(DCC_ObjPath)</DCC_ObjPath> + <DCC_IncludePath>..\Source\Core;.\ubmock\src;$(DCC_IncludePath)</DCC_IncludePath> + <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> + </PropertyGroup> + <ItemGroup> + <DelphiCompile Include="TestIO_DXE.dpr"> + <MainSource>MainSource</MainSource> + </DelphiCompile> + <DCCReference Include="InstantMock.pas"/> + <DCCReference Include="TestMockConnector.pas"/> + <DCCReference Include="TestMockBroker.pas"/> + <DCCReference Include="TestModel.pas"/> + <DCCReference Include="TestInstantMetadata.pas"/> + <DCCReference Include="TestInstantFieldMetadata.pas"/> + <DCCReference Include="TestInstantClassMetadata.pas"/> + <DCCReference Include="TestInstantAttributeMetadata.pas"/> + <DCCReference Include="TestInstantIndexMetadata.pas"/> + <DCCReference Include="TestInstantTableMetadata.pas"/> + <DCCReference Include="TestInstantScheme.pas"/> + <DCCReference Include="TestInstantClasses.pas"/> + <DCCReference Include="TestInstantRtti.pas"/> + <DCCReference Include="TestMinimalModel.pas"/> + <DCCReference Include="TestInstantAttributeMap.pas"/> + <DCCReference Include="TestInstantAttribute.pas"/> + <DCCReference Include="TestInstantNumeric.pas"/> + <DCCReference Include="TestInstantInteger.pas"/> + <DCCReference Include="TestInstantString.pas"/> + <DCCReference Include="TestInstantDateTime.pas"/> + <DCCReference Include="TestInstantDate.pas"/> + <DCCReference Include="TestInstantTime.pas"/> + <DCCReference Include="TestInstantBoolean.pas"/> + <DCCReference Include="TestInstantFloat.pas"/> + <DCCReference Include="TestInstantCurrency.pas"/> + <DCCReference Include="TestInstantBlob.pas"/> + <DCCReference Include="TestInstantComplex.pas"/> + <DCCReference Include="TestInstantPart.pas"/> + <DCCReference Include="TestInstantReference.pas"/> + <DCCReference Include="TestInstantObject.pas"/> + <DCCReference Include="TestInstantObjectState.pas"/> + <DCCReference Include="TestInstantCache.pas"/> + <DCCReference Include="TestInstantObjectStore.pas"/> + <DCCReference Include="TestInstantParts.pas"/> + <DCCReference Include="TestInstantReferences.pas"/> + <DCCReference Include="TestInstantCircularReferences.pas"/> + <DCCReference Include="TestInstantObjectReference.pas"/> + <DCCReference Include="MinimalModel.pas"/> + <DCCReference Include="TestXMLBroker.pas"/> + <DCCReference Include="TestInstantCode.pas"/> + <BuildConfiguration Include="Debug"> + <Key>Cfg_2</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + <BuildConfiguration Include="Base"> + <Key>Base</Key> + </BuildConfiguration> + <BuildConfiguration Include="Release"> + <Key>Cfg_1</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + </ItemGroup> + <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/> + <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\8.0\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\8.0\UserTools.proj"/> + <ProjectExtensions> + <Borland.Personality>Delphi.Personality.12</Borland.Personality> + <Borland.ProjectType>VCLApplication</Borland.ProjectType> + <BorlandProject> + <Delphi.Personality> + <Compiler> + <Compiler Name="UsePackages">False</Compiler> + <Compiler Name="Packages">vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;adortl;vclactnband;vclshlctrls;CS30Logging70;Rz30Ctls70;Rz30DBCtls70;ip4000v7;Rave60VCL;Rave60CLX;madBasic_;madDisAsm_;CLXIB;ibxpress;VCLIB;IOCore;IOIBX</Compiler> + </Compiler> + <Parameters> + <Parameters Name="DebugSourceDirs">..\Source\Core</Parameters> + </Parameters> + <VersionInfo> + <VersionInfo Name="IncludeVerInfo">False</VersionInfo> + <VersionInfo Name="AutoIncBuild">False</VersionInfo> + <VersionInfo Name="MajorVer">1</VersionInfo> + <VersionInfo Name="MinorVer">0</VersionInfo> + <VersionInfo Name="Release">0</VersionInfo> + <VersionInfo Name="Build">0</VersionInfo> + <VersionInfo Name="Debug">False</VersionInfo> + <VersionInfo Name="PreRelease">False</VersionInfo> + <VersionInfo Name="Special">False</VersionInfo> + <VersionInfo Name="Private">False</VersionInfo> + <VersionInfo Name="DLL">False</VersionInfo> + <VersionInfo Name="Locale">3081</VersionInfo> + <VersionInfo Name="CodePage">1252</VersionInfo> + </VersionInfo> + <VersionInfoKeys> + <VersionInfoKeys Name="CompanyName"/> + <VersionInfoKeys Name="FileDescription"/> + <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="InternalName"/> + <VersionInfoKeys Name="LegalCopyright"/> + <VersionInfoKeys Name="LegalTrademarks"/> + <VersionInfoKeys Name="OriginalFilename"/> + <VersionInfoKeys Name="ProductName"/> + <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="Comments"/> + </VersionInfoKeys> + <Source> + <Source Name="MainSource">TestIO_DXE.dpr</Source> + </Source> + </Delphi.Personality> + <Platforms> + <Platform value="Win32">True</Platform> + </Platforms> + </BorlandProject> + <ProjectFileVersion>12</ProjectFileVersion> + </ProjectExtensions> + </Project> Property changes on: trunk/Tests/TestIO_DXE.dproj ___________________________________________________________________ Added: svn:mime-type + text/plain Added: svn:eol-style + native Added: trunk/Tests/TestIO_DXE.mdr =================================================================== (Binary files differ) Property changes on: trunk/Tests/TestIO_DXE.mdr ___________________________________________________________________ Added: svn:mime-type + application/octet-stream Added: trunk/Tests/TestIO_DXE.mdrt =================================================================== (Binary files differ) Property changes on: trunk/Tests/TestIO_DXE.mdrt ___________________________________________________________________ Added: svn:mime-type + application/octet-stream Added: trunk/Tests/TestIO_DXE.mdx =================================================================== --- trunk/Tests/TestIO_DXE.mdx (rev 0) +++ trunk/Tests/TestIO_DXE.mdx 2010-09-16 10:47:14 UTC (rev 919) @@ -0,0 +1,461 @@ +<TInstantClassMetadatas> + <TInstantClassMetadata> + <Name>TAddress</Name> + <Persistence>peEmbedded</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>City</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>TRUE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>30</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Country</Name> + <AttributeType>atReference</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TCountry</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>State</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>4</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Street</Name> + <AttributeType>atMemo</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Zip</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>10</Size> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TCountry</Name> + <Persistence>peStored</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Name</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>30</Size> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TPhone</Name> + <Persistence>peEmbedded</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Name</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>20</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Name</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>30</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Number</Name> + <AttributeType>atString</AttributeType> + <EditMask>(000) 000-0000;0;_</EditMask> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>20</Size> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TEmail</Name> + <Persistence>peStored</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Address</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>100</Size> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TCategory</Name> + <Persistence>peStored</Persistence> + <StorageName>Categories</StorageName> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Name</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>30</Size> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TContact</Name> + <Persistence>peStored</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Address</Name> + <AttributeType>atPart</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TAddress</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Category</Name> + <AttributeType>atReference</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TCategory</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>City</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>TRUE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>30</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Name</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>TRUE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>50</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Phones</Name> + <AttributeType>atParts</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TPhone</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Projects</Name> + <AttributeType>atReferences</AttributeType> + <ExternalStorageName>Contact_Projects</ExternalStorageName> + <StorageKind>skExternal</StorageKind> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TProject</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>ExternalAddress</Name> + <AttributeType>atPart</AttributeType> + <StorageKind>skExternal</StorageKind> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TExternalAddress</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>ExternalPhones</Name> + <AttributeType>atParts</AttributeType> + <ExternalStorageName>Contact_ExternalPhones</ExternalStorageName> + <StorageKind>skExternal</StorageKind> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TExternalPhone</ObjectClassName> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TContactFilter</Name> + <ParentName>TContact</ParentName> + <Persistence>peEmbedded</Persistence> + <AttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TPerson</Name> + <ParentName>TContact</ParentName> + <Persistence>peStored</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>BirthDate</Name> + <AttributeType>atDateTime</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Emails</Name> + <AttributeType>atParts</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TEmail</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Employer</Name> + <AttributeType>atReference</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TCompany</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Picture</Name> + <AttributeType>atBlob</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Salary</Name> + <AttributeType>atCurrency</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ValidCharsString>,.0..9€</ValidCharsString> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Employed</Name> + <AttributeType>atBoolean</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>AL_hours</Name> + <AttributeType>atFloat</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>EmploymentDate</Name> + <AttributeType>atDate</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>BirthTime</Name> + <AttributeType>atTime</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TCompany</Name> + <ParentName>TContact</ParentName> + <Persistence>peStored</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Employees</Name> + <AttributeType>atReferences</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TPerson</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>NoOfBranches</Name> + <AttributeType>atInteger</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Subsidiaries</Name> + <AttributeType>atReferences</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TCompany</ObjectClassName> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TProject</Name> + <Persistence>peStored</Persistence> + <StorageName>Projects</StorageName> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Name</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>30</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>SubProjects</Name> + <AttributeType>atParts</AttributeType> + <ExternalStorageName>Project_SubProjects</ExternalStorageName> + <StorageKind>skExternal</StorageKind> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TProject</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Addresses</Name> + <AttributeType>atParts</AttributeType> + <ExternalStorageName>Project_Addresses</ExternalStorageName> + <StorageKind>skExternal</StorageKind> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TExternalAddress</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Manager</Name> + <AttributeType>atReference</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TContact</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Participants</Name> + <AttributeType>atReferences</AttributeType> + <ExternalStorageName>Project_Participants</ExternalStorageName> + <StorageKind>skExternal</StorageKind> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TContact</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Items</Name> + <AttributeType>atPart</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TProjectItems</ObjectClassName> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TExternalAddress</Name> + <Persistence>peStored</Persistence> + <StorageName>ExternalAddresses</StorageName> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Name</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>30</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Category</Name> + <AttributeType>atReference</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TCategory</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Site_Contact</Name> + <AttributeType>atReference</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TPerson</ObjectClassName> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TExternalPhone</Name> + <Persistence>peStored</Persistence> + <StorageName>ExternalPhones</StorageName> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Name</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>20</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Number</Name> + <AttributeType>atString</AttributeType> + <EditMask>(000) 000-0000;0;_</EditMask> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>20</Size> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TProjectBox</Name> + <Persistence>peStored</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Project</Name> + <AttributeType>atPart</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TProject</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>RelatedProjectBoxes</Name> + <AttributeType>atReferences</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TProjectBox</ObjectClassName> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TProjectItem</Name> + <Persistence>peStored</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Description</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>50</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Country</Name> + <AttributeType>atReference</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TCountry</ObjectClassName> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TProjectItems</Name> + <Persistence>peStored</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Items</Name> + <AttributeType>atParts</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TProjectItem</ObjectClassName> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> +</TInstantClassMetadatas> Property changes on: trunk/Tests/TestIO_DXE.mdx ___________________________________________________________________ Added: svn:mime-type + text/plain Added: svn:eol-style + native Added: trunk/Tests/TestIO_DXE.mdxt =================================================================== --- trunk/Tests/TestIO_DXE.mdxt (rev 0) +++ trunk/Tests/TestIO_DXE.mdxt 2010-09-16 10:47:14 UTC (rev 919) @@ -0,0 +1,445 @@ +<TInstantClassMetadatas> + <TInstantClassMetadata> + <Name>TAddress</Name> + <Persistence>peEmbedded</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>City</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>TRUE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>30</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Country</Name> + <AttributeType>atReference</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TCountry</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>State</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>4</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Street</Name> + <AttributeType>atMemo</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Zip</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>10</Size> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TCountry</Name> + <Persistence>peStored</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Name</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>30</Size> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TPhone</Name> + <Persistence>peEmbedded</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Name</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>20</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Name</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>30</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Number</Name> + <AttributeType>atString</AttributeType> + <EditMask>(000) 000-0000;0;_</EditMask> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>20</Size> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TEmail</Name> + <Persistence>peStored</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Address</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>100</Size> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TContact</Name> + <Persistence>peStored</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Address</Name> + <AttributeType>atPart</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TAddress</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Category</Name> + <AttributeType>atReference</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TCategory</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>City</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>TRUE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>30</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Name</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>TRUE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>50</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Phones</Name> + <AttributeType>atParts</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TPhone</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Projects</Name> + <AttributeType>atReferences</AttributeType> + <ExternalStorageName>Contact_Projects</ExternalStorageName> + <StorageKind>skExternal</StorageKind> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TProject</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>ExternalAddress</Name> + <AttributeType>atPart</AttributeType> + <StorageKind>skExternal</StorageKind> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TExternalAddress</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>ExternalPhones</Name> + <AttributeType>atParts</AttributeType> + <ExternalStorageName>Contact_ExternalPhones</ExternalStorageName> + <StorageKind>skExternal</StorageKind> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TExternalPhone</ObjectClassName> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TContactFilter</Name> + <ParentName>TContact</ParentName> + <Persistence>peEmbedded</Persistence> + <AttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TPerson</Name> + <ParentName>TContact</ParentName> + <Persistence>peStored</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>BirthDate</Name> + <AttributeType>atDateTime</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Emails</Name> + <AttributeType>atParts</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TEmail</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Employer</Name> + <AttributeType>atReference</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TCompany</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Picture</Name> + <AttributeType>atBlob</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Salary</Name> + <AttributeType>atCurrency</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ValidCharsString>,.0..9€</ValidCharsString> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Employed</Name> + <AttributeType>atBoolean</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>AL_hours</Name> + <AttributeType>atFloat</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>EmploymentDate</Name> + <AttributeType>atDate</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>BirthTime</Name> + <AttributeType>atTime</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TCompany</Name> + <ParentName>TContact</ParentName> + <Persistence>peStored</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Employees</Name> + <AttributeType>atReferences</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TPerson</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>NoOfBranches</Name> + <AttributeType>atInteger</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Subsidiaries</Name> + <AttributeType>atReferences</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TCompany</ObjectClassName> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TProject</Name> + <Persistence>peStored</Persistence> + <StorageName>Projects</StorageName> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Name</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>30</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>SubProjects</Name> + <AttributeType>atParts</AttributeType> + <ExternalStorageName>Project_SubProjects</ExternalStorageName> + <StorageKind>skExternal</StorageKind> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TProject</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Addresses</Name> + <AttributeType>atParts</AttributeType> + <ExternalStorageName>Project_Addresses</ExternalStorageName> + <StorageKind>skExternal</StorageKind> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TExternalAddress</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Manager</Name> + <AttributeType>atReference</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TContact</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Participants</Name> + <AttributeType>atReferences</AttributeType> + <ExternalStorageName>Project_Participants</ExternalStorageName> + <StorageKind>skExternal</StorageKind> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TContact</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Items</Name> + <AttributeType>atPart</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TProjectItems</ObjectClassName> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TExternalAddress</Name> + <Persistence>peStored</Persistence> + <StorageName>ExternalAddresses</StorageName> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Name</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>30</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Category</Name> + <AttributeType>atReference</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TCategory</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Site_Contact</Name> + <AttributeType>atReference</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TPerson</ObjectClassName> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TExternalPhone</Name> + <Persistence>peStored</Persistence> + <StorageName>ExternalPhones</StorageName> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Name</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>20</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Number</Name> + <AttributeType>atString</AttributeType> + <EditMask>(000) 000-0000;0;_</EditMask> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>20</Size> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TProjectBox</Name> + <Persistence>peStored</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Project</Name> + <AttributeType>atPart</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TProject</ObjectClassName> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>RelatedProjectBoxes</Name> + <AttributeType>atReferences</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TProjectBox</ObjectClassName> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TProjectItem</Name> + <Persistence>peStored</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Description</Name> + <AttributeType>atString</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <Size>50</Size> + </TInstantAttributeMetadata> + <TInstantAttributeMetadata> + <Name>Country</Name> + <AttributeType>atReference</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TCountry</ObjectClassName> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> + <TInstantClassMetadata> + <Name>TProjectItems</Name> + <Persistence>peStored</Persistence> + <AttributeMetadatas> + <TInstantAttributeMetadatas> + <TInstantAttributeMetadata> + <Name>Items</Name> + <AttributeType>atParts</AttributeType> + <IsIndexed>FALSE</IsIndexed> + <IsRequired>FALSE</IsRequired> + <ObjectClassName>TProjectItem</ObjectClassName> + </TInstantAttributeMetadata> + </TInstantAttributeMetadatas> + </AttributeMetadatas> + </TInstantClassMetadata> +</TInstantClassMetadatas> Property changes on: trunk/Tests/TestIO_DXE.mdxt ___________________________________________________________________ Added: svn:mime-type + text/plain Added: svn:eol-style + native Copied: trunk/Tests/TestIO_DXE.res (from rev 918, trunk/Tests/TestIO_D2011.res) =================================================================== (Binary files differ) |