paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 13:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Reverted accidently committed files in r12278

Browse Source 
git-svn-id: trunk@12279 -
This commit is contained in:
joost 2008-11-29 22:41:53 +00:00
parent 27e3bc5240
commit c3112bd7cb
2 changed files with 5 additions and 28 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,11 +17,10 @@ uses
memdstoolsunit, memdstoolsunit,
SdfDSToolsUnit, SdfDSToolsUnit,
// Units wich contains the tests // Units wich contains the tests
// 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, XMLDatapacketReader; uses toolsunit, bufdataset, variants, strutils;
type THackDataLink=class(TdataLink); type THackDataLink=class(TdataLink);
@ -1526,14 +1526,6 @@ 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);
@ -1545,23 +1537,10 @@ 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;
writeln(FieldByName('F'+FieldTypeNames[AfieldType]).AsString); AssertTrue(AnsiCompareStr('ZZZ',FieldByName('F'+FieldTypeNames[AfieldType]).AsString)>=0);
// 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;
@ -1827,7 +1806,6 @@ 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;