paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-09 21:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added sqlite3-test configuration example

Browse Source 
git-svn-id: trunk@12300 -
This commit is contained in:
joost 2008-12-04 21:20:25 +00:00
parent 51d5320fdb
commit 0a7b499443
3 changed files with 30 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/tests/database.ini.txt
View File

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

3
packages/fcl-db/tests/dbtestframework.pas
View File

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

26
packages/fcl-db/tests/testdbbasics.pas
View File

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