paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 12:05:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Only convert the classname in the filename of a unit-test to lowercase and not the whole path

Browse Source 
git-svn-id: trunk@9896 -
This commit is contained in:
joost 2008-01-24 17:40:32 +00:00
parent efa0484979
commit 309106e9f1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/utils/dbtests.pp
View File

@ -288,7 +288,7 @@ begin
path := '.'; path := '.';
end; end;
if upper(ClassName[1])<>'T' then exit; if upper(ClassName[1])<>'T' then exit;
FileName := lowercase(TestSrcDir+RelSrcDir+Path+DirectorySeparator+copy(ClassName,2,length(classname))); FileName := TestSrcDir+RelSrcDir+Path+DirectorySeparator+copy(lowercase(ClassName),2,length(classname));
if FileExists(FileName+'.pas') then if FileExists(FileName+'.pas') then
FileName := FileName + '.pas' FileName := FileName + '.pas'
else if FileExists(FileName+'.pp') then else if FileExists(FileName+'.pp') then