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

tests: ExtractFileUnitname

Browse Source 
git-svn-id: trunk@50160 -
This commit is contained in:
mattias 2015-10-24 21:50:00 +00:00
parent d75c8aba79
commit 06c04debf6
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/fileprocs.pas
View File

@ -1154,9 +1154,9 @@ begin
Result:=ExtractFileNameOnly(Filename); Result:=ExtractFileNameOnly(Filename);
if (Result='') or WithNameSpace then exit; if (Result='') or WithNameSpace then exit;
// find last dot // find last dot
p:=length(Filename); p:=length(Result);
while p>0 do begin while p>0 do begin
if Filename[p]='.' then begin if Result[p]='.' then begin
Delete(Result,1,p); Delete(Result,1,p);
exit; exit;
end; end;

2
test/codetoolstests/testbasiccodetools.pas
View File

@ -380,7 +380,7 @@ procedure TTestBasicCodeTools.TestExtractFileUnitname;
procedure t(Filename: string; WithNameSpace: boolean; Expected: string); procedure t(Filename: string; WithNameSpace: boolean; Expected: string);
begin begin
AssertEquals('ExtractFileUnitname('''+Filename+''')',Expected,ExtractFileUnitname(Filename,WithNameSpace)); AssertEquals('ExtractFileUnitname('''+Filename+''','+BoolToStr(WithNameSpace,true)+')',Expected,ExtractFileUnitname(Filename,WithNameSpace));
end; end;
begin begin