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

tests: fixed TestFilenameIsMatching on Windows, bug #27567

Browse Source 
git-svn-id: trunk@48051 -
This commit is contained in:
mattias 2015-02-28 19:14:11 +00:00
parent 516f4b7698
commit a0760c0464
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/codetoolstests/testbasiccodetools.pas
View File

@ -283,6 +283,8 @@ procedure TTestBasicCodeTools.TestFilenameIsMatching;
var
Actual: Boolean;
begin
DoDirSeparators(aMask);
DoDirSeparators(aFilename);
Actual:=FilenameIsMatching(aMask,aFilename,aExactly);
if Actual=Expected then exit;
AssertEquals('Mask="'+aMask+'" File="'+aFilename+'" Exactly='+dbgs(aExactly),Expected,Actual);