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

* fix test for case sensitive and case preserving file systems

Browse Source 
git-svn-id: trunk@49183 -
(cherry picked from commit f1e748512b)
This commit is contained in:
florian 2021-04-11 17:30:22 +00:00 committed by marcoonthegit
parent d01e7ab86a
commit aaf503c85f
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/test/units/sysutils/tfilenamecase1.pp
View File

@ -20,8 +20,16 @@ Begin
end;
if IsFileNameCasePreserving('tfilenamecase1.dat') then
begin
if not(FileExists('Tfilenamecase1.dat')) then
halt(1);
if IsFileNameCaseSensitive('tfilenamecase1.dat') then
begin
if FileExists('Tfilenamecase1.dat') then
halt(1);
end
else
begin
if not(FileExists('Tfilenamecase1.dat')) then
halt(1);
end
end;
End.