Explorar o código

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

git-svn-id: trunk@13391 -
florian %!s(int64=16) %!d(string=hai) anos
pai
achega
6da1d7d417
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  1. 2 2
      tests/webtbs/tw9985a.pp

+ 2 - 2
tests/webtbs/tw9985a.pp

@@ -15,9 +15,9 @@ begin
     calls...). }
     calls...). }
 {$ifdef unix}
 {$ifdef unix}
   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