diff options
| author | Siri Hansen <[email protected]> | 2013-06-25 10:11:37 +0200 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2013-06-25 10:11:37 +0200 |
| commit | 2508a426a07855eea182ecaa623222754776217b (patch) | |
| tree | 13007a45eed3534ecbb7aabd0efdb4eda6995293 | |
| parent | 4c3b306184d886678d08949bcbe0186af8f984b1 (diff) | |
| download | otp-2508a426a07855eea182ecaa623222754776217b.tar.gz otp-2508a426a07855eea182ecaa623222754776217b.tar.bz2 otp-2508a426a07855eea182ecaa623222754776217b.zip | |
[sasl] Remove directory with unicode characters after successful test
This is to avoid lingering files after test runs on windows, since the
cleanup script often does not succeed in removing files with unicode
characters.
| -rw-r--r-- | lib/sasl/test/systools_SUITE.erl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/sasl/test/systools_SUITE.erl b/lib/sasl/test/systools_SUITE.erl index 367cab1d77..3921b2d3bb 100644 --- a/lib/sasl/test/systools_SUITE.erl +++ b/lib/sasl/test/systools_SUITE.erl @@ -59,6 +59,7 @@ -export([otp_6226_outdir/1]). -export([init_per_suite/1, end_per_suite/1, init_per_testcase/2, end_per_testcase/2]). +-export([delete_tree/1]). -import(lists, [foldl/3]). @@ -299,6 +300,11 @@ unicode_script(Config) when is_list(Config) -> %% 3. path (directory name where unicode_app.tgz is extracted) true = lists:member({path,[P1]},Instr), + %% If all is good, delete the unicode dir to avoid lingering files + %% on windows. + rpc:call(Node,code,add_pathz,[filename:dirname(code:which(?MODULE))]), + rpc:call(Node,?MODULE,delete_tree,[UnicodeLibDir]), + ok. unicode_script(cleanup,Config) -> |