From 8dc1ce55c186b930d2a5f73926ec364a4f92124b Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 17 Aug 2011 11:22:54 +0000
Subject: [PATCH]  * Avoid infinite loop on Unix

git-svn-id: trunk@18242 -
---
 tests/test/units/sysutils/tdirex.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tests/test/units/sysutils/tdirex.pp b/tests/test/units/sysutils/tdirex.pp
index 084bc4dced..b2c7d4b4b3 100644
--- a/tests/test/units/sysutils/tdirex.pp
+++ b/tests/test/units/sysutils/tdirex.pp
@@ -55,7 +55,10 @@ begin
         begin
           dir:=copy(dir,1,maxpos-1);
           TestDirectoryExists(dir,true);
-        end;
+        end
+      else
+      { if length(dir)<=1, exit test }
+        exit;
     end;
 end;