From 4bbaeeccc624a88cf556a21cfcd7a449c3de896b Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Thu, 24 May 2012 09:16:38 +0000
Subject: [PATCH]  * Reinstated the thest that was removed in r21365. Better
 not replace tests with    new ones, but add new tests

git-svn-id: trunk@21376 -
---
 packages/fcl-db/tests/testdbbasics.pas | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/packages/fcl-db/tests/testdbbasics.pas b/packages/fcl-db/tests/testdbbasics.pas
index a77c9c3c28..fb8aeab5d0 100644
--- a/packages/fcl-db/tests/testdbbasics.pas
+++ b/packages/fcl-db/tests/testdbbasics.pas
@@ -157,6 +157,7 @@ type
     procedure TestBug6893;
     procedure TestRequired;
     procedure TestOldValue;
+    procedure TestOldValue1;
   end;
 
 
@@ -612,6 +613,16 @@ begin
 end;
 
 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
   with DBConnector.GetNDataset(1) as TDataset do
   begin;