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

* fixed test for new platform-independent get/setverify implementation

Browse Source
This commit is contained in:
Jonas Maebe 2004-12-07 19:02:33 +00:00
parent b31153680b
commit a0ab5bdc92
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/test/units/dos/tverify.pp
View File

@ -73,7 +73,7 @@ Begin
CheckDosError(0);
{ verify actually only works under dos }
{ and always returns TRUE on other platforms }
{$ifdef supports_verify}
{ not anymore (JM) }
if NOT b then
WriteLn(s+'Success.')
else
@ -81,15 +81,6 @@ Begin
WriteLn(s+'FAILURE.');
has_errors:=true;
end;
{$else}
if b then
WriteLn(s+'Success.')
else
Begin
WriteLn(s+'FAILURE.');
has_errors:=true;
end;
{$endif}
end;
@ -100,7 +91,10 @@ Begin
end.
{
$Log$
Revision 1.2 2002-11-18 09:49:49 pierre
Revision 1.3 2004-12-07 19:02:33 jonas
* fixed test for new platform-independent get/setverify implementation
Revision 1.2 2002/11/18 09:49:49 pierre
* tried to make as many as possible tests non interactive
Revision 1.1 2002/11/08 21:01:18 carl