paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 15:49:27 +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
fname = 'Makefile';
ThisDir = '.'+DirectorySeparator;
var
fn : string;
begin
fn:=FileSearch(fname,';');
fn:=FileSearch(fname,PathSeparator);
writeln('found: ',fn);
if fn<>fname then
halt(1);
fn:=FileSearch('./'+fname,';');
fn:=FileSearch(ThisDir+fname,PathSeparator);
writeln('found: ',fn);
if fn<>'./'+fname then
if fn<>'.'+fname then
halt(1);
end.