paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

csvdocument: bugfixes in testsuite files handling

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1627 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vvzh 2011-05-10 13:29:34 +00:00
parent 14f614f81b
commit 5fdd6f03d4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/csvdocument/testsuite/testcsvdoc.lpr
View File

@ -68,7 +68,7 @@ begin
OutBuffer := TestCsvString(ADocument, InBuffer, ParseTime, BuildTime);
Write(ExtractFileName(AnInputFilename));
if OutBuffer = InBuffer then
if OutBuffer = SampleBuffer then
begin
Write(': ok');
WriteLn(' (parsed in ', BuildTime, ' ms)');
@ -102,7 +102,7 @@ begin
CurrentTestFile := TestFiles[I];
TestCsvFile(ADocument,
CurrentTestFile,
ChangeFileExt(CurrentTestFile, '.sample' + ExtractFileExt(CurrentTestFile)));
ChangeFileExt(CurrentTestFile, '.sample'));
end;
FreeAndNil(TestFiles);
WriteLn();