* 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

@@ -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];