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

* more resets of failed

Browse Source 
git-svn-id: trunk@8226 -
This commit is contained in:
peter 2007-08-05 20:31:12 +00:00
parent f5d5e377d2
commit 5e4125a4da
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/test/cg/tcalext.pp
View File

@ -477,6 +477,7 @@ begin
WriteLn('Passed!');
Write('External mixed parameter testing with floating values...');
failed := false;
clear_values;
clear_globals;
@ -508,7 +509,6 @@ begin
WriteLn('Passed!');
Write('External struct parameter testing...');
failed := false;
clear_values;
@ -574,7 +574,6 @@ begin
Write('External mixed struct/byte parameter testing...');
failed := false;
clear_values;
@ -696,6 +695,7 @@ begin
Write('pchar function result testing...');
failed := false;
{ verify if the contents both strings are equal }
pc := test_function_pchar;
if strcomp(pc, RESULT_PCHAR) <> 0 then
@ -738,6 +738,7 @@ begin
WriteLn('Passed!');
Write('Function result testing for struct...');
failed := false;
tinystruct := test_function_tiny_struct;
if tinystruct.u8 <> RESULT_U8BIT then