paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-22 12:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* FExpand bug

Browse Source
This commit is contained in:
peter 2002-05-10 07:48:04 +00:00
parent ef7b213483
commit 09ccea65cb
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
tests/webtbs/tw1964.pp Normal file
View File

@ -0,0 +1,30 @@
uses DOS;
var
error : boolean;
procedure Expand(FileMask: string);
var
FileMaskOut : string;
begin
WriteLn;
WriteLn('Expanding "',FileMask,'"');
FileMaskOut := FExpand(FileMask);
WriteLn('To become "',FileMaskOut,'"');
if FileMask<>FileMaskOut then
error:=true;
end;
begin
{$ifdef Win32}
Expand('C:\Windows1\System');
Expand('\\.\C\Windows1\System');
Expand('C:\Windows1\System');
if error then
begin
Writeln('ERROR!');
Halt(1);
end;
{$else}
Writeln('Win32 only test');
{$endif}
end.