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.