Test suite results for test file webtbs/tw3479.pp

Test run data :

Test file "webtbs/tw3479.pp" information:

t_id 1425
t_adddate 2004/12/27
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1015618.

Source:

{ Source provided for Free Pascal Bug Report 3479 }
{ Submitted by "Michalis Kamburelis" on  2004-12-26 }
{ e-mail: michalis@camelot.homedns.org }
{ Two cases where BreakStr = #10 hang WrapText.
  After applying my fix all things work OK.
}

uses SysUtils;
const
  Line1 = 'one blahblah blah bb b';
  Line2 = 'two hhhhh sss sssss wwwww';
begin
 Writeln(WrapText(Line1 +   #10+ Line2,    #10, [' '], 40));
 Writeln(WrapText(Line1 +#13#10+ Line2, #13#10, [' '], 40));
 Writeln(WrapText(Line1 +   #10+ Line2,    #10, [' '], 10));
 Writeln(WrapText(Line1 +#13#10+ Line2, #13#10, [' '], 10));
end.

Link to SVN view of webtbs/tw3479.pp source.