diff options
| author | Sverker Eriksson <[email protected]> | 2014-03-13 14:30:56 +0100 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2014-03-13 14:30:56 +0100 |
| commit | 91780476897099fce727b43386bc06b813c7a846 (patch) | |
| tree | 52a0e1890cc610337b23e40878cc6d57ae8c5cf4 | |
| parent | 0e9eb5c6586c927e3407f33951596e22c04a0cfe (diff) | |
| download | otp-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.erl | 9 |
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 |