aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSiri Hansen <[email protected]>2013-05-22 11:29:53 +0200
committerSiri Hansen <[email protected]>2013-05-22 11:36:12 +0200
commit007f058825d12f7ea642d8c5ed4d6dca44341a6c (patch)
tree7f6b636917de40f71248ab116e6f711dc050f51d
parent4bd041e74b5e3e1356a10bb0188aab37521d717a (diff)
downloadotp-007f058825d12f7ea642d8c5ed4d6dca44341a6c.tar.gz
otp-007f058825d12f7ea642d8c5ed4d6dca44341a6c.tar.bz2
otp-007f058825d12f7ea642d8c5ed4d6dca44341a6c.zip
Fix interactive_shell_SUITE to handle node name with quotes
Some test hosts have e.g. '-' in the name, which causes the node name to have single quotes. This commit updates the suite to handle this correctly.
-rw-r--r--lib/kernel/test/interactive_shell_SUITE.erl6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/kernel/test/interactive_shell_SUITE.erl b/lib/kernel/test/interactive_shell_SUITE.erl
index dac021c6c6..d7d9434b1f 100644
--- a/lib/kernel/test/interactive_shell_SUITE.erl
+++ b/lib/kernel/test/interactive_shell_SUITE.erl
@@ -211,7 +211,7 @@ job_control_remote(Config) when is_list(Config) ->
{sleep,timeout(short)},
{putline,""},
{getline," -->"},
- {putline,"r "++MyNode},
+ {putline,"r '"++MyNode++"'"},
{putline,"c"},
{putline_raw,""},
{getline,"Eshell"},
@@ -265,7 +265,7 @@ job_control_remote_noshell(Config) when is_list(Config) ->
{sleep,timeout(short)},
{putline,""},
{getline," -->"},
- {putline,"r "++NSNodeStr},
+ {putline,"r '"++NSNodeStr++"'"},
{putline,"c"},
{putline_raw,""},
{getline,"Eshell"},
@@ -721,4 +721,4 @@ get_default_shell() ->
end.
atom2list(A) ->
- lists:flatten(io_lib:format("~w", [A])).
+ lists:flatten(io_lib:format("~s", [A])).