diff --git a/tests/webtbs/tw1479.pp b/tests/webtbs/tw1479.pp index c0bc08926e..e1f08caa11 100644 --- a/tests/webtbs/tw1479.pp +++ b/tests/webtbs/tw1479.pp @@ -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.