Browse Source

* replace linux -> unix in certain cases

carl 24 years ago
parent
commit
0eb814bdf5
1 changed files with 6 additions and 6 deletions
  1. 6 6
      tests/test/units/dos/tdos.pp

+ 6 - 6
tests/test/units/dos/tdos.pp

@@ -62,13 +62,13 @@ begin
   writeln('**************');
   writeln('**************');
   write('Press Enter for an Exec of ''ls -la''');
   write('Press Enter for an Exec of ''ls -la''');
   Readln;
   Readln;
-{$ifdef linux }
+{$ifdef unix }
   Exec('ls','-la');
   Exec('ls','-la');
-{$else not linux }
+{$else not unix }
   SwapVectors;
   SwapVectors;
   Exec('ls','-la');
   Exec('ls','-la');
   SwapVectors;
   SwapVectors;
-{$endif not linux }
+{$endif not unix }
   write('Press Enter');
   write('Press Enter');
   Readln;
   Readln;
 end;
 end;
@@ -157,11 +157,11 @@ begin
   test:='..\;\usr\;\usr\bin\;\usr\bin;\bin\;';
   test:='..\;\usr\;\usr\bin\;\usr\bin;\bin\;';
 {$endif not linux}
 {$endif not linux}
   test:=test+getenv('PATH');
   test:=test+getenv('PATH');
-{$ifdef linux}
+{$ifdef unix}
   Writeln('FSearch ls: ',FSearch('ls',test));
   Writeln('FSearch ls: ',FSearch('ls',test));
-{$else not linux}
+{$else not unix}
   Writeln('FSearch ls: ',FSearch('ls.exe',test));
   Writeln('FSearch ls: ',FSearch('ls.exe',test));
-{$endif not linux}
+{$endif not unix}
 
 
   write('Press Enter');
   write('Press Enter');
   Readln;
   Readln;