paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 01:59:18 +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); CheckDosError(0);
{ verify actually only works under dos } { verify actually only works under dos }
{ and always returns TRUE on other platforms } { and always returns TRUE on other platforms }
{$ifdef supports_verify} { not anymore (JM) }
if NOT b then if NOT b then
WriteLn(s+'Success.') WriteLn(s+'Success.')
else else
@ -81,15 +81,6 @@ Begin
WriteLn(s+'FAILURE.'); WriteLn(s+'FAILURE.');
has_errors:=true; has_errors:=true;
end; end;
{$else}
if b then
WriteLn(s+'Success.')
else
Begin
WriteLn(s+'FAILURE.');
has_errors:=true;
end;
{$endif}
end; end;
@ -100,7 +91,10 @@ Begin
end. end.
{ {
$Log$ $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 * tried to make as many as possible tests non interactive
Revision 1.1 2002/11/08 21:01:18 carl Revision 1.1 2002/11/08 21:01:18 carl