2 files changed, 40 insertions, 0 deletions
diff --git a/tests/test/units/sysutils/texpfncase.pp b/tests/test/units/sysutils/texpfncase.pp
index a4adf805e7..1a92839c9c 100644
--- a/tests/test/units/sysutils/texpfncase.pp
+++ b/tests/test/units/sysutils/texpfncase.pp
@@ -116,6 +116,9 @@ begin
 {$IFDEF DEBUG}
  {$IFDEF FPC}
   WriteLn ('FileNameCaseSensitive = ', FileNameCaseSensitive);
+  WriteLn ('IsFileNameCaseSensitive('''+TempDir+''') = ', IsFileNameCaseSensitive(TempDir));
+  Writeln('Setting FileNameCaseSensitive to result of IsFileNameCaseSensitive('''+TempDir+''');');
+  FileNameCaseSensitive:=IsFileNameCaseSensitive(TempDir);
  {$ENDIF FPC}
   WriteLn ('TempDir = ', TempDir);
   WriteLn ('SetCurrentDir result = ', SetCurrentDir (TempDir));
diff --git a/tests/test/units/sysutils/tfilenamecase1.pp b/tests/test/units/sysutils/tfilenamecase1.pp
new file mode 100644
index 0000000000..103a5a5308
--- /dev/null
+++ b/tests/test/units/sysutils/tfilenamecase1.pp
@@ -0,0 +1,37 @@
+uses
+  Sysutils;
+var
+  f : file;  
+Begin
+  Writeln('IsFileNameCaseSensitive: ',IsFileNameCaseSensitive('tfilenamecase1.dat'));
+  Writeln('IsFileNameCasePreserving ',IsFileNameCasePreserving('tfilenamecase1.dat'));
+  Assign(f,'tfilenamecase1.dat');
+  Rewrite(f);
+  Close(f);
+  if IsFileNameCaseSensitive('tfilenamecase1.dat') then
+    begin
+      if FileExists('Tfilenamecase1.dat') then
+        halt(1);
+    end
+  else
+    begin
+      if not(FileExists('Tfilenamecase1.dat')) then
+        halt(2);
+    end;
+  if IsFileNameCasePreserving('tfilenamecase1.dat') then
+    begin
+      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.
+
+  
+  
+\ No newline at end of file