diff options
| author | John Högberg <[email protected]> | 2017-10-09 20:18:52 +0200 |
|---|---|---|
| committer | John Högberg <[email protected]> | 2017-11-30 15:44:34 +0100 |
| commit | 52937d5b26af2b28573ab90bdcb7f59e9a18ff09 (patch) | |
| tree | c9e3341872bebc997b20ad8ceb4d379d85e3bb65 | |
| parent | 30aac6489f5f0623ed9107c024e4cabc32460e2b (diff) | |
| download | otp-52937d5b26af2b28573ab90bdcb7f59e9a18ff09.tar.gz otp-52937d5b26af2b28573ab90bdcb7f59e9a18ff09.tar.bz2 otp-52937d5b26af2b28573ab90bdcb7f59e9a18ff09.zip | |
Ensure that trailing slashes are ignored on list_dir
| -rw-r--r-- | lib/kernel/test/file_SUITE.erl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/kernel/test/file_SUITE.erl b/lib/kernel/test/file_SUITE.erl index af7bc2a5f7..767d88f113 100644 --- a/lib/kernel/test/file_SUITE.erl +++ b/lib/kernel/test/file_SUITE.erl @@ -654,6 +654,10 @@ cur_dir_0(Config) when is_list(Config) -> {ok,NewDirFiles} = ?FILE_MODULE:list_dir("."), true = lists:member(UncommonName,NewDirFiles), + %% Ensure that we get the same result with a trailing slash; the + %% APIs used on Windows will choke on them if passed directly. + {ok,NewDirFiles} = ?FILE_MODULE:list_dir("./"), + %% Delete the directory and return to the old current directory %% and check that the created file isn't there (too!) expect({error, einval}, {error, eacces}, |