diff options
author | frazze-jobb <frazze@erlang.org> | 2023-05-10 14:50:30 +0200 |
---|---|---|
committer | frazze-jobb <frazze@erlang.org> | 2023-05-10 14:50:30 +0200 |
commit | 37556967e4ddc6b32c748f8bb0bd4245b1612671 (patch) | |
tree | b47e218347a8b69dfe0bbf18aed95354444bfeee | |
parent | 0fa5e8b1f7dcd96fc1fcce271d475b36dc8984b6 (diff) | |
download | erlang-37556967e4ddc6b32c748f8bb0bd4245b1612671.tar.gz |
Testcase io_proto_SUITE:raw_stdout_isatty
-rw-r--r-- | lib/stdlib/test/io_proto_SUITE.erl | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lib/stdlib/test/io_proto_SUITE.erl b/lib/stdlib/test/io_proto_SUITE.erl index 81579c05c2..0260b3251c 100644 --- a/lib/stdlib/test/io_proto_SUITE.erl +++ b/lib/stdlib/test/io_proto_SUITE.erl @@ -25,7 +25,7 @@ -export([setopts_getopts/1,unicode_options/1,unicode_options_gen/1, binary_options/1, read_modes_gl/1, read_modes_ogl/1, broken_unicode/1,eof_on_pipe/1, - unicode_prompt/1, shell_slogan/1, raw_stdout/1]). + unicode_prompt/1, shell_slogan/1, raw_stdout/1, raw_stdout_isatty/1]). -export([io_server_proxy/1,start_io_server_proxy/0, proxy_getall/1, @@ -53,7 +53,7 @@ all() -> [setopts_getopts, unicode_options, unicode_options_gen, binary_options, read_modes_gl, read_modes_ogl, broken_unicode, eof_on_pipe, unicode_prompt, - shell_slogan, raw_stdout]. + shell_slogan, raw_stdout, raw_stdout_isatty]. groups() -> []. @@ -1124,8 +1124,14 @@ write_raw_to_stdout() -> io:format(standard_error, "~p~p~p", [Class, Reason, StackTrace]), halt(17) end. - +raw_stdout_isatty(Config) when is_list(Config) -> + rtnode:run( + [{putline,"io:setopts(group_leader(), [{encoding, latin1}])."}, + {putline,"file:write(group_leader(),[90, 127, 128, 255, 131, 90, 10])."},% + {expect, "\\QZ^?\\200\\377\\203Z\\E"} + ],[]), + ok. %% %% Test I/O-server %% |