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

git-svn-id: trunk@29695 -

tests/webtbs/tw19977.pp

@@ -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);