* fix test for case sensitive and case preserving file systems

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49183 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 10 insertions, 2 deletions

diff --git a/tests/test/units/sysutils/tfilenamecase1.pp b/tests/test/units/sysutils/tfilenamecase1.pp
index 305dcc6c1e..103a5a5308 100644
--- a/tests/test/units/sysutils/tfilenamecase1.pp
+++ b/tests/test/units/sysutils/tfilenamecase1.pp
@@ -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.