Test suite results for test file tbs/tb0480.pp

Test run data :

Test file "tbs/tb0480.pp" information:

t_id 1370
t_adddate 2004/09/24
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 750246.

Source:

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

procedure Test(const s1, s2: PAnsiChar);
begin
  Writeln(s1);
  Writeln(s2);
  if ansistring(s1)<>ansistring(s2) then
    begin
      writeln('Error');
      halt(1);
    end;
end;

var
  S: AnsiString;
  P: PAnsiChar;
begin
  S := 'Test';
  P := PAnsiChar(S);
  Test(PAnsiChar('String:'+S+';'), PAnsiChar('String:'+S+';'));
  Test(PAnsiChar('String:'+P+';'), PAnsiChar('String:'+P+';'));
end.

Link to SVN view of tbs/tb0480.pp source.