paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 19:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ ansistring testing (from mailing list)

Browse Source
This commit is contained in:
carl 2002-07-07 11:16:06 +00:00
parent 3232d937be
commit f9f39bda33
1 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
tests/test/cg/texit.pp
View File

@ -295,6 +295,15 @@ function exit_loc_jump : boolean;
c:=FALSE; c:=FALSE;
exit(b and c); exit(b and c);
end; end;
function exit_loc_ansi(w: word) : ansistring;
var d: ansistring;
begin
str(w,d);
exit(d);
end;
var var
@ -435,7 +444,7 @@ Begin
{ check for false, since having zero in register is rarer } { check for false, since having zero in register is rarer }
{ then having non-zero (just in case everything is corrupt) } { then having non-zero (just in case everything is corrupt) }
if exit_loc_flags then if exit_loc_flags then
failed := false; failed := true;
if failed then if failed then
fail fail
else else
@ -446,17 +455,29 @@ Begin
{ check for false, since having zero in register is rarer } { check for false, since having zero in register is rarer }
{ then having non-zero (just in case everything is corrupt) } { then having non-zero (just in case everything is corrupt) }
if exit_loc_jump then if exit_loc_jump then
failed := false; failed := true;
if failed then if failed then
fail fail
else else
writeln('Passed!'); writeln('Passed!');
write('Testing secondexitn() ansistring case...');
failed := false;
if exit_loc_ansi(10) <> '10' then
failed := true;
if failed then
fail
else
writeln('Passed!');
end. end.
{ {
$Log$ $Log$
Revision 1.1 2002-03-25 20:18:46 carl Revision 1.2 2002-07-07 11:16:06 carl
+ ansistring testing (from mailing list)
Revision 1.1 2002/03/25 20:18:46 carl
+ exit node testing + exit node testing
} }