From 5fdd6f03d4e20b5cb65739870c1d61bb7bd2a51e Mon Sep 17 00:00:00 2001
From: vvzh <vvzh@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 10 May 2011 13:29:34 +0000
Subject: [PATCH] csvdocument: bugfixes in testsuite files handling

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1627 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/csvdocument/testsuite/testcsvdoc.lpr | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/csvdocument/testsuite/testcsvdoc.lpr b/components/csvdocument/testsuite/testcsvdoc.lpr
index e624f9258..7a1b17ea8 100644
--- a/components/csvdocument/testsuite/testcsvdoc.lpr
+++ b/components/csvdocument/testsuite/testcsvdoc.lpr
@@ -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();