paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 21:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: tests: fix TestStreamingNullFieldsXML (only fields which are not required and not readonly can be set to Null)

Browse Source 
git-svn-id: trunk@25452 -
This commit is contained in:
lacak 2013-09-11 12:05:20 +00:00
parent 91783105cc
commit 47f9c32f11
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/tests/testbufdatasetstreams.pas
View File

@ -560,13 +560,15 @@ begin
Open;
Next;
Edit;
// set all fields to null
// set all fields, which are not required to null
for i:=0 to FieldCount-1 do
Fields[i].Clear;
if not Fields[i].Required and not Fields[i].ReadOnly then
Fields[i].Clear;
Post;
// check if they are null
for i:=0 to FieldCount-1 do
AssertTrue(Fields[i].FieldName, Fields[i].IsNull);
if not Fields[i].Required and not Fields[i].ReadOnly then
AssertTrue(Fields[i].FieldName, Fields[i].IsNull);
SaveToFile(TestXMLFileName, dfXML);
end;