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

* correction for Unix

Browse Source
This commit is contained in:
Tomas Hajny 2001-03-10 10:05:08 +00:00
parent c83475a6ca
commit 64ce474b06
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
tests/test/tfexpand.pas
View File

@ -9,11 +9,16 @@ program Tst_FExp;
uses
Dos;
{$IFDEF OS2}
function _DosError (Error: longint): longint; cdecl;
external 'DOSCALLS' index 212;
{$ENDIF OS2}
{$IFDEF LINUX}
{$IFNDEF UNIX}
{$DEFINE UNIX}
{$ENDIF}
{$ENDIF}
{$ENDIF UNIX}
{$ENDIF LINUX}
const
{$IFNDEF FPC}
@ -67,6 +72,10 @@ begin
end;
begin
{$IFDEF OS2}
(* Avoid OS/2 error messages. *)
_DosError (0);
{$ENDIF OS2}
if ParamCount <> 1 then
begin
WriteLn ('Warning: Parameter missing!');
@ -81,13 +90,11 @@ begin
if TestDir [Length (TestDir)] <> DirSep then TestDir := TestDir + DirSep;
GetDir (0, OrigDir);
{$IFDEF UNIX}
CDir := CurDir;
TestDrive := '';
{$ELSE}
GetDir (3, CDir);
{$ELSE UNIX}
TestDrive := Copy (TestDir, 1, 2);
GetDir ((Ord (TestDir [1]) and not ($20)) - 64, OrigTstDir);
{$ENDIF}
{$ENDIF UNIX}
{$I-}
MkDir (TestDir + 'TESTDIR1');
if IOResult <> 0 then ;
@ -96,6 +103,11 @@ begin
{$I+}
ChDir (TestDir + 'TESTDIR1' + DirSep + 'TESTDIR2');
GetDir (0, CurDir);
{$IFDEF UNIX}
CDir := CurDir;
{$ELSE UNIX}
GetDir (3, CDir);
{$ENDIF UNIX}
Check (' ', CurDir + DirSep + ' ');
Check ('', CurDir + DirSep);
Check ('.', CurDir);