* Avoid infinite loop on Unix

git-svn-id: trunk@18242 -

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;