diff options
| author | Henrik Nord <[email protected]> | 2011-09-01 15:00:19 +0200 |
|---|---|---|
| committer | Henrik Nord <[email protected]> | 2011-09-01 15:00:19 +0200 |
| commit | 7ca2941ca0ab85d904de658cf495318dcfbda760 (patch) | |
| tree | 8d6abc1263f8ce56d9baf17755b2523dac77a160 /lib/kernel/test/gen_tcp_api_SUITE.erl | |
| parent | e813241e103aa74d4daf025564b259f3fb9aca5a (diff) | |
| parent | bf2d853857bb0e3a7fd5a2660b22b6e743f91f1c (diff) | |
| download | otp-7ca2941ca0ab85d904de658cf495318dcfbda760.tar.gz otp-7ca2941ca0ab85d904de658cf495318dcfbda760.tar.bz2 otp-7ca2941ca0ab85d904de658cf495318dcfbda760.zip | |
Merge branch 'dev' into major
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), |