From 91780476897099fce727b43386bc06b813c7a846 Mon Sep 17 00:00:00 2001
From: Sverker Eriksson <sverker@erlang.org>
Date: Thu, 13 Mar 2014 14:30:56 +0100
Subject: erts: Fix file_SUITE:make_del_dir for long paths

Windows do not accept long UNC paths for current working directory.
---
 lib/kernel/test/file_SUITE.erl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'lib/kernel')

diff --git a/lib/kernel/test/file_SUITE.erl b/lib/kernel/test/file_SUITE.erl
index c75639ae7e..5969ff2420 100644
--- a/lib/kernel/test/file_SUITE.erl
+++ b/lib/kernel/test/file_SUITE.erl
@@ -416,7 +416,14 @@ make_del_dir(Config) when is_list(Config) ->
     % because there are processes having that directory as current.
     ?line ok = ?FILE_MODULE:make_dir(NewDir),
     ?line {ok,CurrentDir} = file:get_cwd(),
-    ?line ok = ?FILE_MODULE:set_cwd(NewDir),
+	case {os:type(), length(NewDir) >= 260 } of
+		{{win32,_}, true} ->
+			io:format("Skip set_cwd for windows path longer than 260 (MAX_PATH)\n", []),
+			io:format("\nNewDir = ~p\n", [NewDir]),
+			ok;
+		_ ->
+			?line ok = ?FILE_MODULE:set_cwd(NewDir)
+	end,
     try
 	%% Check that we get an error when trying to create...
 	%% a deep directory
-- 
cgit v1.2.3