mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 13:49:39 +02:00
* Test for r17704
git-svn-id: trunk@17822 -
This commit is contained in:
parent
a532182917
commit
46aa4bfc0f
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user