pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Serialiers : exceptions are no longer used internally to signal missing optional properties.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@875 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-06-29 01:57:44 +00:00
parent 20eecc5ecc
commit 73d1b45eb8
8 changed files with 1129 additions and 796 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
wst/trunk/tests/test_suite/testformatter_unit.pas
View File

@ -697,6 +697,7 @@ begin
if ( A = nil ) and ( B = nil ) then begin
Result := True
end else if ( A <> nil ) and ( B <> nil ) then begin
Result := False;
if ( A^.NilObject = B^.NilObject ) and
( A^.Count = B^.Count ) and
( CompareNodes(A^.InnerData,B^.InnerData) )
@ -730,7 +731,7 @@ var
ok : Boolean;
begin
if ( A = nil ) and ( B = nil ) then begin
Result := True
ok := True
end else if ( A <> nil ) and ( B <> nil ) then begin
if ( A^.Count = B^.Count ) then begin
ok := True;
@ -748,7 +749,7 @@ begin
ok := False;
end;
end else begin
Result := ok;
ok := False;
end;
Result := ok;
end;
@ -4850,7 +4851,7 @@ const
{$ENDIF FPC}
{$IFDEF DELPHI}
s_XML_BUFFER : AnsiString =
'<ns1:ObjProperty xmlns:ns2uri:testnamespace> ' +
'<ns1:ObjProperty xmlns:ns1uri:testnamespace> ' +
' <ns1:fieldSmallint>1</ns1:fieldSmallint> ' +
' <ns1:fieldWord>0</ns1:fieldWord> ' +
' <ns1:fieldString>SampleStringContent</ns1:fieldString> ' +
@ -4890,7 +4891,7 @@ begin
f.BeginObjectRead(strName,TypeInfo(TClass_A));
strName := 'inst';
f.BeginObjectRead(strName,TypeInfo(TTestSmallClass2));
strBuffer := f.ReadBuffer('ObjProperty');
Check(f.ReadBuffer('ObjProperty',strBuffer));
f.EndScopeRead();
f.EndScopeRead();
CheckEquals(SpecialTrim(s_XML_BUFFER),SpecialTrim(strBuffer));