paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 03:06:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Now uses PathSeparator and DirectorySeparator

Browse Source
This commit is contained in:
michael 2002-01-22 08:31:13 +00:00
parent 4029ec8a3a
commit cbede72cd0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/webtbs/tw1479.pp
View File

@ -5,16 +5,16 @@ uses
const const
fname = 'Makefile'; fname = 'Makefile';
ThisDir = '.'+DirectorySeparator;
var var
fn : string; fn : string;
begin begin
fn:=FileSearch(fname,';'); fn:=FileSearch(fname,PathSeparator);
writeln('found: ',fn); writeln('found: ',fn);
if fn<>fname then if fn<>fname then
halt(1); halt(1);
fn:=FileSearch('./'+fname,';'); fn:=FileSearch(ThisDir+fname,PathSeparator);
writeln('found: ',fn); writeln('found: ',fn);
if fn<>'./'+fname then if fn<>'.'+fname then
halt(1); halt(1);
end. end.