paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 01:47:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

Tests: Added tests that check the handling of paths with periods in the CreateRelativePath function

Browse Source
This commit is contained in:
n7800 2025-01-20 01:28:10 +05:00 committed by Juha Manninen
parent 170c75784c
commit 5e38e572d6
1 changed files with 49 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
test/lazutils/testlazfileutils.pas
View File

@ -165,6 +165,20 @@ procedure TTestLazFileUtils.TestCreateRelativePath;
CreateRelativePath(Filename,BaseDirectory,UsePointDirectory));
end;
// testing an absolute path and its relative variant
procedure DoTest2(Filename, BaseDirectory, Expected: string;
UsePointDirectory: boolean = false);
begin
// absolute paths
DoTest(Filename, BaseDirectory, Expected, UsePointDirectory);
// relative paths
if Filename = Expected then
Delete(Expected, 1, 1);
Delete(Filename, 1, 1);
Delete(BaseDirectory, 1, 1);
DoTest(Filename, BaseDirectory, Expected);
end;
begin
DoTest('/a','/a','');
DoTest('/a','/a','.',true);
@ -187,8 +201,43 @@ begin
DoTest('/a','/b','/a');
DoTest('~/bin','/','~/bin');
DoTest('$(HOME)/bin','/','$(HOME)/bin');
// single period in file
DoTest2('/dir/file.' , '/dir', 'file.' );
DoTest2('/dir/.file' , '/dir', '.file' );
DoTest2('/dir/.file.' , '/dir', '.file.' );
DoTest2('/dir/file.name', '/dir', 'file.name');
// single period in directory
DoTest2('/dir/dir2./file.txt' , '/dir', 'dir2./file.txt' );
DoTest2('/dir/.dir2/file.txt' , '/dir', '.dir2/file.txt' );
DoTest2('/dir/.dir2./file.txt' , '/dir', '.dir2./file.txt' );
DoTest2('/dir/dir2.name/file.txt', '/dir', 'dir2.name/file.txt');
// double period in file
DoTest2('/dir/file..' , '/dir', 'file..' );
DoTest2('/dir/..file' , '/dir', '..file' );
DoTest2('/dir/..file..' , '/dir', '..file..' );
DoTest2('/dir/file..name', '/dir', 'file..name');
// double period in directory
DoTest2('/dir/dir2../file.txt' , '/dir', 'dir2../file.txt' );
DoTest2('/dir/..dir2/file.txt' , '/dir', '..dir2/file.txt' );
DoTest2('/dir/..dir2../file.txt' , '/dir', '..dir2../file.txt' );
DoTest2('/dir/dir2..name/file.txt', '/dir', 'dir2..name/file.txt');
// triple period (no special purpose)
DoTest2('/dir/dir/...' , '/dir', 'dir/...');
DoTest2('/dir/.../file', '/dir', '.../file');
// illegal input must return the original value
DoTest2('/dir/../file', '/dir' , '/dir/../file');
DoTest2('/dir/..' , '/dir' , '/dir/..' );
DoTest2('/dir/file' , '/dir/../dir', '/dir/file' );
DoTest2('/dir' , '/dir/..' , '/dir' );
DoTest2('/../dir/file', '/../dir' , '/../dir/file');
DoTest2('/dir/file' , '/../' , '/dir/file' );
{$IFDEF MSWindows}
DoTest('D:\a\b\c.pas','D:\a\d\','..\b\c.pas');
// different delimiters
DoTest('D:\dir../file', 'D:\dir..', 'file');
DoTest('D:\dir\../file', 'D:\dir', 'D:\dir\../file');
{$ENDIF}
end;