From 736b347bbf0081dca31d56053b6b526686a57bdb Mon Sep 17 00:00:00 2001
From: vvzh <vvzh@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 9 May 2011 11:53:10 +0000
Subject: [PATCH] csvdocument: explicit line endings in test failure reports

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

diff --git a/components/csvdocument/testsuite/testcsvdoc.lpr b/components/csvdocument/testsuite/testcsvdoc.lpr
index 690338d86..411d3a45f 100644
--- a/components/csvdocument/testsuite/testcsvdoc.lpr
+++ b/components/csvdocument/testsuite/testcsvdoc.lpr
@@ -76,8 +76,12 @@ begin
   begin
     WriteLn(': FAILED');
     WriteLn('--- Expected: ---');
+    SampleBuffer := StringReplace(SampleBuffer, #13, '<CR>', [rfReplaceAll]);
+    SampleBuffer := StringReplace(SampleBuffer, #10, '<LF>', [rfReplaceAll]);
     WriteLn(SampleBuffer);
     WriteLn('--- Got: --------');
+    OutBuffer := StringReplace(OutBuffer, #13, '<CR>', [rfReplaceAll]);
+    OutBuffer := StringReplace(OutBuffer, #10, '<LF>', [rfReplaceAll]);
     WriteLn(OutBuffer);
     WriteLn('-----------------');
   end;