paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 16:39:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Correct a test for mysql version 5 (server)

Browse Source 
git-svn-id: trunk@10821 -
This commit is contained in:
joost 2008-04-27 20:13:49 +00:00
parent 18dda56ea5
commit 3120184b2a
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,7 +12,7 @@ uses
DigestTestReport,
toolsunit,
// Units wich contains the tests
testbasics, testfieldtypes, TestDatasources, testdbbasics;
{ testbasics, testfieldtypes, TestDatasources,} testdbbasics;
var
FXMLResultsWriter: TXMLResultsWriter;

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

@ -292,8 +292,8 @@ begin
Open;
for i := 0 to testValuesCount-1 do
begin
if (SQLDbType in MySQLdbTypes) then
AssertEquals(TrimRight(testValues[i]),fields[0].AsString) // MySQL automatically trims strings
if (SQLDbType in [mysql40,mysql41]) then
AssertEquals(TrimRight(testValues[i]),fields[0].AsString) // MySQL < 5.0.3 automatically trims strings
else
AssertEquals(testValues[i],fields[0].AsString);
Next;