t_id
107
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950700414 | 1015783 | True | False | Successfully run |
Record count: 1
{****************************************************************} { 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 }