pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

csvdocument: explicit line endings in test failure reports

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1623 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vvzh
2011-05-09 11:53:10 +00:00
parent 03e76a36cf
commit 736b347bbf
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -76,8 +76,12 @@ begin
begin begin
WriteLn(': FAILED'); WriteLn(': FAILED');
WriteLn('--- Expected: ---'); WriteLn('--- Expected: ---');
SampleBuffer := StringReplace(SampleBuffer, #13, '<CR>', [rfReplaceAll]);
SampleBuffer := StringReplace(SampleBuffer, #10, '<LF>', [rfReplaceAll]);
WriteLn(SampleBuffer); WriteLn(SampleBuffer);
WriteLn('--- Got: --------'); WriteLn('--- Got: --------');
OutBuffer := StringReplace(OutBuffer, #13, '<CR>', [rfReplaceAll]);
OutBuffer := StringReplace(OutBuffer, #10, '<LF>', [rfReplaceAll]);
WriteLn(OutBuffer); WriteLn(OutBuffer);
WriteLn('-----------------'); WriteLn('-----------------');
end; end;