Menu
▾
▴
instantobjects-cvscommit
|
From: <car...@us...> - 2008-09-02 13:58:56
|
Revision: 786
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=786&view=rev
Author: carlobar
Date: 2008-09-02 13:59:05 +0000 (Tue, 02 Sep 2008)
Log Message:
-----------
Updated Test suite:
fixed bug for compiling (added path and correct location for InstantDefines.inc
Modified Paths:
--------------
trunk/Tests/TestIO.cfg
trunk/Tests/TestIO.dof
trunk/Tests/TestIO.dpr
trunk/Tests/TestIO.mdr
trunk/Tests/ubmock/src/testdecorator.pas
Property Changed:
----------------
trunk/Tests/
trunk/Tests/ubmock/src/
Property changes on: trunk/Tests
___________________________________________________________________
Modified: svn:ignore
- __history
*.dcu
*.local
*.exe
*.identcache
+ __history
*.dcu
*.local
*.exe
*.identcache
*.~dpr
*.dsk
Modified: trunk/Tests/TestIO.cfg
===================================================================
--- trunk/Tests/TestIO.cfg 2008-09-02 13:57:34 UTC (rev 785)
+++ trunk/Tests/TestIO.cfg 2008-09-02 13:59:05 UTC (rev 786)
@@ -31,12 +31,12 @@
-M
-$M16384,1048576
-K$00400000
--LE"C:\Documents and Settings\nandod\Documenti\Borland Studio Projects\Bpl"
--LN"C:\Documents and Settings\nandod\Documenti\Borland Studio Projects\Bpl"
--U"..\Source\Core;.\ubmock\src"
--O"..\Source\Core;.\ubmock\src"
--I"..\Source\Core;.\ubmock\src"
--R"..\Source\Core;.\ubmock\src"
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-U"..\Source\core;.\ubmock\src"
+-O"..\Source\core;.\ubmock\src"
+-I"..\Source\core;.\ubmock\src"
+-R"..\Source\core;.\ubmock\src"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST
Modified: trunk/Tests/TestIO.dof
===================================================================
--- trunk/Tests/TestIO.dof 2008-09-02 13:57:34 UTC (rev 785)
+++ trunk/Tests/TestIO.dof 2008-09-02 13:59:05 UTC (rev 786)
@@ -94,7 +94,7 @@
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
-SearchPath=..\core
+SearchPath=..\Source\core;.\ubmock\src
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
Conditionals=
DebugSourceDirs=..\core
Modified: trunk/Tests/TestIO.dpr
===================================================================
--- trunk/Tests/TestIO.dpr 2008-09-02 13:57:34 UTC (rev 785)
+++ trunk/Tests/TestIO.dpr 2008-09-02 13:59:05 UTC (rev 786)
@@ -1,6 +1,6 @@
program TestIO;
-{$I '..\InstantDefines.inc'}
+{$I '..\Source\InstantDefines.inc'}
{$IFDEF FPC}
{$mode objfpc}{$H+}
Property changes on: trunk/Tests/ubmock/src
___________________________________________________________________
Modified: svn:ignore
- *.rst
*.dcu
+ *.rst
*.dcu
*.~pas
Modified: trunk/Tests/ubmock/src/testdecorator.pas
===================================================================
--- trunk/Tests/ubmock/src/testdecorator.pas 2008-09-02 13:57:34 UTC (rev 785)
+++ trunk/Tests/ubmock/src/testdecorator.pas 2008-09-02 13:59:05 UTC (rev 786)
@@ -28,9 +28,10 @@
TTestDecorator = class(TAssert)
private
FTest: TTest;
+ protected
+ procedure SetTestSuiteName(const aName: string); override;
function GetTestName: string; override;
function GetTestSuiteName: string; override;
- procedure SetTestSuiteName(const aName: string); override;
public
function CountTestCases: integer; override;
constructor Create(aTest: TTest); reintroduce; overload;
|
|
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)
|
|
From: <dav...@us...> - 2011-09-17 04:53:54
|
Revision: 946
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=946&view=rev
Author: davidvtaylor
Date: 2011-09-17 04:53:47 +0000 (Sat, 17 Sep 2011)
Log Message:
-----------
+ Add unit tests for Delphi XE2 (Win32 platform)
Added Paths:
-----------
trunk/Tests/TestIO_DXE2.dpr
trunk/Tests/TestIO_DXE2.dproj
trunk/Tests/TestIO_DXE2.mdr
trunk/Tests/TestIO_DXE2.mdrt
trunk/Tests/TestIO_DXE2.mdx
trunk/Tests/TestIO_DXE2.mdxt
trunk/Tests/TestIO_DXE2.res
trunk/Tests/TestIO_DXE2_Icon.ico
Added: trunk/Tests/TestIO_DXE2.dpr
===================================================================
--- trunk/Tests/TestIO_DXE2.dpr (rev 0)
+++ trunk/Tests/TestIO_DXE2.dpr 2011-09-17 04:53:47 UTC (rev 946)
@@ -0,0 +1,68 @@
+program TestIO_DXE2;
+
+{$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.
+
Property changes on: trunk/Tests/TestIO_DXE2.dpr
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Added: trunk/Tests/TestIO_DXE2.dproj
===================================================================
--- trunk/Tests/TestIO_DXE2.dproj (rev 0)
+++ trunk/Tests/TestIO_DXE2.dproj 2011-09-17 04:53:47 UTC (rev 946)
@@ -0,0 +1,190 @@
+ <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+ <PropertyGroup>
+ <ProjectGuid>{015d41df-eb42-4172-b75c-3e0f464f00cc}</ProjectGuid>
+ <MainSource>TestIO_DXE2.dpr</MainSource>
+ <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+ <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+ <DCC_DependencyCheckOutputName>TestIO_DXE2.exe</DCC_DependencyCheckOutputName>
+ <ProjectVersion>13.4</ProjectVersion>
+ <Config Condition="'$(Config)'==''">Debug</Config>
+ <Base>True</Base>
+ <AppType>Application</AppType>
+ <FrameworkType>VCL</FrameworkType>
+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
+ <TargetedPlatforms>1</TargetedPlatforms>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+ <Base_Win64>true</Base_Win64>
+ <CfgParent>Base</CfgParent>
+ <Base>true</Base>
+ </PropertyGroup>
+ <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+ <Base_Win32>true</Base_Win32>
+ <CfgParent>Base</CfgParent>
+ <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_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ <VerInfo_Locale>3081</VerInfo_Locale>
+ <DCC_UnitSearchPath>..\Source\Core;..\Source\Brokers\XML;.\ubmock\src;.\DUnit\src;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+ <DCC_DebugDCUs>true</DCC_DebugDCUs>
+ <DCC_DependencyCheckOutputName>TestIO_DXE2.exe</DCC_DependencyCheckOutputName>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win64)'!=''">
+ <Icon_MainIcon>TestIO_DXE2_Icon.ico</Icon_MainIcon>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+ <Icon_MainIcon>TestIO_DXE2_Icon.ico</Icon_MainIcon>
+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <Debugger_DebugSourcePath>..\Source\Core;$(Debugger_DebugSourcePath)</Debugger_DebugSourcePath>
+ <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+ </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="$(MainSource)">
+ <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"/>
+ <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_DXE2.dpr</Source>
+ </Source>
+ </Delphi.Personality>
+ <Platforms>
+ <Platform value="Win64">False</Platform>
+ <Platform value="Win32">True</Platform>
+ </Platforms>
+ </BorlandProject>
+ <ProjectFileVersion>12</ProjectFileVersion>
+ </ProjectExtensions>
+ <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
+ </Project>
Property changes on: trunk/Tests/TestIO_DXE2.dproj
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Tests/TestIO_DXE2.mdr
===================================================================
(Binary files differ)
Property changes on: trunk/Tests/TestIO_DXE2.mdr
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Tests/TestIO_DXE2.mdrt
===================================================================
(Binary files differ)
Property changes on: trunk/Tests/TestIO_DXE2.mdrt
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Tests/TestIO_DXE2.mdx
===================================================================
--- trunk/Tests/TestIO_DXE2.mdx (rev 0)
+++ trunk/Tests/TestIO_DXE2.mdx 2011-09-17 04:53:47 UTC (rev 946)
@@ -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_DXE2.mdx
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Tests/TestIO_DXE2.mdxt
===================================================================
--- trunk/Tests/TestIO_DXE2.mdxt (rev 0)
+++ trunk/Tests/TestIO_DXE2.mdxt 2011-09-17 04:53:47 UTC (rev 946)
@@ -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_DXE2.mdxt
___________________________________________________________________
Added: svn:mime-type
+ text/plain
Added: svn:eol-style
+ native
Added: trunk/Tests/TestIO_DXE2.res
===================================================================
(Binary files differ)
Property changes on: trunk/Tests/TestIO_DXE2.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/Tests/TestIO_DXE2_Icon.ico
===================================================================
(Binary files differ)
Property changes on: trunk/Tests/TestIO_DXE2_Icon.ico
___________________________________________________________________
Added: svn:mime-type
+ image/x-icon
|
|
From: <dav...@us...> - 2012-07-19 05:10:49
|
Revision: 959
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=959&view=rev
Author: davidvtaylor
Date: 2012-07-19 05:10:42 +0000 (Thu, 19 Jul 2012)
Log Message:
-----------
* Fix mixed CR LF/LF line endings
Modified Paths:
--------------
trunk/Tests/MinimalModel.pas
trunk/Tests/TestInstantObjectReference.pas
trunk/Tests/ubmock/tests/TestMock.pas
Modified: trunk/Tests/MinimalModel.pas
===================================================================
--- trunk/Tests/MinimalModel.pas 2012-02-14 15:19:08 UTC (rev 958)
+++ trunk/Tests/MinimalModel.pas 2012-07-19 05:10:42 UTC (rev 959)
@@ -24,7 +24,7 @@
* the Initial Developer. All Rights Reserved.
*
* Contributor(s):
- * Steven Mitchell
+ * Steven Mitchell
*
* ***** END LICENSE BLOCK ***** *)
Modified: trunk/Tests/TestInstantObjectReference.pas
===================================================================
--- trunk/Tests/TestInstantObjectReference.pas 2012-02-14 15:19:08 UTC (rev 958)
+++ trunk/Tests/TestInstantObjectReference.pas 2012-07-19 05:10:42 UTC (rev 959)
@@ -24,8 +24,8 @@
* the Initial Developer. All Rights Reserved.
*
* Contributor(s):
- *
*
+ *
* ***** END LICENSE BLOCK ***** *)
unit TestInstantObjectReference;
Modified: trunk/Tests/ubmock/tests/TestMock.pas
===================================================================
--- trunk/Tests/ubmock/tests/TestMock.pas 2012-02-14 15:19:08 UTC (rev 958)
+++ trunk/Tests/ubmock/tests/TestMock.pas 2012-07-19 05:10:42 UTC (rev 959)
@@ -111,6 +111,6 @@
initialization
RegisterTests([TTestMock]);
-
+
end.
|
|
From: <car...@us...> - 2014-11-26 10:25:52
|
Revision: 970
http://sourceforge.net/p/instantobjects/code/970
Author: carlobar
Date: 2014-11-26 10:25:44 +0000 (Wed, 26 Nov 2014)
Log Message:
-----------
Added TestStoreAndRetrievePicture for InstantExposers
Modified Paths:
--------------
trunk/Tests/TestInstantExposer.pas
Added Paths:
-----------
trunk/Tests/XMLDB/Contact/
trunk/Tests/XMLDB/Contact/TContact.1E06DD44F478B44FB23FEB0823BE3995.1.xml
trunk/Tests/XMLDB/Contact/TContact.CE940464314ACF4F9DC2953FBDB3BF8C.1.xml
trunk/Tests/XMLDB/Person/
trunk/Tests/XMLDB/Person/TPerson.CFD05DBF7B1DDE4D9505AD254DDDECBF.1.xml
Modified: trunk/Tests/TestInstantExposer.pas
===================================================================
--- trunk/Tests/TestInstantExposer.pas 2014-11-26 10:22:47 UTC (rev 969)
+++ trunk/Tests/TestInstantExposer.pas 2014-11-26 10:25:44 UTC (rev 970)
@@ -46,6 +46,7 @@
procedure TearDown; override;
published
procedure TestStoreAndRetrieveContact;
+ procedure TestStoreAndRetrievePicture;
procedure TestStoreAndRetrieveContactPhones;
// procedure TestOrderBy;
procedure FieldSetValue;
@@ -54,7 +55,7 @@
implementation
uses
- SysUtils, ShellAPI, InstantPersistence, TestModel, DB;
+ SysUtils, Classes, ShellAPI, InstantPersistence, TestModel, DB, Graphics;
{ TTestXMLBroker }
@@ -291,6 +292,46 @@
end;
end;
+procedure TTestExposer.TestStoreAndRetrievePicture;
+const
+ DEF_NAME = 'AName';
+ DEF_NAME_UNICODE = '链接';
+var
+ c: TPerson;
+ Field: TField;
+ old_id: string;
+ BlobContentBefore, BlobContentAfter: string;
+begin
+ FExp.ObjectClass := TPerson;
+ c := TPerson.Create;
+ try
+ FExp.Subject := c;
+ FExp.Edit;
+ Field := FExp.FieldByName('Name');
+ if not FConn.UseUnicode then
+ begin
+ Field.Value := DEF_NAME;
+ AssertEquals(DEF_NAME, c.Name);
+ end
+ else
+ begin
+ Field.Value := DEF_NAME_UNICODE;
+ AssertEquals(DEF_NAME_UNICODE, c.Name);
+ end;
+ Field := FExp.FieldByName('Picture');
+ AssertTrue(Field is TBlobField);
+ TBlobField(Field).LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Picture.bmp');
+ BlobContentBefore := TBlobField(Field).AsString;
+ AssertTrue(BlobContentBefore <> '');
+ c.Picture := BlobContentBefore;
+ BlobContentAfter := TBlobField(Field).AsString;
+ AssertTrue(BlobContentBefore = BlobContentAfter);
+ FExp.Post;
+ finally
+ FreeAndNil(c);
+ end;
+end;
+
initialization
{$IFNDEF CURR_TESTS}
RegisterTests([TTestExposer]);
Added: trunk/Tests/XMLDB/Contact/TContact.1E06DD44F478B44FB23FEB0823BE3995.1.xml
===================================================================
--- trunk/Tests/XMLDB/Contact/TContact.1E06DD44F478B44FB23FEB0823BE3995.1.xml (rev 0)
+++ trunk/Tests/XMLDB/Contact/TContact.1E06DD44F478B44FB23FEB0823BE3995.1.xml 2014-11-26 10:25:44 UTC (rev 970)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<TContact>
+ <Id>1E06DD44F478B44FB23FEB0823BE3995</Id>
+ <Category>
+ <TCategory>
+ <Id>CAT000</Id>
+ </TCategory>
+ </Category>
+ <City></City>
+ <Name>AName</Name>
+ <Phones>
+ <TPhone>
+ <Name>Home</Name>
+ </TPhone>
+ <TPhone>
+ <Name>Office</Name>
+ <Number>012-234-56781</Number>
+ </TPhone>
+ </Phones>
+</TContact>
Property changes on: trunk/Tests/XMLDB/Contact/TContact.1E06DD44F478B44FB23FEB0823BE3995.1.xml
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+text/plain
\ No newline at end of property
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Tests/XMLDB/Contact/TContact.CE940464314ACF4F9DC2953FBDB3BF8C.1.xml
===================================================================
--- trunk/Tests/XMLDB/Contact/TContact.CE940464314ACF4F9DC2953FBDB3BF8C.1.xml (rev 0)
+++ trunk/Tests/XMLDB/Contact/TContact.CE940464314ACF4F9DC2953FBDB3BF8C.1.xml 2014-11-26 10:25:44 UTC (rev 970)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<TContact>
+ <Id>CE940464314ACF4F9DC2953FBDB3BF8C</Id>
+ <Address>
+ <TAddress>
+ <City>Milan (€)</City>
+ <Street>Street</Street>
+ </TAddress>
+ </Address>
+ <Category>
+ <TCategory>
+ <Id>CAT000</Id>
+ </TCategory>
+ </Category>
+ <City>Milan (€)</City>
+ <Name>AName</Name>
+</TContact>
Property changes on: trunk/Tests/XMLDB/Contact/TContact.CE940464314ACF4F9DC2953FBDB3BF8C.1.xml
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+text/plain
\ No newline at end of property
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Tests/XMLDB/Person/TPerson.CFD05DBF7B1DDE4D9505AD254DDDECBF.1.xml
===================================================================
--- trunk/Tests/XMLDB/Person/TPerson.CFD05DBF7B1DDE4D9505AD254DDDECBF.1.xml (rev 0)
+++ trunk/Tests/XMLDB/Person/TPerson.CFD05DBF7B1DDE4D9505AD254DDDECBF.1.xml 2014-11-26 10:25:44 UTC (rev 970)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<TPerson>
+ <Id>CFD05DBF7B1DDE4D9505AD254DDDECBF</Id>
+ <Picture>424D6E1C0000000000003600000028000000390000002A000000010018000000000000000000C40E0000C40E00000000000000000000AC721EAB701AAE7418B3771BB3781BB4791CB77A1DB87C1DB77C23B97D1FBA7C19B87C1EB77D1DB97B20BA7E1BBA7D1DBA7D1DBB7E1FB97C1CBC883DE1D7CDEFF3F9F0F2F4EFEFF1CEAD82BA7C18BA7F12B97E11BD7E0FBE7E12BC7D12BC7E10BC7E11BD7F10BD7E12BA7E0DBA7E0BBB7E0ABD7E0BBD7D0EBB7D0BBB7E08BC7E0CBC7E0CBE7F0FBC7D0CBA7E07BB7E09BB7D09BC7E0CBC7E0CBD7D0FBC7D0ABC7E11BB7D0FBB7B0EBA7B0EFFA86C17A86D16AC7318B07418B5771AB47619B47819B67C18B67B17B67B17B97918BA7A15B87719BA7B1EB87C19B77A1EB87F1BB77C1CBD7D1FB97A20C8A274EEEFF0EEF1F4F0F3F6ECE8E4C29752BA7D11B98014BC7E13BC7C13BB7E12BB7D13BC7E12BB7F0FBA7E10B97C0CBB7E0ABC7F0CBD7F0DBD7E0EBB7E0BBB7E08BB7D0ABB7D0CBC7E0CBB7D09BB7E0ABC7F0ABD7F0BBC7E0CBB7D0BBB7D0BBD7E10BD7E0FBB7C0DBB7D0DB97B0BFFAB6D15AB6E14AE7214B07415B17516B37717B57918B77C19B87E1BB87D1AB67A16B77D1BB68E55B3802FB87A15BB7C1ABC7D1AB6781DB97E22BB8221B88032DBCBB4F1F6FCEFF3F1F2F9FBD8C2A1B57915BA7F11B87E15B97D10BC7E0FBB7E0EBC7F0FBB7F0FB97D0BBA7D0DBB7C0DBD7E0FBC7D0EBB7E0ABB7E0BBB7D0BBC7E0CBC7E0CBC7E0CBD7E0DBC7E0CBC7E0CBC7E0CBC7E0CBC7E0CBC7E0CBC7E0CBC7E0CBC7E0BBC7E0DBA7C0CFFAE7015AE6F13AF7113B17612B27612B47814B57915B67A16B77B19B97C1BB87A149D7E538797C0A77B3DBC7B0CBA781297805E9A9DA7A8824DBC7D17BD7D1DC19150EBE7E2F0F4F3ECF3F5EDEAE6C29552B97C0FB97F12BB7F11BC7E13BC7E14BC7E14BB7D15BC7E14BA7C12BC7E10BC7E10BA7D0CBC7E09BC7F0CBD7E0EBD7E0DBC7E0CBC7E0CBD7F0EBC7D0DBB7C0DBC7D0DBB7E0DBD7E0EBD7F0EBC7F0CBB7F0BBC800DBB7E0BBA7D08FFAD7012AC6F11AE7211B1740FB57811B77913B67812B57812B67815B77916B777138178803A4987935F11AE771C797A7A5472AF8E8076A77A42A48B64A69176AF7C2FCDAB7DEFF1F6ECF0F5F0F4F9E0CFBFB8832CB87F12BB8011BA7F11BA7E14BB7E14B97D12BB7E16BA7D14BA7D0EBA7E0CBA7E0BBC7E0CBD7F0DBC7E0CBC7E0CBC7E0CBC7E0CBB800CBB800DBB7E0FBC8012BD8012BC7F11BC7F11BC800FBA7F0CBA7E0EBA7E0EBA7E0DFFAC7011AF7412B17712B2760FB67812B77913B77913B77A13B67815BA7B14B778176D708C3842736240166F7A8A4675C05B545E7D715A6A7FA45D7CB997919BB17C2CB8802DE0CFC1F0F4FCEEF0F5EFEFF5C8A677B87C17B97D11B87D0FBA7F10BB810FB87F0DBA7F11BA7E11BC7F10BB7F0DBA7F0BBC7F0CBC7E0CBD7F0DBD7F0DBC7E0CBC7E0CBB7F0BBA7F0CBC7F10BC7F11BC7F11BB7E10BB7E10BB7F0EBB800CBA7E0EBA7E0DBA7E10FFAF7310B07511B27810B3770FB67712B67813B87A13B67914B87814B27A25937554556DA33F467A484E6B547BC2405A935776AB527FC94374CC4C6AB49A8E87B57C21B97A14BF9255E9E9E7EEF2F4F0F0F4E4DCD4BD8A43BA7D14B87E15B97E10BA7F0FBA7F11BA7F12BB7F13BC7F10BA7F0EBB7F0CBC7F0DBB7D0BBC7E0DBD7F0DBD7F0DBD7F0DBB7E0CBB7E0DBC7F0FBB7E10BC7E10BB7D0FBB7E0FBB7E0DBA7E0BBA7D0DBB7E0FBA7E0CFFAF710EB1730EB2760DB57911B67912B67812B77A16B47917B478139B87676A94D8537AC4394D975380CC456BB55482C95484CF3860AD576892886D4FB3802DB57D19B97D14B27819CBB088F0F4F8EEEEF2EEF4F8D1B58BB87E1CB87E18BB7F10BC7F0EBC7F11BA7D0FBA7D10BD8012BC7F10BC7F11BA7E0DBA7E0DBA7E0DBA7E0DBB7F0EBA7E0DBB7D0DBD7E0EBC7D0DBD7E0EBD7E0EBC7D0DBC7D0DBC7E0CBC7E0CBD7F0DBB7E0EBB7F0EFFB27410B1730EB3760EB67A11B57910B77A11B67A13B57913B6790D93805E5B8DD96487CB36498F4569B53A5CA6426DBE4B6AA0766B5DAB741BBD7B0BBD7C0CB87C12BA7E14B97D16B8802CDDD0BDF0F3F9EEF2F5E6E0D9BA8B45B97D0FBB7E0FBA7E0FBB7D10BA7D0FBA7D0FBA7D0FBB7E10BA7E0FBA7E0DBB7F0EBB7F0EBA7E0DBA7E0DBA7E0DBC7E0EBD7E0EBD7E0EBD7E0EBD7E0EBD7E0EBD7F0EBC7E0DBA7C0ABC7E0CBA7E0DBA7E0DFFB47511B47610B4780FB67A0FB77B0FB77B0EB67B11B57B0FB37818727B8C4E81CF6185CD3858A736559E364C8F5A5763A1722BBC7C0DBC7B0EB77B0FB87B12BC7C13BA7D12BC7E12B97910BE965DF0F0F0EEF1F6F1F0FAD5BD9BB37B11BA7C0EB87C0DBA7E10BA7D0FBB7D0FBA7D0FBA7D0FBB7E0FBA7E0EBA7E0DBC800FBB7F0EBB7F0EBB7F0EBB7E0DBC7D0DBD7E0EBC7D0DBC7D0DBC7D0DBD7E0EBD7F0DBB7D0BBB7D0BB97D0CB87C0BFFB4750EB6780EB6790CB77A0DB77A0DB97C10BA7C0FB67A08867659568CD14D80CD4774C2395DAF39539A5A5360A9721BBE7D0ABB7C12B87B10B97C0EBB7C10BA7B0FBB7B10BA7C11B88012B68027D8C7ABF2F7FEEDEFF2EBEAE5C0934CBA7B11BA7D0FBA7E0DBB7F0EBB7F0EBB7F0EB97C0EBA7D11BC7E10B97D0EBA7D0FBC7E0EBC7E0DBB7D0DBB7D0DBC7D0DBD7E0EBC7D0DBC7D0DBD7E0EBC7E0DBC7E0CBD7F0DBC7E0CBB7D0BBA7D0BFFB2730BB4750BB6790BB6790CB8790EB8790EB97B0BA875226988B770A2DE4577C73965B8385496484764855B1FBF7E0FB57A11B87A10B97C0EB97B0EBA7C10BB7E11B97B0FB97C10B67E11B57A15BB8A42E8E3DFF0F1F6F2F3F7D7C3A6B87D19BB7F10BC800EBA7E0DB97D0CBA7E0DBA7D0FBB7D11BB7E0EBA7E0EBB7E0EBC7D0EBD7D0DBC7D0DBD7E0EBC7D0DBC7D0DBC7E0CBC7F0CBC7E0CBB7E0BBC7E0CBC7E0CBC7E0CBB7D0BBB7D0BFFB2730BB3750BB6780BB5780BB5770BB7780CB879098C7459558BD3558ACF3A68BE3957A44949664E3523694413B37912B87B10B7790FB87B0EB87B0EB97B0FB87A0EB77B0CB77C0EB97B10BA7B13B9750ECCAA7AF2F2F8EFEEF2F1ECECC49656B97A0BBA7E0DBA7D0DBA7E0DBA7E0DBA7D10BC7E12BA7F0CBA7E0BBA7F0CBC7E0DBC7D0DBC7D0DBE7F0FBE7F0FBE7F0FBC7E0CBC7F0ABC7F0ABC7F0ABB7D0BBC7E0CBD7F0DBC7E0CBC7E0CFFB2720AB3750BB47709B4770CB4770DB67A0AB779067E7065417DCF3A71C3314A8C3E45694D352B4D2F154F321A9A6515BC7E0FB97B11B97B0EB77B0BB87B0EBA7C10B97C0DB97C10BB7D10BB7E0FB67B0EB67E24DFD3C3EEF4F6F1F4F5E3D6C3BA8225B87C0DB87E10BA7E0FBC7E0DBC7E0EBD7E0FBC7E0DBB7D0CBC7E0DBC7D0DBC7D0DBB7C0CBC7E0CBD7E0DBC7E0DBC7E0CBD7F0CBC7E0BBB7D0BBC7E0CBC7E0CBC7E0CBB7D0BBC7E0CFFB2730BB4760BB47709B5770BB4780BB57A0BB4780D676E814679C84271C33140704535324F2E1A5030184E3019855314BF7D0FB87A10B87A0DB77A0CB97C0EB97B0EB97C0EB97C0DBA7D0FB97D0FB67B0EB87A0BC19552ECECEAEDF1F4F2F5F7CEAF7CB87B0BBE7F0FBA7F10BC7D0DBC7D0DBD7E0EBC7E0CBD7F0DBC7E0CBC7E0CBC7E0CBB7D0BBC7E0CBC7E0CBC7E0CBC7E0CBC7E0CBB7D0BBB7D0BBC7E0CBC7E0CBC7E0CBC7E0CBA7C0AFFB4750DB4760CB47709B47808B3780ABB79059773344A6FB23E68B74067B83A47704C301D51301952321A52311A663E18AF7415B97B0FB87A0DB7790CB77A0BB87B0AB97C0EB97C0EB97C0EBA7D0EB97D09B87D0FB4780FD8BD97F0F3FAF3F2F5E9DFD2BA8828BD7C0ABA7F0FBE7F10BE7E0FBD7E0DBC7F0ABD800ABC7F0ABB7E09BB7E09BC7F0ABC7F0CBC7E0CBC7E0CBC7E0CBC7E0CBD7F0DBC7E0DBC7E0CBC7E0CBC7E0CBD7F0DBD7F0CFFBA7A08BA790AB97908B47A09B27909B5760A6A70773E6AB73A59A634478E3C384C52321D52341952341C5030184D2E177B5013BA7C13B97C11B97B10B8790FB77A0CB7790DB87910B97D0EB97D0DBA7D0FBA7C10B97B0DBA8731EAE2D8EEEFF3F2F4F6D8BD94B67C0FB97E12BC7F0CBC800EBC7E0DBC7F0BBC7F0BBC7E0BBC7E0ABC7F0BBD800CBD7F0BBD7F0BBC7F0ABC7F0BBC7E0CBD7F0DBC7E0CBD7F0FBD7F0EBD7E0EBD7F0FBC7E0FFF8C5A0F9D670EAF740DB67C0FBE7D07A0722147669E3E66B33E5DAA33407D3E343F4C301D5135164F31194E30174D30185332159C6514BC7A16BA7B0EB77A0CB7790FB87911B87810B87B0EB87B0FB97D13BA7D10BB7C11B57910CAA875ECEFF3EEEFF2F1E9E7C38F3BBA7C06BA7F0DBB7F0DBB7F0DBD7F0DBD7F0DBC7E0CBD7F0CBD800CBE800DBD800BBD800ABC7F09BC7F0ABC7F0CBC7F0BBC7F0BBD800CBD7F0BBC7F0BBC7F10BA7D10FF452B184F30185E3B15774B15915E0B6E63573C62B13E62AE38569E313E7747364159361B50311A50321A4F32185032184D2F1A6A4217B47712BD7A0CBA790CB97912B87812B87911B87A10BA7915BE7B16BD7A0FB97911BA7D12BC8227DFD0BBEEF0F2F3F4F9DEC9B0B87F22BA7C0EBC800FBB800CBC7E0CBC7E0CBE800DBD8009BC8008BC8008BC7F09BC7F09BC7F09BC7F09BC8008BC8008BC8009BD7F0CBD7F0CBD7F0CBE8112BB7E11FF55311D5032174F31194C2D1948302043588E3963AE3B5DA83852982D396D5C463B8F5D1756331750321A52321C50311A52321A5435159A671EAB7530B37920BC7B0FB8790FB9780FBA7A0EBB770DAC741C9A7F5C9E907DB0823FB67A14C59C5DF0EEEAEEF3F5F2F2F7D1AE83BC7E1DBC8016BC800FBC7E0DBD7F0EBD7F0DBC800BBB800ABB8009BB7F0ABC7F0BBB7F0ABD7F09BD8007BB7F09BA800BBA7E09BD8109BE810ABD800EBB7F10FF55341B54351855341B523016483E414161A53860A83C5FA7395094303863553F2F9662126A411551321B51311A52321B54331A4B3016735C53727DAE5C5B6C966517B97909BC7B0EB375058765365D6D92496BB35B7FC2838DB0A48358B97F2BDECAB4F1F6FBF2F6FAE6DDD2BC8738BB7E14BC7F11BE7F10BD7E10BD7E10BC800BBB7F09BC7F0BBC800ABC800ABB7F0ABB7F09BD7F08BC7F09BB800BBC7E0BBA7E07BB7E0BB97B05B87B05FF54351852331A5335194F3217454B6A3F64AF3E63AD375BA43347893536584432245134165A391856351D52341A52341A52341851331A5E401E6E5F552634683D2F31654319673E0D5D4B3F4E6BA6385AA94066B15F77AF8E8383B58338B87E1FC49A5CF1E9E6F0F3F7EFF6F5CFB283B87C16BE7F0FBA7F0AB97E09BA7E0ABA7B08BA7A06BA7B04B97802BA7802BA7902BA7A07BA7A09B87A0AB87E1ABE8023BC8426BF8831C28E3EC79C58FF9D65148A58156B44134F362242548B3C64AF3C62AF385BA430438136344D4E332057341C53351A57371C55371A54351851341951341B5233135442393B51932F39714457933B518C456AB5446CB94F689B7F6847AC7721BA7C11BA7908B57B0EB57813D4B590F2F2F8F0F4FBEAE5DFBD8E44B97D19BA8220BB8428BB882FBF8D38C29241C59A4DC8A05ACDA96BD1B27DD4B98EDBC19AE0C7A7E7D9C7E9DED4E9E1D8EDE7E3F0E9E8F2F0F4FFBB790ABA7E0BBC7A07805F31415A9C3A61AD3D60A936579F2F427B33314950322159351B55341C58361A5536195534185535184D2F174A2D133D4668406DC5335196304B974060B13F5BA64A578B967A57C08B31C59140C6974BC19954C9AA71CFB07FD6C2A7EFF4F3F3F4F8EEF3F5E1D2C5E1CFBBE8DECCEADDD2ECE4DEEEE9E7EEEBE3EDECE5EDEAE5EDE7E1ECE4DCE8DFD6E2D6C9E4D2BEDBC5AAD8C09CD0B387D0B07BCCA66CC89E5DFFBE7A0BB4770CA2660D6D5B503D5EA53D68B34268B63A59A5303F7930304D4C32215733155835165837185637195A3A1D623F2067452669482B42568F3968C03A61AB3C5EAB395AAB2F43889698ACF3EADDECECEDEEEFEEF3F2F4F2F2F6F2F5FDF2F3F6F1E9EBEDE6E3EFF0F3EEF2F3F3F8FCE0D7CED8C2A5D6B890D1B085CDA976C8A362C49952C29349BE8C3BBE882DBE8424BB7E1DB97D17B97C12BB7D10BB7B0EBB7A0CBB7C09BB7C09FF8E5D1875471355341346496A3E63AD3E6AB4416BB83A5BA832417B2F30506550428A6949916F4D9B7A599D7E5FA18263A68566AC87699C7F69475E994F7CC63B61AE3858A83F4D8A756C7FD8C8B9DCC8ADD3BA9BD3B698CEAE88CBA979C79F6AC4995CC29150BE9050D9C7B1F1F5FCF0F5FAE1D1C0B68232B97C12BB7B12BB7B0DB97C09BA7D09BA7D0BBC7E0DBE7F0FBE800CBD8008BD800DBC800DBD800DBC800DBC7F0CBE7F0BBC8010FF3E2145866454967A614E58853860AB3E6BB4456EB6365DAC2F45873032557B64549F7B59967251916C4B8A6544825D3C7D593676502B5F4A46375A9E4C70B9354D97404A785947459A6C2DC1892DB67E22BA7E1FB97D19BB7C1DB97D15B77C10B87D14B87F18B67E1AC49355EDE5E5EFF2FBF4F1F5CEAC7CBA7C12BF8210BF800EC0810FBD810BBE7F0DC08011BE7F0EBB800DBA7F0EBD8113BC810EBE800CBE810DBD800CBD7F0FBE8110FF301B884E3367725E5D4351893E62AA4E78BC4B73BB3C60B034499131355C543927623A166139175F38155F38176039175B3814583611423C4F3353A62F468C4241635C4134633A176A4211A06813C18013BB8016BB7F0DBC7D10BA7F0EBD7F15BF7F19BD7F16BC8017B97E1ED2B18EEFF3F8EFF3F7E9E3DDC18D3EC07F11BF8110BF810FBD800BBD7F0DBD7F0EBC7F09BB7F09BC7E0CBD7E0EBD800CBE800FBD7E0EBF8010BF7F11BD7E0FFF4D33D53A24AA342B733E4F8E4D6EB1557CBD4F78BD4062AC31498D313760503629633B1B623A1C633B19643C1B653C1B623C195E3916353A583758A9323F734E3830603A18653D195E391B6A3D19A36B15BE8412BC8112B97D11B87E0EBA7D13BC7E15BC7F11BB7E18BB8116BC842EDFCFBCF3F7F8F5F5FAD7BE9DBA7E1ABE8010BD800DBD810CBE800CBD800CBD8009BC7F08BE7F0BBD7E0BBD7F09BE800CBD800BBE800CBD7F0CBC7E0CFF31218E3F27B63B36A0405594516DB15679B95179BF4368B2314D96343961513628623A1A683D1B653D1A633C1A633C19643C1C5735192A304F3459A8323F724E392B5F3B1B5E3A195F3B1B5D391B734517B07313BF7F12BD7E10BD7F0DBA7E0ABB7E0BB97F0DBB7F13BD7F14BD7E12C39453EFEAE6F5F3FBF0E7E1BF903DBC7E0EBD810CBD800CC0820EBD7F0CBC7F0CBC7F0ABC7F09BD7F09BD8009BE8109BD8008BD8008BD8008BD8008FF3722A931198A3633804359964E68AA5977B9486EB83F66B136519A37385B543824603A1B663E1B633C1A613C1A623C1A673E1B4A2D1B242649334E9B313667543729673C1A623C1B633D1B643E1C603A1C794A16B57714C28211C1810DC38008C1810ABE820BBF820CC08212C08310BC7F12D6B78CF3F5F8F4F4F8DBC1A0BC7B12BC810DBC810CBB800DBC7F0ABC7E0ABB7E0ABC7F09BC7F09BC7F08BD8007BD8008BD8008BD7F09BD7F09FF4332D2412BC63E3F8D4559915068A94A66AA395FAD3A66B13551953A395558381E5B391A623E1A623C19613B19643E1C663E1B33211A1D1B322F3E77313763573A266B3F19663C1B653C1B653C1B633C1A603A1A7A4E15915E1298630FA56C0EAA710EB3780FB67913B07419A06916955E13A26E31E4D6C7F7F9FBF0F0F1C59E5BBB7D06BB8208BA800ABC8008BB7F07BB7F07BB7E08BA7D07BB7E07BC7F07BC7F07BC7E07BE7F0DBD7E0CFF432ECA422DCC3E468F48598F4E629F3C5498395AAA3C63AF2F4B8D40374B5F3A1B5F3A1A613B19623B19633B1A633E1C58361D2218201E19232227423333555B3A23673C18663C1B663D1C673D1C663D1C653C1C623A1B5F391A603B19633C19693F1973451977491B74441A70401B6E411C6E4013906945DBCDC3EFEFF4E5D7C4BA8018BD8005BC7F08BC8007BC8007BC8008BC7F09BC7F09BD800ABC7F07BC7F07BC7F07BC7E08BC7E08FF422ACD422CC93E458A42528342518A3B4E8F526EB44766AD304389463941623B1A633B1B623A1B5E3A1B613B1B653D1A412C1B1A1724241C2B241E2E362A37643B21673C1C663D1C653C1B643B1A653C1B663D1C663D1C663D1D653D1D633B1B643C1D663C1E693D1B6B3D196F401C71431B7044196E401397724FCCBEB2F6F3F2D0AA71BD7C06BC800ABD8009BC800ABC7F09BC7F09BC7F09BC7F09BC7F07BC7F07BC7F07BC7F07BC7F07FF4128C43F28BF3638863B4D803D50894458936786C0405EA532448A483940633C18633C1C633D1C603B1B623D1C623C1C2A201D1D1B2924203427212F3A2D2B653B1E683C1B663D1C663E1C633A19633A19653C1B663D1C683D1C693D1C673C1E673D1E673D1C6C401B6E401B70411C73451C73461B71431A764A21B1957BEAE2E5F0E5DDBE8A33BC7E0BBE810EBC7F0DBC7F0BBC7F0ABC7F09BC7F09BC7F07BC7F07BC7F07BC7F07BC7F07FF412BCA4229C839338D3F52893F589636498F425B9D3C5AA531448A4036495D3823633D18643D1A633D1A643E1C52311F1E1923221E3026233822213234292A633C206C3D1C693E1D693F1C683E1A693D1A693E1A6A3F1A6A3E1B6A3E1C7947196A41196A3F1D6D3F1A6E431B6D411D70421B74441A74451B6E4215875E37D1BDB3F7F6FCD8BE97BA7D10BB8108BE7F08BF7E09BC7F08BD800ABD8009BD8008BC7F07BC7F07BC7F07BC7F07FF3F2ACE4128CF3A328D3C5192405FA3354A922F418039519C334585353351412941633B1C653C1A65391E653B1D3D281B1B1927242034282238211E302A22235E3C1C6C3E1A6A3D1D6A3E1C6B401B6B3E1C693D1B683E1B683E1B7E4F13B4780E976110714216673D1C683F1B6C401D6E401A6F40186B421A6D4219724714C2AA92F7F7F9F2F0EEC59646BC7C00C07F05BE7F07BD8008BC8007BD8007BD8008BC7F07BC7F07BC7F07BC7F07FF371FBB3C24BE37368A3650944265AD3A53A12E408330428433447C3636592E1E5255323B7F4F147B4B167545172D221F1B1B29262235282338241E2E2A2123613B1A6D3E1B6D40196D41176F4417794B168451148F58129A630FB17709C38206C08007A66D0E8655147447176F42187243177747177F4F16915B13A4690BC79E5EF4F3F3F7F7FBE1CDB2B88013BE7F07BC7F08BD8008BD8008BD8008BD8008BD8008BD8008BD8009BD8008FF3723B23220AB333488354F924266AE3859A82F4691323F77333D6F37385F281C513320589F6B1DC18005A16C0F261F1C1E1D2B272337282339241E302D21258E5D17AD700DAA6F0CAA6F0BAE730CB87A09BF7E07C38106C08309C18208BF8007BE820AC1840BBE800BB1760CA96E0BAD700AB4750ABB7E07C0830BC4830DC08015DEC9A8F6F9FFF1F4F5CBA56BBB7D08BF8006BF8006BE8007BC7F07BD8007BD8005BD7F02BE7E02BA7D00FF4329CF4027D0353394324B913F64AE3A60AC314B9C323F7933356238395F291E4C23166F7B4F51C9840493631320181D24202F282337272336241F302A20279D6A18C78605C18404C18404C18304C48007C08007BB8109BF820ABE8106BD8108BE810BBE8109BE8108C08309C08309C38306C48204C07F03BF8006BC7F06BD7B01BF8D38EBE5DDF6F8FAE6DCCCBA8834BB7B07BC7C09BA7C0BB97B0ABA7D0BB87F0DBA8413BE871DBE8725FF3A23C03A21C7353590354F914469B2446AB43754A530478A2F335D3B3B582E20492516696D475CC684067149131E17232724322826342623302520312A2027966414C18206BD8007BE8107BF8108C0820ABD8008BD8108BF810EBE810BBD800ABE7E0BBE7E0ABB7F0FBA7F13BC8118BD831ABD841EBC8727BF8B2FC08D36C59241C3964BDDCAB0F9F4FBF6F3F8DDC5B0D4B58ADABE99DEC6A3E1C9A9DFC7ABDEC9AFE4D3B9E6D4BDE5D0BDFF3821C13A24BF36398D395593466EAF4C75B74262B037559D33375F3A3A52302648271354774933C785066445131C18222724352A283226252E2520312C232A996717C4840AC08110C28211C18210C08717BF8621C18830C78D3DC28F43C59A5AD2AD7DD8B891D7BC9CDBC3ABE7D1C0E9D6C8EADBD2EDE4E2EEE9E6F1EEEBF7F3F3F4F2F6F3F2F1EDF0F3F7F3F5F8F7FEEDE7EBE4D8D2E2D0C2DEC6B0D7B998CDA87BCA9E66C2944DBC8C38FF</Picture>
+ <Category>
+ <TCategory>
+ <Id>CAT000</Id>
+ </TCategory>
+ </Category>
+ <City></City>
+ <Name>AName</Name>
+</TPerson>
Property changes on: trunk/Tests/XMLDB/Person/TPerson.CFD05DBF7B1DDE4D9505AD254DDDECBF.1.xml
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+text/plain
\ No newline at end of property
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
|
|
From: <car...@us...> - 2018-08-31 06:59:52
|
Revision: 983
http://sourceforge.net/p/instantobjects/code/983
Author: carlobar
Date: 2018-08-31 06:59:50 +0000 (Fri, 31 Aug 2018)
Log Message:
-----------
Added failure test for date 1974-09-30
Modified Paths:
--------------
trunk/Tests/TestInstantExposer.pas
trunk/Tests/ubmock/src/fpcunit.pas
Modified: trunk/Tests/TestInstantExposer.pas
===================================================================
--- trunk/Tests/TestInstantExposer.pas 2017-04-04 15:28:27 UTC (rev 982)
+++ trunk/Tests/TestInstantExposer.pas 2018-08-31 06:59:50 UTC (rev 983)
@@ -33,11 +33,12 @@
interface
uses
- fpcunit, testregistry, InstantXML, InstantPresentation;
+ fpcunit, testregistry, InstantXML, InstantPresentation, DB;
type
TTestExposer = class(TTestCase)
private
+ procedure AssignNameField(const Exp: TDataSet);
protected
FConn: TInstantXMLConnector;
FAcc: TXMLFilesAccessor;
@@ -46,6 +47,7 @@
procedure TearDown; override;
published
procedure TestStoreAndRetrieveContact;
+ procedure TestStoreAndRetrievePerson;
procedure TestStoreAndRetrievePicture;
procedure TestStoreAndRetrieveContactPhones;
// procedure TestOrderBy;
@@ -55,8 +57,19 @@
implementation
uses
- SysUtils, Classes, ShellAPI, InstantPersistence, TestModel, DB, Graphics;
+ SysUtils, Classes, ShellAPI, InstantPersistence, TestModel, Graphics;
+const
+ DEF_NAME = 'AName';
+ DEF_NAME_UNICODE = '网站导航';
+ DEF_CITY = 'Milan (€)';
+ ADDRESS_STREET = 'Street';
+ ADDRESS_STREET_UNICODE = '链接';
+ DEF_HOME = 'Home';
+ DEF_OFFICE = 'Office';
+ DEF_NUM_HOME = '012 12345678';
+ DEF_NUM_OFFICE = '012-234-56781';
+
{ TTestXMLBroker }
procedure TTestExposer.SetUp;
@@ -107,17 +120,9 @@
end;
procedure TTestExposer.TestStoreAndRetrieveContact;
-const
- DEF_NAME = 'AName';
- DEF_NAME_UNICODE = '网站导航';
- DEF_CITY = 'Milan (€)';
- ADDRESS_STREET = 'Street';
- ADDRESS_STREET_UNICODE = '链接';
var
c: TContact;
old_id: string;
- t: TPhone;
- DataSetField: TDataSetField;
Field: TField;
begin
FExp.ObjectClass := TContact;
@@ -125,20 +130,13 @@
try
FExp.Subject := c;
FExp.Edit;
- Field := FExp.FieldByName('Name');
- if not FConn.UseUnicode then
- begin
- Field.Value := DEF_NAME;
- AssertEquals(DEF_NAME, c.Name);
- end
- else
- begin
- Field.Value := DEF_NAME_UNICODE;
- AssertEquals(DEF_NAME_UNICODE, c.Name);
- end;
+ //Test Name (Unicode)
+ AssignNameField(FExp);
+ //Test Address.City (Unicode)
Field := FExp.FieldByName('Address.City');
Field.Value := DEF_CITY;
AssertEquals(DEF_CITY, c.Address.City);
+ //Test Address.Street (Unicode)
Field := FExp.FieldByName('Address.Street');
if not FConn.UseUnicode then
begin
@@ -150,6 +148,7 @@
Field.Value := ADDRESS_STREET_UNICODE;
AssertEquals(ADDRESS_STREET_UNICODE, c.Address.Street);
end;
+
FExp.Post;
if not FConn.UseUnicode then
begin
@@ -190,12 +189,25 @@
end;
end;
+procedure TTestExposer.AssignNameField(const Exp: TDataSet);
+var
+ Field: TField;
+begin
+ Field := FExp.FieldByName('Name');
+ if not FConn.UseUnicode then
+ begin
+ Field.Value := DEF_NAME;
+ AssertEquals(DEF_NAME, Field.Value);
+ end
+ else
+ begin
+ Field.Value := DEF_NAME_UNICODE;
+ AssertEquals(DEF_NAME_UNICODE, Field.Value);
+ end;
+end;
+
procedure TTestExposer.FieldSetValue;
-const
- DEF_NAME = 'AName';
- DEF_NAME_UNICODE = '链接';
var
- Field: TField;
c: TContact;
begin
FExp.ObjectClass := TContact;
@@ -203,17 +215,8 @@
try
FExp.Subject := c;
FExp.Edit;
- Field := FExp.FieldByName('Name');
- if not FConn.UseUnicode then
- begin
- Field.Value := DEF_NAME;
- AssertEquals(DEF_NAME, Field.Value);
- end
- else
- begin
- Field.Value := DEF_NAME_UNICODE;
- AssertEquals(DEF_NAME_UNICODE, Field.Value);
- end;
+ //Test Name (Unicode)
+ AssignNameField(FExp);
finally
FreeAndNil(c);
end;
@@ -220,19 +223,10 @@
end;
procedure TTestExposer.TestStoreAndRetrieveContactPhones;
-const
- DEF_NAME = 'AName';
- DEF_NAME_UNICODE = '链接';
- DEF_HOME = 'Home';
- DEF_OFFICE = 'Office';
- DEF_NUM_HOME = '012 12345678';
- DEF_NUM_OFFICE = '012-234-56781';
var
c: TContact;
old_id: string;
- t: TPhone;
DataSetField: TDataSetField;
- Field: TField;
begin
FExp.ObjectClass := TContact;
c := TContact.Create;
@@ -239,18 +233,8 @@
try
FExp.Subject := c;
FExp.Edit;
- Field := FExp.FieldByName('Name');
- if not FConn.UseUnicode then
- begin
- Field.Value := DEF_NAME;
- AssertEquals(DEF_NAME, c.Name);
- end
- else
- begin
- Field.Value := DEF_NAME_UNICODE;
- AssertEquals(DEF_NAME_UNICODE, c.Name);
- end;
- Field := FExp.FieldByName('Address.City');
+ //Test Name (Unicode)
+ AssignNameField(FExp);
DataSetField := FExp.FieldByName('Phones') as TDataSetField;
DataSetField.NestedDataSet.Append;
DataSetField.NestedDataSet.FieldByName('Name').Value := DEF_HOME;
@@ -292,14 +276,52 @@
end;
end;
+procedure TTestExposer.TestStoreAndRetrievePerson;
+var
+ p: TPerson;
+ old_id: string;
+ Field: TField;
+ LBirthDate: TDateTime;
+begin
+ FExp.ObjectClass := TPerson;
+ p := TPerson.Create;
+ try
+ FExp.Subject := p;
+ FExp.Edit;
+ //Test Name (Unicode)
+ AssignNameField(FExp);
+ LBirthDate := EncodeDate(1974, 09, 30);
+ //Test BirthDate from 01/01/1900 to Today
+ //LBirthDate := EncodeDate(1900, 01, 01);
+ //while True do
+ begin
+ Field := FExp.FieldByName('BirthDate');
+ Field.Value := LBirthDate;
+ AssertEqualsDateTime(LBirthDate, p.BirthDate);
+ LBirthDate := LBirthDate + 1;
+ //if LBirthDate >= Date then
+ //Break;
+ end;
+ FExp.Post;
+ old_id := p.id;
+ finally
+ FreeAndNil(p);
+ end;
+ AssertNull(p);
+ p := TPerson.Retrieve(old_id);
+ try
+ AssertNotNull('Object not retrieved', p);
+ AssertEquals(old_id, p.Id);
+ AssertEquals(LBirthDate, p.BirthDate);
+ finally
+ FreeAndNil(p);
+ end;
+end;
+
procedure TTestExposer.TestStoreAndRetrievePicture;
-const
- DEF_NAME = 'AName';
- DEF_NAME_UNICODE = '链接';
var
c: TPerson;
Field: TField;
- old_id: string;
BlobContentBefore, BlobContentAfter: string;
begin
FExp.ObjectClass := TPerson;
Modified: trunk/Tests/ubmock/src/fpcunit.pas
===================================================================
--- trunk/Tests/ubmock/src/fpcunit.pas 2017-04-04 15:28:27 UTC (rev 982)
+++ trunk/Tests/ubmock/src/fpcunit.pas 2018-08-31 06:59:50 UTC (rev 983)
@@ -73,6 +73,7 @@
class procedure AssertEquals(Expected, Actual: int64); overload;
class procedure AssertEquals(const AMessage: string; Expected, Actual: currency); overload;
class procedure AssertEquals(Expected, Actual: currency); overload;
+ class procedure AssertEqualsDateTime(Expected, Actual: TDateTime); overload;
class procedure AssertEquals(const AMessage: string; Expected, Actual, Delta: double); overload;
class procedure AssertEquals(Expected, Actual, Delta: double); overload;
class procedure AssertEquals(const AMessage: string; Expected, Actual: boolean); overload;
@@ -425,6 +426,12 @@
AssertEquals('', Expected, Actual);
end;
+class procedure TAssert.AssertEqualsDateTime(Expected, Actual: TDateTime);
+begin
+ if Expected <> Actual then
+ AssertEquals('', DateToStr(Expected), DateToStr(Actual));
+end;
+
class procedure TAssert.AssertEquals(const AMessage: string; Expected, Actual, Delta: double);
begin
AssertTrue(AMessage + ComparisonMsg(FloatToStr(Expected),FloatToStr(Actual)),
|
×
Want the latest updates on software, tech news, and AI?
Get latest updates about software, tech news, and AI from SourceForge directly in your inbox once a month.
Thanks for helping keep SourceForge clean.
X