diff options
author | Siri Hansen <[email protected]> | 2013-05-14 12:05:53 +0200 |
---|---|---|
committer | Siri Hansen <[email protected]> | 2013-05-14 17:57:42 +0200 |
commit | 91fc4f1f66332e9cc295c737a2f668153a025cc4 (patch) | |
tree | 2d70834f206a33200cf817347354fa64644f133a /lib | |
parent | 16181c6f7a6d3664f16e6ada818b710e43828db3 (diff) | |
download | otp-91fc4f1f66332e9cc295c737a2f668153a025cc4.tar.gz otp-91fc4f1f66332e9cc295c737a2f668153a025cc4.tar.bz2 otp-91fc4f1f66332e9cc295c737a2f668153a025cc4.zip |
[sasl] Use unicode characters in priv dir name also on windows
Diffstat (limited to 'lib')
-rw-r--r-- | lib/sasl/test/release_handler_SUITE.erl | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/lib/sasl/test/release_handler_SUITE.erl b/lib/sasl/test/release_handler_SUITE.erl index 2ca254ff87..b343bd0be6 100644 --- a/lib/sasl/test/release_handler_SUITE.erl +++ b/lib/sasl/test/release_handler_SUITE.erl @@ -24,8 +24,6 @@ -compile(export_all). --define(unicode_string,[945,946]). % greek letters alpha and beta - % Default timetrap timeout (set in init_per_testcase). %-define(default_timeout, ?t:minutes(40)). -define(default_timeout, ?t:minutes(10)). @@ -1686,8 +1684,7 @@ stop_target_node(Node) -> %% install under a path which includes unicode characters target_system_unicode(Conf) when is_list(Conf) -> PrivDir = priv_dir(Conf), - UnicodeStr = ?unicode_string, - UnicodePrivDir = filename:join(PrivDir,UnicodeStr), + UnicodePrivDir = filename:join(PrivDir,"αβ"), PA = filename:dirname(code:which(?MODULE)), @@ -2135,12 +2132,12 @@ priv_dir(Conf) -> %% Due to problem with long paths on windows => creating a new %% priv_dir under data_dir %% And get rid of trailing slash (absname does that) - %% And if file name translation mode is utf8 when not on windows, - %% use a path with unicode characters... + %% And if file name translation mode is utf8, use a path with + %% unicode characters PrivDir = - case {file:native_name_encoding(),os:type()} of - {utf8,{Os,_}} when Os=/=win32 -> - "priv_dir_" ++ ?unicode_string; + case file:native_name_encoding() of + utf8 -> + "priv_dir_αβ"; _ -> "priv_dir" end, |