Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-16 00:05:53 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity
372bf9bc13
delphimvcframework/unittests/serializer/jsondataobjects/MVCFramework.Tests.Serializer.JsonDataObjects.pas

738 lines
26 KiB
ObjectPascal
Raw Normal View History

Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
// ***************************************************************************
//
// Delphi MVC Framework
//
// Copyright (c) 2010-2017 Daniele Teti and the DMVCFramework Team
//
// https://github.com/danieleteti/delphimvcframework
//
// Collaborators with this file: Ezequiel Juliano M<>ller (ezequieljuliano@gmail.com)
//
// ***************************************************************************
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
// http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.
//
// ***************************************************************************
unit MVCFramework.Tests.Serializer.JsonDataObjects;
interface
uses
TestFramework,
System.Rtti,
System.Classes,
System.SysUtils,
System.DateUtils,
System.Generics.Collections,
MVCFramework.Serializer.Commons,
MVCFramework.Serializer.Intf,
MVCFramework.Serializer.JsonDataObjects,
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
MVCFramework.Tests.Serializer.Intf,
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
MVCFramework.Tests.Serializer.Entities,
JsonDataObjects;
type
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
TMVCTestSerializerJsonDataObjects = class(TTestCase, IMVCTestSerializer)
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
private
FSerializer: IMVCSerializer;
protected
procedure SetUp; override;
procedure TearDown; override;
published
procedure TestSerializeEntity;
procedure TestSerializeEntityUpperCaseNames;
procedure TestSerializeEntityLowerCaseNames;
procedure TestSerializeEntityNameAs;
procedure TestSerializeEntityCustomSerializer;
procedure TestSerializeEntityCustomMemberSerializer;
procedure TestSerializeCollection;
procedure TestDeserializeEntity;
procedure TestDeserializeEntityCustomSerializer;
procedure TestDeserializeEntityCustomMemberSerializer;
procedure TestDeserializeCollection;
end;
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
TMVCEntityCustomSerializerJsonDataObjects = class(TInterfacedObject, IMVCTypeSerializer)
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
private
{ private declarations }
protected
procedure Serialize(const AElementValue: TValue; var ASerializerObject: TObject; const AAttributes: TArray<TCustomAttribute>);
procedure Deserialize(const ASerializedObject: TObject; var AElementValue: TValue; const AAttributes: TArray<TCustomAttribute>);
public
{ public declarations }
end;
implementation
const
LINE_BREAK = #$A;
TAB_SPACE = #9;
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
{ TMVCTestSerializerJsonDataObjects }
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
procedure TMVCTestSerializerJsonDataObjects.SetUp;
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
begin
inherited;
FSerializer := TMVCJsonDataObjectsSerializer.Create;
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
FSerializer.RegisterTypeSerializer(System.TypeInfo(TEntityCustom), TMVCEntityCustomSerializerJsonDataObjects.Create);
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
end;
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
procedure TMVCTestSerializerJsonDataObjects.TearDown;
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
begin
inherited;
FSerializer := nil;
end;
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
procedure TMVCTestSerializerJsonDataObjects.TestDeserializeCollection;
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
procedure CheckObjectList(const AList: TObjectList<TNote>);
begin
CheckTrue(AList.Count = 4);
CheckTrue(AList.Items[0].Description = 'Description 1');
CheckTrue(AList.Items[1].Description = 'Description 2');
CheckTrue(AList.Items[2].Description = 'Description 3');
CheckTrue(AList.Items[3].Description = 'Description 4');
end;
const
JSON_PROPERTIES =
'[' + LINE_BREAK +
TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"Description": "Description 1"' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"Description": "Description 2"' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"Description": "Description 3"' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"Description": "Description 4"' + LINE_BREAK +
TAB_SPACE + '}' + LINE_BREAK +
']' + LINE_BREAK;
JSON_FIELDS =
'[' + LINE_BREAK +
TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"FDescription": "Description 1"' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"FDescription": "Description 2"' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"FDescription": "Description 3"' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"FDescription": "Description 4"' + LINE_BREAK +
TAB_SPACE + '}' + LINE_BREAK +
']' + LINE_BREAK;
var
O: TObjectList<TNote>;
begin
O := TObjectList<TNote>.Create(True);
try
FSerializer.DeserializeCollection(JSON_PROPERTIES, O, TNote);
CheckObjectList(O);
finally
O.Free;
end;
O := TObjectList<TNote>.Create(True);
try
FSerializer.DeserializeCollection(JSON_FIELDS, O, TNote, stFields);
CheckObjectList(O);
finally
O.Free;
end;
end;
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
procedure TMVCTestSerializerJsonDataObjects.TestDeserializeEntity;
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
procedure CheckObject(const AEntity: TEntity);
begin
CheckTrue(AEntity.Id = 1);
CheckTrue(AEntity.Code = 2);
CheckTrue(AEntity.Name = 'Ezequiel Juliano M<>ller');
CheckTrue(AEntity.Salary = 100);
CheckTrue(DateToStr(AEntity.Birthday) = '15/10/1987');
CheckTrue(DateTimeToStr(AEntity.AccessDateTime) = '17/02/2017 16:37:50');
CheckTrue(TimeToStr(AEntity.AccessTime) = '16:40:50');
CheckTrue(AEntity.Active = True);
CheckTrue(AEntity.Role = TRole.roGuest);
CheckTrue(DateTimeToStr(TimeStampToDateTime(AEntity.Teporization)) = '17/02/2017 16:37:50');
CheckTrue(AEntity.Department <> nil);
CheckTrue(AEntity.Department.Id = 1);
CheckTrue(AEntity.Department.Name = 'Development');
CheckTrue(AEntity.DepartmentNull = nil);
CheckTrue(AEntity.Notes.Count = 2);
CheckTrue(AEntity.Notes[0].Description = 'EntNote1');
CheckTrue(AEntity.Notes[1].Description = 'EntNote2');
CheckTrue(AEntity.NotesEmpty.Count = 0);
CheckTrue(AEntity.AppreciationAs.AsString = 'Yes');
CheckTrue(AEntity.Appreciation.AsString = 'Yes');
end;
const
JSON_PROPERTIES =
'{' + LINE_BREAK +
TAB_SPACE + '"Id": 1,' + LINE_BREAK +
TAB_SPACE + '"Code": 2,' + LINE_BREAK +
TAB_SPACE + '"Name": "Ezequiel Juliano M<>ller",' + LINE_BREAK +
TAB_SPACE + '"Salary": 100,' + LINE_BREAK +
TAB_SPACE + '"Birthday": "1987-10-15",' + LINE_BREAK +
TAB_SPACE + '"AccessDateTime": "2017-02-17 16:37:50",' + LINE_BREAK +
TAB_SPACE + '"AccessTime": "16:40:50",' + LINE_BREAK +
TAB_SPACE + '"Active": true,' + LINE_BREAK +
TAB_SPACE + '"Role": 1,' + LINE_BREAK +
TAB_SPACE + '"Teporization": 63623032670000,' + LINE_BREAK +
TAB_SPACE + '"Department": {' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"Id": 1,' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"Name": "Development",' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"Notes": [' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + TAB_SPACE + '"Description": "DepNote1"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + TAB_SPACE + '"Description": "DepNote2"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '}' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + ']' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '"DepartmentNull": null,' + LINE_BREAK +
TAB_SPACE + '"Notes": [' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '"Description": "EntNote1"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '"Description": "EntNote2"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '}' + LINE_BREAK +
TAB_SPACE + '],' + LINE_BREAK +
TAB_SPACE + '"NotesEmpty": [],' + LINE_BREAK +
TAB_SPACE + '"AppreciationAs": "Yes",' + LINE_BREAK +
TAB_SPACE + '"Appreciation": {' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"type": "ustring",' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"value": "Yes"' + LINE_BREAK +
TAB_SPACE + '}' + LINE_BREAK +
'}' + LINE_BREAK;
JSON_FIELDS =
'{' + LINE_BREAK +
TAB_SPACE + '"FId": 1,' + LINE_BREAK +
TAB_SPACE + '"FCode": 2,' + LINE_BREAK +
TAB_SPACE + '"FName": "Ezequiel Juliano M<>ller",' + LINE_BREAK +
TAB_SPACE + '"FSalary": 100,' + LINE_BREAK +
TAB_SPACE + '"FBirthday": "1987-10-15",' + LINE_BREAK +
TAB_SPACE + '"FAccessDateTime": "2017-02-17 16:37:50",' + LINE_BREAK +
TAB_SPACE + '"FAccessTime": "16:40:50",' + LINE_BREAK +
TAB_SPACE + '"FActive": true,' + LINE_BREAK +
TAB_SPACE + '"FRole": 1,' + LINE_BREAK +
TAB_SPACE + '"FTeporization": 63623032670000,' + LINE_BREAK +
TAB_SPACE + '"FDepartment": {' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"FId": 1,' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"FName": "Development",' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"FNotes": [' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + TAB_SPACE + '"FDescription": "DepNote1"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + TAB_SPACE + '"FDescription": "DepNote2"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '}' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + ']' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '"FDepartmentNull": null,' + LINE_BREAK +
TAB_SPACE + '"FNotes": [' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '"FDescription": "EntNote1"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '"FDescription": "EntNote2"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '}' + LINE_BREAK +
TAB_SPACE + '],' + LINE_BREAK +
TAB_SPACE + '"FNotesEmpty": [],' + LINE_BREAK +
TAB_SPACE + '"FAppreciationAs": "Yes",' + LINE_BREAK +
TAB_SPACE + '"FAppreciation": {' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"type": "ustring",' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"value": "Yes"' + LINE_BREAK +
TAB_SPACE + '}' + LINE_BREAK +
'}' + LINE_BREAK;
var
O: TEntity;
begin
O := TEntity.Create;
try
FSerializer.DeserializeObject(JSON_PROPERTIES, O);
CheckObject(O);
finally
O.Free;
end;
O := TEntity.Create;
try
FSerializer.DeserializeObject(JSON_FIELDS, O, stFields);
CheckObject(O);
finally
O.Free;
end;
end;
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
procedure TMVCTestSerializerJsonDataObjects.TestDeserializeEntityCustomMemberSerializer;
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
const
JSON =
'{' + LINE_BREAK +
TAB_SPACE + '"Entity": {' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"AId": 1,' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"ACode": 2,' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"AName": "Ezequiel Juliano M<>ller"' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '"Notes": "RXplcXVpZWwgSnVsaWFubyBN/GxsZXI=",' + LINE_BREAK +
TAB_SPACE + '"NotesAsString": "Ezequiel Juliano M<>ller"' + LINE_BREAK +
'}' + LINE_BREAK;
var
O: TSale;
begin
O := TSale.Create;
try
FSerializer.DeserializeObject(JSON, O);
CheckTrue(O.Entity.Id = 1);
CheckTrue(O.Entity.Code = 2);
CheckTrue(O.Entity.Name = 'Ezequiel Juliano M<>ller');
CheckTrue(O.Notes.DataString = 'Ezequiel Juliano M<>ller');
CheckTrue(O.NotesAsString.DataString = 'Ezequiel Juliano M<>ller');
finally
O.Free;
end;
end;
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
procedure TMVCTestSerializerJsonDataObjects.TestDeserializeEntityCustomSerializer;
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
const
JSON =
'{' + LINE_BREAK +
TAB_SPACE + '"AId": 1,' + LINE_BREAK +
TAB_SPACE + '"ACode": 2,' + LINE_BREAK +
TAB_SPACE + '"AName": "Ezequiel Juliano M<>ller"' + LINE_BREAK +
'}' + LINE_BREAK;
var
O: TEntityCustom;
begin
O := TEntityCustom.Create;
try
FSerializer.DeserializeObject(JSON, O);
CheckTrue(O.Id = 1);
CheckTrue(O.Code = 2);
CheckTrue(O.Name = 'Ezequiel Juliano M<>ller');
finally
O.Free;
end;
end;
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
procedure TMVCTestSerializerJsonDataObjects.TestSerializeCollection;
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
const
JSON =
'[' + LINE_BREAK +
TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"Description": "Description 1"' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"Description": "Description 2"' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"Description": "Description 3"' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"Description": "Description 4"' + LINE_BREAK +
TAB_SPACE + '}' + LINE_BREAK +
']' + LINE_BREAK;
JSON_FIELDS =
'[' + LINE_BREAK +
TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"FDescription": "Description 1"' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"FDescription": "Description 2"' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"FDescription": "Description 3"' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"FDescription": "Description 4"' + LINE_BREAK +
TAB_SPACE + '}' + LINE_BREAK +
']' + LINE_BREAK;
var
O: TObjectList<TNote>;
S: string;
begin
O := TObjectList<TNote>.Create(True);
try
O.Add(TNote.Create('Description 1'));
O.Add(TNote.Create('Description 2'));
O.Add(TNote.Create('Description 3'));
O.Add(TNote.Create('Description 4'));
S := FSerializer.SerializeCollection(O);
CheckEqualsString(JSON, S);
S := FSerializer.SerializeCollection(O, stFields);
CheckEqualsString(JSON_FIELDS, S);
finally
O.Free;
end;
end;
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
procedure TMVCTestSerializerJsonDataObjects.TestSerializeEntity;
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
const
JSON_PROPERTIES =
'{' + LINE_BREAK +
TAB_SPACE + '"Id": 1,' + LINE_BREAK +
TAB_SPACE + '"Code": 2,' + LINE_BREAK +
TAB_SPACE + '"Name": "Ezequiel Juliano M<>ller",' + LINE_BREAK +
TAB_SPACE + '"Salary": 100,' + LINE_BREAK +
TAB_SPACE + '"Birthday": "1987-10-15",' + LINE_BREAK +
TAB_SPACE + '"AccessDateTime": "2017-02-17 16:37:50",' + LINE_BREAK +
TAB_SPACE + '"AccessTime": "16:40:50",' + LINE_BREAK +
TAB_SPACE + '"Active": true,' + LINE_BREAK +
TAB_SPACE + '"Role": 1,' + LINE_BREAK +
TAB_SPACE + '"Teporization": 63623032670000,' + LINE_BREAK +
TAB_SPACE + '"Department": {' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"Id": 1,' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"Name": "Development",' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"Notes": [' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + TAB_SPACE + '"Description": "DepNote1"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + TAB_SPACE + '"Description": "DepNote2"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '}' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + ']' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '"DepartmentNull": null,' + LINE_BREAK +
TAB_SPACE + '"Notes": [' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '"Description": "EntNote1"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '"Description": "EntNote2"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '}' + LINE_BREAK +
TAB_SPACE + '],' + LINE_BREAK +
TAB_SPACE + '"NotesEmpty": [],' + LINE_BREAK +
TAB_SPACE + '"AppreciationAs": "Yes",' + LINE_BREAK +
TAB_SPACE + '"Appreciation": {' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"type": "ustring",' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"value": "Yes"' + LINE_BREAK +
TAB_SPACE + '}' + LINE_BREAK +
'}' + LINE_BREAK;
JSON_FIELDS =
'{' + LINE_BREAK +
TAB_SPACE + '"FId": 1,' + LINE_BREAK +
TAB_SPACE + '"FCode": 2,' + LINE_BREAK +
TAB_SPACE + '"FName": "Ezequiel Juliano M<>ller",' + LINE_BREAK +
TAB_SPACE + '"FSalary": 100,' + LINE_BREAK +
TAB_SPACE + '"FBirthday": "1987-10-15",' + LINE_BREAK +
TAB_SPACE + '"FAccessDateTime": "2017-02-17 16:37:50",' + LINE_BREAK +
TAB_SPACE + '"FAccessTime": "16:40:50",' + LINE_BREAK +
TAB_SPACE + '"FActive": true,' + LINE_BREAK +
TAB_SPACE + '"FRole": 1,' + LINE_BREAK +
TAB_SPACE + '"FTeporization": 63623032670000,' + LINE_BREAK +
TAB_SPACE + '"FDepartment": {' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"FId": 1,' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"FName": "Development",' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"FNotes": [' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + TAB_SPACE + '"FDescription": "DepNote1"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + TAB_SPACE + '"FDescription": "DepNote2"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '}' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + ']' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '"FDepartmentNull": null,' + LINE_BREAK +
TAB_SPACE + '"FNotes": [' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '"FDescription": "EntNote1"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '"FDescription": "EntNote2"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '}' + LINE_BREAK +
TAB_SPACE + '],' + LINE_BREAK +
TAB_SPACE + '"FNotesEmpty": [],' + LINE_BREAK +
TAB_SPACE + '"FAppreciationAs": "Yes",' + LINE_BREAK +
TAB_SPACE + '"FAppreciation": {' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"type": "ustring",' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"value": "Yes"' + LINE_BREAK +
TAB_SPACE + '}' + LINE_BREAK +
'}' + LINE_BREAK;
JSON_NULLS =
'{' + LINE_BREAK +
TAB_SPACE + '"Id": 1,' + LINE_BREAK +
TAB_SPACE + '"Code": 2,' + LINE_BREAK +
TAB_SPACE + '"Name": "Ezequiel Juliano M<>ller",' + LINE_BREAK +
TAB_SPACE + '"Salary": 100,' + LINE_BREAK +
TAB_SPACE + '"Birthday": null,' + LINE_BREAK +
TAB_SPACE + '"AccessDateTime": null,' + LINE_BREAK +
TAB_SPACE + '"AccessTime": null,' + LINE_BREAK +
TAB_SPACE + '"Active": true,' + LINE_BREAK +
TAB_SPACE + '"Role": 1,' + LINE_BREAK +
TAB_SPACE + '"Teporization": 63623032670000,' + LINE_BREAK +
TAB_SPACE + '"Department": {' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"Id": 1,' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"Name": "Development",' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"Notes": [' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + TAB_SPACE + '"Description": "DepNote1"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + TAB_SPACE + '"Description": "DepNote2"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '}' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + ']' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '"DepartmentNull": null,' + LINE_BREAK +
TAB_SPACE + '"Notes": [' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '"Description": "EntNote1"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '{' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + TAB_SPACE + '"Description": "EntNote2"' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '}' + LINE_BREAK +
TAB_SPACE + '],' + LINE_BREAK +
TAB_SPACE + '"NotesEmpty": [],' + LINE_BREAK +
TAB_SPACE + '"AppreciationAs": "Yes",' + LINE_BREAK +
TAB_SPACE + '"Appreciation": {' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"type": "ustring",' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"value": "Yes"' + LINE_BREAK +
TAB_SPACE + '}' + LINE_BREAK +
'}' + LINE_BREAK;
var
O: TEntity;
S: string;
begin
O := TEntity.Create;
try
O.Id := 1;
O.Code := 2;
O.Name := 'Ezequiel Juliano M<>ller';
O.Salary := 100;
O.Birthday := StrToDate('15/10/1987');
O.AccessDateTime := StrToDateTime('17/02/2017 16:37:50');
O.AccessTime := StrToTime('16:40:50');
O.Active := True;
O.Role := roGuest;
O.Teporization := DateTimeToTimeStamp(StrToDateTime('17/02/2017 16:37:50'));
O.Appreciation := 'Yes';
O.AppreciationAs := 'Yes';
O.Ignored := 'Yes';
O.Transient := 'Yes';
O.Notes.Add(TNote.Create('EntNote1'));
O.Notes.Add(TNote.Create('EntNote2'));
O.Department.Id := 1;
O.Department.Name := 'Development';
O.Department.Notes.Add(TNote.Create('DepNote1'));
O.Department.Notes.Add(TNote.Create('DepNote2'));
S := FSerializer.SerializeObject(O, stProperties, ['Ignored']);
CheckEqualsString(JSON_PROPERTIES, S);
S := FSerializer.SerializeObject(O, stFields, ['FIgnored']);
CheckEqualsString(JSON_FIELDS, S);
O.Birthday := 0;
O.AccessDateTime := 0;
O.AccessTime := 0;
S := FSerializer.SerializeObject(O, stProperties, ['Ignored']);
CheckEqualsString(JSON_NULLS, S);
finally
O.Free;
end;
end;
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
procedure TMVCTestSerializerJsonDataObjects.TestSerializeEntityCustomMemberSerializer;
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
const
JSON =
'{' + LINE_BREAK +
TAB_SPACE + '"Entity": {' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"AId": 1,' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"ACode": 2,' + LINE_BREAK +
TAB_SPACE + TAB_SPACE + '"AName": "Ezequiel Juliano M<>ller"' + LINE_BREAK +
TAB_SPACE + '},' + LINE_BREAK +
TAB_SPACE + '"Notes": "RXplcXVpZWwgSnVsaWFubyBN/GxsZXI=",' + LINE_BREAK +
TAB_SPACE + '"NotesAsString": "Ezequiel Juliano M<>ller"' + LINE_BREAK +
'}' + LINE_BREAK;
var
O: TSale;
S: string;
begin
O := TSale.Create;
try
O.Entity.Id := 1;
O.Entity.Code := 2;
O.Entity.Name := 'Ezequiel Juliano M<>ller';
O.Notes.WriteString('Ezequiel Juliano M<>ller');
O.NotesAsString.WriteString('Ezequiel Juliano M<>ller');
S := FSerializer.SerializeObject(O);
CheckEqualsString(JSON, S);
finally
O.Free;
end;
end;
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
procedure TMVCTestSerializerJsonDataObjects.TestSerializeEntityCustomSerializer;
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
const
JSON =
'{' + LINE_BREAK +
TAB_SPACE + '"AId": 1,' + LINE_BREAK +
TAB_SPACE + '"ACode": 2,' + LINE_BREAK +
TAB_SPACE + '"AName": "Ezequiel Juliano M<>ller"' + LINE_BREAK +
'}' + LINE_BREAK;
var
O: TEntityCustom;
S: string;
begin
O := TEntityCustom.Create;
try
O.Id := 1;
O.Code := 2;
O.Name := 'Ezequiel Juliano M<>ller';
S := FSerializer.SerializeObject(O);
CheckEqualsString(JSON, S);
finally
O.Free;
end;
end;
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
procedure TMVCTestSerializerJsonDataObjects.TestSerializeEntityLowerCaseNames;
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
const
JSON =
'{' + LINE_BREAK +
TAB_SPACE + '"id": 1,' + LINE_BREAK +
TAB_SPACE + '"code": 2,' + LINE_BREAK +
TAB_SPACE + '"name": "Ezequiel Juliano M<>ller"' + LINE_BREAK +
'}' + LINE_BREAK;
var
O: TEntityLowerCase;
S: string;
begin
O := TEntityLowerCase.Create;
try
O.Id := 1;
O.Code := 2;
O.Name := 'Ezequiel Juliano M<>ller';
S := FSerializer.SerializeObject(O);
CheckEqualsString(JSON, S);
finally
O.Free;
end;
end;
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
procedure TMVCTestSerializerJsonDataObjects.TestSerializeEntityNameAs;
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
const
JSON =
'{' + LINE_BREAK +
TAB_SPACE + '"Id_Id": 1,' + LINE_BREAK +
TAB_SPACE + '"Code_Code": 2,' + LINE_BREAK +
TAB_SPACE + '"Name_Name": "Ezequiel Juliano M<>ller"' + LINE_BREAK +
'}' + LINE_BREAK;
var
O: TEntityNameAs;
S: string;
begin
O := TEntityNameAs.Create;
try
O.Id := 1;
O.Code := 2;
O.Name := 'Ezequiel Juliano M<>ller';
S := FSerializer.SerializeObject(O);
CheckEqualsString(JSON, S);
S := FSerializer.SerializeObject(O, stFields);
CheckEqualsString(JSON, S);
finally
O.Free;
end;
end;
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
procedure TMVCTestSerializerJsonDataObjects.TestSerializeEntityUpperCaseNames;
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
const
JSON =
'{' + LINE_BREAK +
TAB_SPACE + '"ID": 1,' + LINE_BREAK +
TAB_SPACE + '"CODE": 2,' + LINE_BREAK +
TAB_SPACE + '"NAME": "Ezequiel Juliano M<>ller"' + LINE_BREAK +
'}' + LINE_BREAK;
var
O: TEntityUpperCase;
S: string;
begin
O := TEntityUpperCase.Create;
try
O.Id := 1;
O.Code := 2;
O.Name := 'Ezequiel Juliano M<>ller';
S := FSerializer.SerializeObject(O);
CheckEqualsString(JSON, S);
finally
O.Free;
end;
end;
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
{ TMVCEntityCustomSerializerJsonDataObjects }
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
procedure TMVCEntityCustomSerializerJsonDataObjects.Deserialize(
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
const ASerializedObject: TObject; var AElementValue: TValue;
const AAttributes: TArray<TCustomAttribute>);
var
JsonObject: TJsonObject;
EntityCustom: TEntityCustom;
begin
JsonObject := ASerializedObject as TJsonObject;
if Assigned(JsonObject) then
begin
EntityCustom := AElementValue.AsObject as TEntityCustom;
if Assigned(EntityCustom) then
begin
EntityCustom.Id := JsonObject['AId'].LongValue;
EntityCustom.Code := JsonObject['ACode'].IntValue;
EntityCustom.Name := JsonObject['AName'].Value;
end;
end;
end;
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
procedure TMVCEntityCustomSerializerJsonDataObjects.Serialize(
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
const AElementValue: TValue; var ASerializerObject: TObject;
const AAttributes: TArray<TCustomAttribute>);
var
EntityCustom: TEntityCustom;
begin
EntityCustom := AElementValue.AsObject as TEntityCustom;
if Assigned(EntityCustom) then
begin
ASerializerObject := TJsonObject.Create;
TJsonObject(ASerializerObject).L['AId'] := EntityCustom.Id;
TJsonObject(ASerializerObject).I['ACode'] := EntityCustom.Code;
TJsonObject(ASerializerObject).S['AName'] := EntityCustom.Name;
end;
end;
initialization
Add MVCFramework.Tests.Serializer.Intf
2017-03-02 13:27:19 +01:00
RegisterTest(TMVCTestSerializerJsonDataObjects.Suite);
Refactoring the System JSON Serializer. Adding the serializer to JsonDataObjects. Problems with some unit tests.
2017-03-01 21:40:57 +01:00
end.
Reference in New Issue Copy Permalink