From b87124723863b0d63e586d50411b2e1ed3f76637 Mon Sep 17 00:00:00 2001
From: reiniero <reiniero@idefix.freepascal.org>
Date: Wed, 18 Jun 2014 11:46:45 +0000
Subject: [PATCH] * fcl-db: tests: bufdataset: test ftVariant & ftVarbytes as
issue #19930 is marked eesolve.d No regression in test suite.
git-svn-id: trunk@27996 -
---
packages/fcl-db/tests/bufdatasettoolsunit.pas | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/packages/fcl-db/tests/bufdatasettoolsunit.pas b/packages/fcl-db/tests/bufdatasettoolsunit.pas
index 3ec164d719..0a208cc1a3 100644
--- a/packages/fcl-db/tests/bufdatasettoolsunit.pas
+++ b/packages/fcl-db/tests/bufdatasettoolsunit.pas
@@ -137,10 +137,12 @@ begin
FieldDefs.Add('FDATE',ftDate);
FieldDefs.Add('FTIME',ftTime);
FieldDefs.Add('FDATETIME',ftDateTime);
+ FieldDefs.Add('FVARBYTES',ftVarBytes,10);
FieldDefs.Add('FBLOB',ftBlob);
FieldDefs.Add('FMEMO',ftMemo);
FieldDefs.Add('FFIXEDCHAR',ftFixedChar,10);
FieldDefs.Add('FLARGEINT',ftLargeint);
+ FieldDefs.Add('FVARIANT',ftVariant);
FieldDefs.Add('FGUID',ftGuid,38);
FieldDefs.Add('FFMTBCD',ftFmtBCD);
FieldDefs.Add('FWIDESTRING',ftWideString,10);
@@ -163,10 +165,12 @@ begin
FieldByName('FDATE').AsDateTime := StrToDateTime(testDateValues[i], Self.FormatSettings);
FieldByName('FTIME').AsDateTime := StrToTime(testTimeValues[i], Self.FormatSettings);
FieldByName('FDATETIME').AsDateTime := StrToDateTime(testValues[ftDateTime,i], Self.FormatSettings);
+ FieldByName('FVARBYTES').AsString := testStringValues[i];
FieldByName('FBLOB').AsString := testStringValues[i];
FieldByName('FMEMO').AsString := testStringValues[i];
FieldByName('FFIXEDCHAR').AsString := PadRight(testStringValues[i], 10);
FieldByName('FLARGEINT').AsLargeInt := testLargeIntValues[i];
+ FieldByName('FVARIANT').AsString := testStringValues[i];
FieldByName('FGUID').AsString := GuidToString(GUID_NULL);
FieldByName('FFMTBCD').AsBCD := StrToBCD(testFmtBCDValues[i], Self.FormatSettings);
FieldByName('FWIDESTRING').AsString := testStringValues[i];