paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 11:18:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

tests: added tests for TrimFilename

Browse Source 
git-svn-id: trunk@53276 -
This commit is contained in:
mattias 2016-11-01 19:55:44 +00:00
parent 88c8a65391
commit 8872e27e69
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
test/bugs/testfileproc.pas
View File

@ -55,6 +55,21 @@ begin
{$endif}
DoTest('$(LazarusDir)\..\dir\','$(LazarusDir)\..\dir\');
DoTest(' a ','a');
DoTest('a ','a');
DoTest('.','.');
DoTest('a/','a/');
DoTest('a/.','a/');
DoTest('./a','a');
DoTest('././a','a');
DoTest('a/..','.');
DoTest('a/b/..','a/');
DoTest('a/../b','b');
DoTest('a/b/../c','a/c');
DoTest('a/b/../../c','c');
DoTest('a/./b','a/b');
DoTest('a/.//b','a/b');
DoTest('a//b','a/b');
DoTest('a//./b','a/b');
end;
procedure TTestFileProc.TestCreateRelativePath;