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

* Ignore TestParametersAndDates for sqlite since it uses a semicolon as a cast, which is not supported by sqlite

Browse Source 
git-svn-id: trunk@12278 -
This commit is contained in:
joost 2008-11-29 22:39:39 +00:00
parent 41af4c76ac
commit 27e3bc5240
3 changed files with 29 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,10 +17,11 @@ uses
memdstoolsunit,
SdfDSToolsUnit,
// Units wich contains the tests
testbasics,
// testbasics,
testfieldtypes,
TestDatasources,
testdbbasics;
// TestDatasources,
// 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;

2
packages/fcl-db/tests/testfieldtypes.pas
View File

@ -1402,7 +1402,7 @@ procedure TTestFieldTypes.TestParametersAndDates;
// See bug 7205
var ADateStr : String;
begin
if SQLDbType in [interbase,mysql40,mysql41,mysql50] then Ignore('This test does not apply to this sqldb-connection type, since it doesn''t use semicolons for casts');
if SQLDbType in [interbase,mysql40,mysql41,mysql50,sqlite3] then Ignore('This test does not apply to this sqldb-connection type, since it doesn''t use semicolons for casts');
with TSQLDBConnector(DBConnector).Query do
begin