diff --git a/test/lazutils/testlazfileutils.pas b/test/lazutils/testlazfileutils.pas index 49c9388aa3..c24ddada2e 100644 --- a/test/lazutils/testlazfileutils.pas +++ b/test/lazutils/testlazfileutils.pas @@ -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');