aboutsummaryrefslogtreecommitdiffstats
path: root/lib/kernel/test/gen_tcp_api_SUITE.erl
diff options
context:
space:
mode:
authorLukas Larsson <[email protected]>2011-11-16 16:12:22 +0100
committerLukas Larsson <[email protected]>2011-12-01 14:10:05 +0100
commitabbf1a7b6825f0d62a1efd71e03942cb5170e9d1 (patch)
tree816f53c9e0d870e7ed36d05f0d28f6ee3fabae20 /lib/kernel/test/gen_tcp_api_SUITE.erl
parent06e77d9baa4c631bc329aa1fafb29ee55f66d906 (diff)
downloadotp-abbf1a7b6825f0d62a1efd71e03942cb5170e9d1.tar.gz
otp-abbf1a7b6825f0d62a1efd71e03942cb5170e9d1.tar.bz2
otp-abbf1a7b6825f0d62a1efd71e03942cb5170e9d1.zip
Remove tests for file_server sendfile
Diffstat (limited to 'lib/kernel/test/gen_tcp_api_SUITE.erl')
-rw-r--r--lib/kernel/test/gen_tcp_api_SUITE.erl19
1 files changed, 8 insertions, 11 deletions
diff --git a/lib/kernel/test/gen_tcp_api_SUITE.erl b/lib/kernel/test/gen_tcp_api_SUITE.erl
index 1a88b2e17f..9e53a900d7 100644
--- a/lib/kernel/test/gen_tcp_api_SUITE.erl
+++ b/lib/kernel/test/gen_tcp_api_SUITE.erl
@@ -51,10 +51,7 @@ groups() ->
[{t_accept, [], [t_accept_timeout]},
{t_connect, [], [t_connect_timeout, t_connect_bad]},
{t_recv, [], [t_recv_timeout, t_recv_eof]},
- {t_sendfile, [], [{group, t_sendfile_raw},
- {group, t_sendfile_ioserv}]},
- {t_sendfile_raw, [], sendfile_all()},
- {t_sendfile_ioserv, [], sendfile_all()}].
+ {t_sendfile, [], [{group, sendfile_all()}]}].
sendfile_all() ->
[
@@ -76,8 +73,8 @@ end_per_suite(_Config) ->
init_per_group(t_sendfile, Config) ->
Priv = ?config(priv_dir, Config),
SFilename = filename:join(Priv, "sendfile_small.html"),
- {ok, DS} = file:open(SFilename,[write]),
- io:format(DS,"yo baby yo",[]),
+ {ok, DS} = file:open(SFilename,[write,raw]),
+ file:write(DS,"yo baby yo"),
file:sync(DS),
file:close(DS),
BFilename = filename:join(Priv, "sendfile_big.html"),
@@ -85,9 +82,9 @@ init_per_group(t_sendfile, Config) ->
[file:write(DB,[<<0:(10*8*1024*1024)>>]) || _I <- lists:seq(1,51)],
file:sync(DB),
file:close(DB),
- [{small_file, SFilename},{big_file, BFilename}|Config];
-init_per_group(t_sendfile_raw, Config) ->
- [{file_opts, [raw]}|Config];
+ [{small_file, SFilename},
+ {file_opts,[raw,binary]},
+ {big_file, BFilename}|Config];
init_per_group(_GroupName, Config) ->
Config.
@@ -314,7 +311,7 @@ t_sendfile_partial(Config) ->
{_Size, <<FData:5/binary,SData:3/binary,_/binary>>} =
sendfile_file_info(Filename),
- {ok,D} = file:open(Filename,[read,binary|FileOpts]),
+ {ok,D} = file:open(Filename,[read|FileOpts]),
{ok, <<FData/binary>>} = file:read(D,5),
FSend = fun(Sock) ->
{ok,5} = gen_tcp:sendfile(D,Sock,0,5,[]),
@@ -341,7 +338,7 @@ t_sendfile_offset(Config) ->
Send = fun(Sock) ->
{_Size, <<_:5/binary,Data:3/binary,_/binary>> = AllData} =
sendfile_file_info(Filename),
- {ok,D} = file:open(Filename,[read,binary|FileOpts]),
+ {ok,D} = file:open(Filename,[read|FileOpts]),
{ok,3} = gen_tcp:sendfile(D,Sock,5,3,[]),
{ok, AllData} = file:read(D,100),
file:close(D),