mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 08:15:53 +01:00
9b70ee40fc
IMVCSerUnSer = interface
['{1ECA942A-E3C4-45DD-9D23-C00363B5E334}']
function SerializeObject(AObject: TObject; AIgnoredProperties: array of string): String;
function SerializeObjectStrict(AObject: TObject): String;
function SerializeDataSet(ADataSet: TDataSet; AIgnoredFields: array of string): String;
function SerializeCollection(AList: TObject; AIgnoredProperties: array of string): String;
function SerializeCollectionStrict(AList: TObject): String;
procedure DeserializeObject(ASerializedObject: String; AObject: TObject);
procedure DeserializeCollection(ASerializedObjectList: string; AList: IMVCList; AClazz: TClass);
end;
54 lines
2.0 KiB
ObjectPascal
54 lines
2.0 KiB
ObjectPascal
program DMVCFrameworkTests;
|
|
{
|
|
|
|
Delphi DUnit Test Project
|
|
-------------------------
|
|
This project contains the DUnit test framework and the GUI/Console test runners.
|
|
Add "CONSOLE_TESTRUNNER" to the conditional defines entry in the project options
|
|
to use the console test runner. Otherwise the GUI test runner will be used by
|
|
default.
|
|
|
|
}
|
|
|
|
{$IFDEF CONSOLE_TESTRUNNER}
|
|
{$APPTYPE CONSOLE}
|
|
{$ENDIF}
|
|
|
|
|
|
uses
|
|
DUnitTestRunner,
|
|
FrameworkTestsU in 'FrameworkTestsU.pas',
|
|
LiveServerTestU in 'LiveServerTestU.pas',
|
|
MessagingExtensionsTestU in 'MessagingExtensionsTestU.pas',
|
|
BusinessObjectsU in '..\..\samples\commons\BusinessObjectsU.pas',
|
|
BOs in 'BOs.pas',
|
|
TestServerControllerU in '..\TestServer\TestServerControllerU.pas',
|
|
RESTAdapterTestsU in 'RESTAdapterTestsU.pas',
|
|
MVCFramework.HMAC in '..\..\sources\MVCFramework.HMAC.pas',
|
|
MVCFramework.Tests.WebModule2 in '..\StandaloneServer\MVCFramework.Tests.WebModule2.pas' {TestWebModule2: TWebModule},
|
|
MVCFramework.Tests.StandaloneServer in '..\StandaloneServer\MVCFramework.Tests.StandaloneServer.pas',
|
|
MVCFramework.Tests.WebModule1 in '..\RESTClient\MVCFramework.Tests.WebModule1.pas' {TestWebModule1: TWebModule},
|
|
MVCFramework.Tests.RESTClient in '..\RESTClient\MVCFramework.Tests.RESTClient.pas',
|
|
MVCFramework.Tests.AppController in '..\RESTClient\MVCFramework.Tests.AppController.pas',
|
|
SerializationFrameworkTestsU in 'SerializationFrameworkTestsU.pas',
|
|
MVCFramework.Serializer.JSON in '..\..\sources\MVCFramework.Serializer.JSON.pas',
|
|
ObjectsMappers in '..\..\sources\ObjectsMappers.pas',
|
|
MVCFramework.Serializer.Commons in '..\..\sources\MVCFramework.Serializer.Commons.pas',
|
|
MVCFramework.TypesAliases in '..\..\sources\MVCFramework.TypesAliases.pas',
|
|
MVCFramework.Commons in '..\..\sources\MVCFramework.Commons.pas';
|
|
|
|
{$R *.RES}
|
|
|
|
|
|
begin
|
|
ReportMemoryLeaksOnShutdown := True;
|
|
|
|
DUnitTestRunner.RunRegisteredTests;
|
|
|
|
{$IFDEF CONSOLE_TESTRUNNER}
|
|
write('Press return to continue...');
|
|
ReadLn;
|
|
{$ENDIF}
|
|
|
|
end.
|