paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 10:09:08 +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= password=
hostname=127.0.0.1 hostname=127.0.0.1
[sqlite]
connector=sql
connectorparams=sqlite3
name=test.db
; This section is for a connector for TDbf: ; This section is for a connector for TDbf:
[dbf] [dbf]

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

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

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

@ -126,7 +126,7 @@ type
implementation implementation
uses toolsunit, bufdataset, variants, strutils; uses toolsunit, bufdataset, variants, strutils, XMLDatapacketReader;
type THackDataLink=class(TdataLink); type THackDataLink=class(TdataLink);
@ -1526,6 +1526,14 @@ begin
AddIndex('testindex','F'+FieldTypeNames[AfieldType],[]); AddIndex('testindex','F'+FieldTypeNames[AfieldType],[]);
IndexName:='testindex'; IndexName:='testindex';
open; open;
{ while not eof do
begin
writeln(FieldByName('F'+FieldTypeNames[AfieldType]).AsString);
next;
end;
first;}
OldStringValue:=FieldByName('F'+FieldTypeNames[AfieldType]).AsString; OldStringValue:=FieldByName('F'+FieldTypeNames[AfieldType]).AsString;
next; next;
AssertTrue(OldStringValue<=FieldByName('F'+FieldTypeNames[AfieldType]).AsString); AssertTrue(OldStringValue<=FieldByName('F'+FieldTypeNames[AfieldType]).AsString);
@ -1537,10 +1545,23 @@ begin
edit; edit;
FieldByName('F'+FieldTypeNames[AfieldType]).AsString := 'ZZZ'; FieldByName('F'+FieldTypeNames[AfieldType]).AsString := 'ZZZ';
post; post;
writeln('----');
first;
while not eof do
begin
writeln(FieldByName('F'+FieldTypeNames[AfieldType]).AsString);
next;
end;
first;
prior; 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;
next; next;
writeln(FieldByName('F'+FieldTypeNames[AfieldType]).AsString);
AssertTrue(AnsiCompareStr('ZZZ',FieldByName('F'+FieldTypeNames[AfieldType]).AsString)<=0); AssertTrue(AnsiCompareStr('ZZZ',FieldByName('F'+FieldTypeNames[AfieldType]).AsString)<=0);
close; close;
end; end;
@ -1806,6 +1827,7 @@ begin
for i := 0 to testValuesCount-1 do for i := 0 to testValuesCount-1 do
begin begin
AssertEquals(CurrToStr(testCurrencyValues[i]),Fld.AsString);
AssertEquals(testCurrencyValues[i],Fld.AsCurrency); AssertEquals(testCurrencyValues[i],Fld.AsCurrency);
AssertEquals(testCurrencyValues[i],Fld.AsFloat); AssertEquals(testCurrencyValues[i],Fld.AsFloat);
ds.Next; ds.Next;