diff options
| author | Siri Hansen <[email protected]> | 2013-05-23 09:52:12 +0200 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2013-06-04 11:04:35 +0200 |
| commit | e0e8b6d2c016d62c8ada8664ec4ba1ce291979d0 (patch) | |
| tree | 4a7bc89bfed58889ff4f906a6bc7b0c3bfaec86b /lib/kernel/test/file_name_SUITE.erl | |
| parent | a2a30c6e89249f4683d0d3359845eb4f9dacd0ec (diff) | |
| download | otp-e0e8b6d2c016d62c8ada8664ec4ba1ce291979d0.tar.gz otp-e0e8b6d2c016d62c8ada8664ec4ba1ce291979d0.tar.bz2 otp-e0e8b6d2c016d62c8ada8664ec4ba1ce291979d0.zip | |
Delete 'icky' dirs and symlinks after kernel tests
This is to avoid lingering files on windows.
Diffstat (limited to 'lib/kernel/test/file_name_SUITE.erl')
| -rw-r--r-- | lib/kernel/test/file_name_SUITE.erl | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/lib/kernel/test/file_name_SUITE.erl b/lib/kernel/test/file_name_SUITE.erl index a6728564e4..0c8082026a 100644 --- a/lib/kernel/test/file_name_SUITE.erl +++ b/lib/kernel/test/file_name_SUITE.erl @@ -197,7 +197,10 @@ normal(Config) when is_list(Config) -> put(file_module,prim_file), ok = check_normal(prim_file), put(file_module,file), - ok = check_normal(file) + ok = check_normal(file), + %% If all is good, delete dir again (avoid hanging dir on windows) + rm_rf(file,"normal_dir"), + ok after file:set_cwd(Dir) end. @@ -219,7 +222,10 @@ icky(Config) when is_list(Config) -> put(file_module,prim_file), ok = check_icky(prim_file), put(file_module,file), - ok = check_icky(file) + ok = check_icky(file), + %% If all is good, delete dir again (avoid hanging dir on windows) + rm_rf(file,"icky_dir"), + ok after file:set_cwd(Dir) end @@ -243,7 +249,11 @@ very_icky(Config) when is_list(Config) -> {skipped,"VM needs to be started in Unicode filename mode"}; ok -> put(file_module,file), - ok = check_very_icky(file) + ok = check_very_icky(file), + %% If all is good, delete dir again + %% (avoid hanging dir on windows) + rm_rf(file,"very_icky_dir"), + ok end after file:set_cwd(Dir) |