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

* test fixed for non-unix, AddDisk exists only on unix

Browse Source 
git-svn-id: trunk@13390 -
This commit is contained in:
florian 2009-07-15 19:59:37 +00:00
parent a9d9841eee
commit 6bfd2cad31
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw9985.pp
View File

@ -17,9 +17,9 @@ begin
DiskNum := AddDisk('/'); DiskNum := AddDisk('/');
{$else} {$else}
{ dos/windows/os/2 ... Still needs other cases for other OSes } { dos/windows/os/2 ... Still needs other cases for other OSes }
DiskNum := AddDisk('C:'); DiskNum := 3;
{$endif} {$endif}
Writeln(DiskFree(DiskNum), '/', DiskSize(DiskNum)); Writeln(DiskFree(DiskNum), '/', DiskSize(DiskNum));
if (disksize(3)<>disksize(disknum)) then if (disksize(3)<>disksize(disknum)) then
halt(1); halt(1);
end. end.