diff options
author | Siri Hansen <[email protected]> | 2019-01-31 13:29:41 +0100 |
---|---|---|
committer | Siri Hansen <[email protected]> | 2019-01-31 13:29:41 +0100 |
commit | 5cf3304d44ecb8ee28045d44377e2e9747e80f26 (patch) | |
tree | 9d69bff44261f7fb9cc058f55cff18170b992969 /lib/common_test/src/ct_telnet.erl | |
parent | b55d02e92d7fb8244da333ee5bbd794aa6090ff5 (diff) | |
download | otp-5cf3304d44ecb8ee28045d44377e2e9747e80f26.tar.gz otp-5cf3304d44ecb8ee28045d44377e2e9747e80f26.tar.bz2 otp-5cf3304d44ecb8ee28045d44377e2e9747e80f26.zip |
[ct] Add option {newline,string()} to ct_telnet:cmd and ct_telnet:send
By default, each command is appended with "\n", but in some cases a
command must end with "\r\n" to evaluate correctly. This can now be
specified with option {newline,"\r\n"}.
Diffstat (limited to 'lib/common_test/src/ct_telnet.erl')
-rw-r--r-- | lib/common_test/src/ct_telnet.erl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/common_test/src/ct_telnet.erl b/lib/common_test/src/ct_telnet.erl index 3df06cb3b4..174008c790 100644 --- a/lib/common_test/src/ct_telnet.erl +++ b/lib/common_test/src/ct_telnet.erl @@ -194,6 +194,15 @@ send(Connection,Cmd,Opts) -> check_send_opts([{newline,Bool}|Opts]) when is_boolean(Bool) -> check_send_opts(Opts); +check_send_opts([{newline,String}|Opts]) when is_list(String) -> + case lists:all(fun(I) when is_integer(I), I>=0, I=<127 -> true; + (_) -> false + end, String) of + true -> + check_send_opts(Opts); + false -> + {error,{invalid_option,{newline,String}}} + end; check_send_opts([Invalid|_]) -> {error,{invalid_option,Invalid}}; check_send_opts([]) -> |