aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSiri Hansen <[email protected]>2013-06-25 10:11:37 +0200
committerSiri Hansen <[email protected]>2013-06-25 10:11:37 +0200
commit2508a426a07855eea182ecaa623222754776217b (patch)
tree13007a45eed3534ecbb7aabd0efdb4eda6995293
parent4c3b306184d886678d08949bcbe0186af8f984b1 (diff)
downloadotp-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.erl6
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) ->