Test suite results for test file test/cg/tassign1.pp

Test run data :

Test file "test/cg/tassign1.pp" information:

t_id 107
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 936429.

Source:

{****************************************************************}
{  CODE GENERATOR TEST PROGRAM                                   }
{  By Carl Eric Codere                                           }
{****************************************************************}
{ NODE TESTED : secondassign()                                   }
{****************************************************************}
{ DEFINES:                                                       }
{            FPC     = Target is FreePascal compiler             }
{****************************************************************}
{ REMARKS : Tested with Delphi 3 as reference implementation     }
{           Tests the sortstring assignment.                     }
{****************************************************************}
program tassign1;

{$ifdef fpc}
{$mode objfpc}
{$endif}

const
  RESULT_STRING = 'Hello world';



    procedure fail;
    begin
      WriteLn('Failure.');
      halt(1);
    end;

    function getc : char;
     begin
      getc := 'a';
     end;


var
 failed : boolean;
 s: shortstring;
 c: char;
Begin
  Write('secondassign shortstring node testing...');
  failed := false;

  { constant string }
  s:=RESULT_STRING;
  if s<>RESULT_STRING then
    failed := true;
  { empty constant string, small optim. }
  s:='';
  if s<>'' then
    failed := true;
  { constant character }
  s:='a';
  if s<>'a' then
    failed := true;
  { non-constant character }
  c:='a';
  s:=c;
  if s<>'a' then
     failed := true;

  s:=getc;
  if s<>'a' then
     failed := true;

  if failed then
    fail
  else
    WriteLn('Success!');
end.

{
  $Log: tassign1.pp,v $
  Revision 1.2  2002/09/07 15:40:49  peter
    * old logs removed and tabs fixed

  Revision 1.1  2002/08/10 08:27:43  carl
    + mre tests for cg testuit

}

Link to SVN view of test/cg/tassign1.pp source.