From 87321a0e67ceaac9859cf7aaf92f6d3c515bac44 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 21 Jan 2023 21:35:18 +0100
Subject: [PATCH]   * fix one test failure for unixes

---
 packages/vcl-compat/src/system.ioutils.pp | 2 +-
 packages/vcl-compat/tests/tciotuils.pas   | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/packages/vcl-compat/src/system.ioutils.pp b/packages/vcl-compat/src/system.ioutils.pp
index bef4316ad8..1917f1a036 100644
--- a/packages/vcl-compat/src/system.ioutils.pp
+++ b/packages/vcl-compat/src/system.ioutils.pp
@@ -388,7 +388,7 @@ class constructor TPath.Create;
 var
   C : Char;
 begin
-  FAltDirectorySeparatorChar:=#0;;
+  FAltDirectorySeparatorChar:=#0;
   For C in AllowDirectorySeparators do
     if (C<>System.DirectorySeparator) and (FAltDirectorySeparatorChar=#0) then
       FAltDirectorySeparatorChar:=C;
diff --git a/packages/vcl-compat/tests/tciotuils.pas b/packages/vcl-compat/tests/tciotuils.pas
index 4e40aaafd3..08f8afe9ea 100644
--- a/packages/vcl-compat/tests/tciotuils.pas
+++ b/packages/vcl-compat/tests/tciotuils.pas
@@ -1086,6 +1086,8 @@ procedure TTestTPath.TestAltDirectorySeparatorChar;
 begin
   {$ifdef Windows}
     AssertEquals('/',TPath.AltDirectorySeparatorChar);
+  {$elseif defined(unix)}
+    AssertEquals('\',TPath.AltDirectorySeparatorChar);
   {$else}
     AssertEquals('/',TPath.AltDirectorySeparatorChar);
   {$endif}