paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 06:49:13 +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 uses
Dos; Dos;
{$IFDEF OS2}
function _DosError (Error: longint): longint; cdecl;
external 'DOSCALLS' index 212;
{$ENDIF OS2}
{$IFDEF LINUX} {$IFDEF LINUX}
{$IFNDEF UNIX} {$IFNDEF UNIX}
{$DEFINE UNIX} {$DEFINE UNIX}
{$ENDIF} {$ENDIF UNIX}
{$ENDIF} {$ENDIF LINUX}
const const
{$IFNDEF FPC} {$IFNDEF FPC}
@ -67,6 +72,10 @@ begin
end; end;
begin begin
{$IFDEF OS2}
(* Avoid OS/2 error messages. *)
_DosError (0);
{$ENDIF OS2}
if ParamCount <> 1 then if ParamCount <> 1 then
begin begin
WriteLn ('Warning: Parameter missing!'); WriteLn ('Warning: Parameter missing!');
@ -81,13 +90,11 @@ begin
if TestDir [Length (TestDir)] <> DirSep then TestDir := TestDir + DirSep; if TestDir [Length (TestDir)] <> DirSep then TestDir := TestDir + DirSep;
GetDir (0, OrigDir); GetDir (0, OrigDir);
{$IFDEF UNIX} {$IFDEF UNIX}
CDir := CurDir;
TestDrive := ''; TestDrive := '';
{$ELSE} {$ELSE UNIX}
GetDir (3, CDir);
TestDrive := Copy (TestDir, 1, 2); TestDrive := Copy (TestDir, 1, 2);
GetDir ((Ord (TestDir [1]) and not ($20)) - 64, OrigTstDir); GetDir ((Ord (TestDir [1]) and not ($20)) - 64, OrigTstDir);
{$ENDIF} {$ENDIF UNIX}
{$I-} {$I-}
MkDir (TestDir + 'TESTDIR1'); MkDir (TestDir + 'TESTDIR1');
if IOResult <> 0 then ; if IOResult <> 0 then ;
@ -96,6 +103,11 @@ begin
{$I+} {$I+}
ChDir (TestDir + 'TESTDIR1' + DirSep + 'TESTDIR2'); ChDir (TestDir + 'TESTDIR1' + DirSep + 'TESTDIR2');
GetDir (0, CurDir); GetDir (0, CurDir);
{$IFDEF UNIX}
CDir := CurDir;
{$ELSE UNIX}
GetDir (3, CDir);
{$ENDIF UNIX}
Check (' ', CurDir + DirSep + ' '); Check (' ', CurDir + DirSep + ' ');
Check ('', CurDir + DirSep); Check ('', CurDir + DirSep);
Check ('.', CurDir); Check ('.', CurDir);