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;