diff options
author | Siri Hansen <siri@erlang.org> | 2013-05-22 11:29:53 +0200 |
---|---|---|
committer | Siri Hansen <siri@erlang.org> | 2013-05-22 11:36:12 +0200 |
commit | 007f058825d12f7ea642d8c5ed4d6dca44341a6c (patch) | |
tree | 7f6b636917de40f71248ab116e6f711dc050f51d /lib/kernel | |
parent | 4bd041e74b5e3e1356a10bb0188aab37521d717a (diff) | |
download | otp-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.
Diffstat (limited to 'lib/kernel')
-rw-r--r-- | lib/kernel/test/interactive_shell_SUITE.erl | 6 |
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])). |