aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSverker Eriksson <[email protected]>2014-03-13 14:30:56 +0100
committerSverker Eriksson <[email protected]>2014-03-13 14:30:56 +0100
commit91780476897099fce727b43386bc06b813c7a846 (patch)
tree52a0e1890cc610337b23e40878cc6d57ae8c5cf4
parent0e9eb5c6586c927e3407f33951596e22c04a0cfe (diff)
downloadotp-91780476897099fce727b43386bc06b813c7a846.tar.gz
otp-91780476897099fce727b43386bc06b813c7a846.tar.bz2
otp-91780476897099fce727b43386bc06b813c7a846.zip
erts: Fix file_SUITE:make_del_dir for long paths
Windows do not accept long UNC paths for current working directory.
-rw-r--r--lib/kernel/test/file_SUITE.erl9
1 files changed, 8 insertions, 1 deletions
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