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

* Reinstated the thest that was removed in r21365. Better not replace tests with

Browse Source 
new ones, but add new tests

git-svn-id: trunk@21376 -
This commit is contained in:
joost 2012-05-24 09:16:38 +00:00
parent 638d0d49c0
commit 4bbaeeccc6
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -157,6 +157,7 @@ type
procedure TestBug6893; procedure TestBug6893;
procedure TestRequired; procedure TestRequired;
procedure TestOldValue; procedure TestOldValue;
procedure TestOldValue1;
end; end;
@ -612,6 +613,16 @@ begin
end; end;
procedure TTestCursorDBBasics.TestOldValue; procedure TTestCursorDBBasics.TestOldValue;
var v : variant;
bufds: TDataset;
begin
bufds := DBConnector.GetNDataset(0) as TDataset;
bufds.Open;
bufds.InsertRecord([0,'name']);
v := VarToStr(bufds.fields[1].OldValue);
end;
procedure TTestCursorDBBasics.TestOldValue1;
begin begin
with DBConnector.GetNDataset(1) as TDataset do with DBConnector.GetNDataset(1) as TDataset do
begin; begin;