t_id
107
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| 443802822 | 934990 | 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
}