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

tests: add another test for TestTrimFileName.

Browse Source
This commit is contained in:
Bart 2021-08-20 18:54:50 +02:00
parent 840389dad3
commit 6df7e87568
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
test/lazutils/testlazfileutils.pas
View File

@ -127,6 +127,7 @@ procedure TTestLazFileUtils.TestTrimFileName;
begin
{$ifdef windows}
DoTest('c:\LazarusDir\..\dir\','c:\dir\');
DoTest('c:\..','c:\'); //yes Windows actually treats it as that.
{$endif}
DoTest('$(LazarusDir)\..\dir\','$(LazarusDir)\..\dir\');
DoTest(' a ','a');