Test suite results for test file webtbs/tw3719.pp

Test run data :

Test file "webtbs/tw3719.pp" information:

t_id 1528
t_adddate 2005/03/15
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 948165.

Source:

{ Source provided for Free Pascal Bug Report 3719 }
{ Submitted by "Markus Beth" on  2005-03-01 }
{ e-mail: markus.beth@zkrd.de }

{$ifdef fpc}{$mode delphi}{$endif}

uses
  Classes;

begin
  with TStringList.Create do try
    Delimiter := ' ';
    QuoteChar := #0;
    Add('1');
    Add('2');
    WriteLn(DelimitedText);
    if DelimitedText<>'1 2' then
      halt(1);
  finally
    Free;
  end;
end.

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