diff options
author | Henrik Nord <[email protected]> | 2011-09-01 14:50:42 +0200 |
---|---|---|
committer | Henrik Nord <[email protected]> | 2011-09-01 14:50:48 +0200 |
commit | ad0f1f1f7e18e98d772b6f76b7310a013b695c97 (patch) | |
tree | bd1e3fb2a7a8ccf908deabc5ed82e8f512ec9ea1 /lib/kernel/test/gen_tcp_api_SUITE.erl | |
parent | dcc4df2464c9f8005c5d242505090cc88beb2eb5 (diff) | |
parent | af8938714416c0b1393a0830fdc6e8a5ab4be87c (diff) | |
download | otp-ad0f1f1f7e18e98d772b6f76b7310a013b695c97.tar.gz otp-ad0f1f1f7e18e98d772b6f76b7310a013b695c97.tar.bz2 otp-ad0f1f1f7e18e98d772b6f76b7310a013b695c97.zip |
Merge branch 'fm/gen_tcp_udp_doc_packet_type' into dev
* fm/gen_tcp_udp_doc_packet_type:
Fix type of Packet arg of gen_tcp:send/2 and gen_udp:send/4
OTP-9514
Diffstat (limited to 'lib/kernel/test/gen_tcp_api_SUITE.erl')
-rw-r--r-- | lib/kernel/test/gen_tcp_api_SUITE.erl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/kernel/test/gen_tcp_api_SUITE.erl b/lib/kernel/test/gen_tcp_api_SUITE.erl index fd4685cdad..cbaec2d6dd 100644 --- a/lib/kernel/test/gen_tcp_api_SUITE.erl +++ b/lib/kernel/test/gen_tcp_api_SUITE.erl @@ -158,6 +158,10 @@ t_shutdown_error(Config) when is_list(Config) -> t_fdopen(Config) when is_list(Config) -> ?line Question = "Aaaa... Long time ago in a small town in Germany,", + ?line Question1 = list_to_binary(Question), + ?line Question2 = [<<"Aaaa">>, "... ", $L, <<>>, $o, "ng time ago ", + ["in ", [], <<"a small town">>, [" in Germany,", <<>>]]], + ?line Question1 = iolist_to_binary(Question2), ?line Answer = "there was a shoemaker, Schumacher was his name.", ?line {ok, L} = gen_tcp:listen(0, [{active, false}]), ?line {ok, Port} = inet:port(L), @@ -167,6 +171,10 @@ t_fdopen(Config) when is_list(Config) -> ?line {ok, Server} = gen_tcp:fdopen(FD, []), ?line ok = gen_tcp:send(Client, Question), ?line {ok, Question} = gen_tcp:recv(Server, length(Question), 2000), + ?line ok = gen_tcp:send(Client, Question1), + ?line {ok, Question} = gen_tcp:recv(Server, length(Question), 2000), + ?line ok = gen_tcp:send(Client, Question2), + ?line {ok, Question} = gen_tcp:recv(Server, length(Question), 2000), ?line ok = gen_tcp:send(Server, Answer), ?line {ok, Answer} = gen_tcp:recv(Client, length(Answer), 2000), ?line ok = gen_tcp:close(Client), |