paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Test for r17704

Browse Source 
git-svn-id: trunk@17822 -
This commit is contained in:
joost 2011-06-25 00:09:30 +00:00
parent a532182917
commit 46aa4bfc0f
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-db/tests/testdbbasics.pas
View File

@ -85,6 +85,8 @@ type
procedure TestRequired; procedure TestRequired;
procedure TestExceptionLocateClosed; // bug 13938 procedure TestExceptionLocateClosed; // bug 13938
procedure TestCanModifySpecialFields; procedure TestCanModifySpecialFields;
procedure TestOldValue;
end; end;
{ TTestBufDatasetDBBasics } { TTestBufDatasetDBBasics }
@ -580,6 +582,16 @@ begin
DBConnector.StopTest; DBConnector.StopTest;
end; end;
procedure TTestDBBasics.TestOldValue;
var v : variant;
bufds: TCustomBufDataset;
begin
bufds := DBConnector.GetNDataset(0) as TCustomBufDataset;
bufds.Open;
bufds.InsertRecord([0,'name']);
v := VarToStr(bufds.fields[1].OldValue);
end;
procedure TTestBufDatasetDBBasics.TestClosedIndexFieldNames; procedure TTestBufDatasetDBBasics.TestClosedIndexFieldNames;
var s : string; var s : string;
bufds: TCustomBufDataset; bufds: TCustomBufDataset;