diff options
| author | Filipe David Manana <[email protected]> | 2011-06-19 21:16:45 +0100 |
|---|---|---|
| committer | Filipe David Manana <[email protected]> | 2011-08-27 14:10:06 -0700 |
| commit | af8938714416c0b1393a0830fdc6e8a5ab4be87c (patch) | |
| tree | 52da30ed54ab3831e0e051007f0bd89047236b5d /lib/kernel/test/gen_tcp_api_SUITE.erl | |
| parent | 9a52e239698ae62cddbc0d780502c72458867b6f (diff) | |
| download | otp-af8938714416c0b1393a0830fdc6e8a5ab4be87c.tar.gz otp-af8938714416c0b1393a0830fdc6e8a5ab4be87c.tar.bz2 otp-af8938714416c0b1393a0830fdc6e8a5ab4be87c.zip | |
Fix type of Packet arg of gen_tcp:send/2 and gen_udp:send/4
The type is marked as a binary() or a string() but in practice it can
be an iodata(). The test suite was updated to confirm the gen_tcp/2
and gen_udp:send/4 functions accept iodata() (iolists) packets.
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), |