paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 20:19:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* add path setting for some previously missing platforms (OS/2, MSDOS)

Browse Source 
git-svn-id: trunk@29695 -
This commit is contained in:
Tomas Hajny 2015-02-14 20:46:58 +00:00
parent 141878978e
commit 60c5f29b5b
1 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
tests/webtbs/tw19977.pp
View File

@ -1,12 +1,34 @@
{$mode objfpc}{$H+}
{$I+}
{$IFDEF GO32V2}
{$DEFINE DOSLIKEDIR}
{$ENDIF GO32V2}
{$IFDEF MSDOS}
{$DEFINE DOSLIKEDIR}
{$ENDIF MSDOS}
{$IFDEF OS2}
{$DEFINE DOSLIKEDIR}
{$ENDIF OS2}
{$IFDEF MSWINDOWS}
{$DEFINE DOSLIKEDIR}
{$ENDIF MSWINDOWS}
{$IFNDEF UNIX}
{$IFNDEF DOSLIKEDIR}
{$ERROR Test misses path setting for this platform!}
{$ENDIF DOSLIKEDIR}
{$ENDIF UNIX}
uses SysUtils;
const
NotExistingDir = {$ifdef UNIX} '/not_existing_directory_kambi_test' {$endif}
{$ifdef MSWINDOWS} 'c:/not_existing_directory_kambi_test' {$endif}
{$ifdef GO32V2} 'c:/not_existing_directory_kambi_test' {$endif};
{$ifdef DOSLIKEDIR} 'c:/not_existing_directory_kambi_test' {$endif}
;
begin
try
ChDir(NotExistingDir);