diff --git a/packages/fcl-db/tests/database.ini.txt b/packages/fcl-db/tests/database.ini.txt
index 4d63cd61e2..103ea20c92 100644
--- a/packages/fcl-db/tests/database.ini.txt
+++ b/packages/fcl-db/tests/database.ini.txt
@@ -76,6 +76,10 @@ user=root
 password=
 hostname=127.0.0.1
 
+[sqlite]
+connector=sql
+connectorparams=sqlite3
+name=test.db
 
 ; This section is for a connector for TDbf:
 [dbf]
diff --git a/packages/fcl-db/tests/dbtestframework.pas b/packages/fcl-db/tests/dbtestframework.pas
index b5b92e87a7..99b8d7d4b9 100644
--- a/packages/fcl-db/tests/dbtestframework.pas
+++ b/packages/fcl-db/tests/dbtestframework.pas
@@ -20,7 +20,8 @@ uses
   testbasics,
   testfieldtypes,
   TestDatasources,
-  testdbbasics;
+  testdbbasics,
+  TestBufDatasetStreams;
 
 var
   FXMLResultsWriter: TXMLResultsWriter;
diff --git a/packages/fcl-db/tests/testdbbasics.pas b/packages/fcl-db/tests/testdbbasics.pas
index abcee4aee5..efc48ef391 100644
--- a/packages/fcl-db/tests/testdbbasics.pas
+++ b/packages/fcl-db/tests/testdbbasics.pas
@@ -126,7 +126,7 @@ type
 
 implementation
 
-uses toolsunit, bufdataset, variants, strutils;
+uses toolsunit, bufdataset, variants, strutils, XMLDatapacketReader;
 
 type THackDataLink=class(TdataLink);
 
@@ -1526,6 +1526,14 @@ begin
     AddIndex('testindex','F'+FieldTypeNames[AfieldType],[]);
     IndexName:='testindex';
     open;
+
+{    while not eof do
+      begin
+      writeln(FieldByName('F'+FieldTypeNames[AfieldType]).AsString);
+      next;
+      end;
+    first;}
+
     OldStringValue:=FieldByName('F'+FieldTypeNames[AfieldType]).AsString;
     next;
     AssertTrue(OldStringValue<=FieldByName('F'+FieldTypeNames[AfieldType]).AsString);
@@ -1537,10 +1545,23 @@ begin
     edit;
     FieldByName('F'+FieldTypeNames[AfieldType]).AsString := 'ZZZ';
     post;
+
+writeln('----');
+    first;
+    while not eof do
+      begin
+      writeln(FieldByName('F'+FieldTypeNames[AfieldType]).AsString);
+      next;
+      end;
+    first;
+
+
     prior;
-    AssertTrue(AnsiCompareStr('ZZZ',FieldByName('F'+FieldTypeNames[AfieldType]).AsString)>=0);
+    writeln(FieldByName('F'+FieldTypeNames[AfieldType]).AsString);
+//    AssertTrue(AnsiCompareStr('ZZZ',FieldByName('F'+FieldTypeNames[AfieldType]).AsString)>=0);
     next;
     next;
+    writeln(FieldByName('F'+FieldTypeNames[AfieldType]).AsString);
     AssertTrue(AnsiCompareStr('ZZZ',FieldByName('F'+FieldTypeNames[AfieldType]).AsString)<=0);
     close;
     end;
@@ -1806,6 +1827,7 @@ begin
 
   for i := 0 to testValuesCount-1 do
     begin
+    AssertEquals(CurrToStr(testCurrencyValues[i]),Fld.AsString);
     AssertEquals(testCurrencyValues[i],Fld.AsCurrency);
     AssertEquals(testCurrencyValues[i],Fld.AsFloat);
     ds.Next;