* Added sqlite3-test configuration example

git-svn-id: trunk@12300 -

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]

packages/fcl-db/tests/dbtestframework.pas

@@ -20,7 +20,8 @@ uses
   testbasics,
   testfieldtypes,
   TestDatasources,
-  testdbbasics;
+  testdbbasics,
+  TestBufDatasetStreams;
 
 var
   FXMLResultsWriter: TXMLResultsWriter;

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;