paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 02:29:19 +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

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

@ -297,6 +297,15 @@ function exit_loc_jump : boolean;
end; end;
function exit_loc_ansi(w: word) : ansistring;
var d: ansistring;
begin
str(w,d);
exit(d);
end;
var var
failed : boolean; failed : boolean;
array_24bits : t24bitarray; array_24bits : t24bitarray;
@ -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,7 +455,16 @@ 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 := true;
if failed then
fail
else
writeln('Passed!');
write('Testing secondexitn() ansistring case...');
failed := false; failed := false;
if exit_loc_ansi(10) <> '10' then
failed := true;
if failed then if failed then
fail fail
else else
@ -456,7 +474,10 @@ 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
} }