WIP: giant hairball 5
This commit is contained in:
Scott Lystig Fritchie
parent
9a212fb19f
commit
77b4da16c3
6 changed files with 110 additions and 103 deletions
|
|
@ -44,6 +44,7 @@ enum Mpb_GeneralStatusCode {
|
|||
NOT_WRITTEN = 5;
|
||||
WRITTEN = 6;
|
||||
NO_SUCH_FILE = 7;
|
||||
PARTIAL_READ = 8;
|
||||
BAD_JOSS = 255; // Only for testing by the Taipan
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -272,6 +272,7 @@ decode_epoch_id(EpochIDHex) ->
|
|||
net_server_loop(Sock, S) ->
|
||||
case gen_tcp:recv(Sock, 0, ?SERVER_CMD_READ_TIMEOUT) of
|
||||
{ok, Bin} ->
|
||||
io:format(user, "\nSSS RawReq ~p\n", [catch machi_pb:decode_mpb_ll_request(Bin)]),
|
||||
{R, S2} = do_pb_request(catch machi_pb:decode_mpb_ll_request(Bin), S),
|
||||
Resp = machi_pb:encode_mpb_ll_response(R),
|
||||
ok = gen_tcp:send(Sock, Resp),
|
||||
|
|
@ -324,10 +325,12 @@ do_pb_request2(EpochID, CMD, S) ->
|
|||
|
||||
do_pb_request3({low_echo, _BogusEpochID, Msg}, S) ->
|
||||
{Msg, S};
|
||||
do_pb_request3({low_append_chunk, EpochID, PKey, Prefix, Chunk, CSum_tag, CSum,
|
||||
do_pb_request3({low_append_chunk, _EpochID, PKey, Prefix, Chunk, CSum_tag, CSum,
|
||||
ChunkExtra}, S) ->
|
||||
{do_pb_server_append_chunk(PKey, Prefix, Chunk, CSum_tag, CSum,
|
||||
ChunkExtra, S), S};
|
||||
do_pb_request3({low_read_chunk, _EpochID, File, Offset, Size, Opts}, S) ->
|
||||
{do_pb_server_read_chunk(File, Offset, Size, Opts, S), S};
|
||||
do_pb_request3({low_checksum_list, _EpochID, File}, S) ->
|
||||
{do_pb_server_checksum_listing(File, S), S};
|
||||
do_pb_request3({low_list_files, _EpochID}, S) ->
|
||||
|
|
@ -339,13 +342,13 @@ do_pb_server_append_chunk(PKey, Prefix, Chunk, CSum_tag, CSum,
|
|||
ChunkExtra, S) ->
|
||||
case sanitize_file_string(Prefix) of
|
||||
ok ->
|
||||
do_pb_server_append_chunk3(PKey, Prefix, Chunk, CSum_tag, CSum,
|
||||
do_pb_server_append_chunk2(PKey, Prefix, Chunk, CSum_tag, CSum,
|
||||
ChunkExtra, S);
|
||||
_ ->
|
||||
{error, bad_arg}
|
||||
end.
|
||||
|
||||
do_pb_server_append_chunk3(_PKey, Prefix, Chunk, CSum_tag, Client_CSum,
|
||||
do_pb_server_append_chunk2(_PKey, Prefix, Chunk, CSum_tag, Client_CSum,
|
||||
ChunkExtra, #state{flu_name=FluName}=_S) ->
|
||||
%% TODO: Do anything with PKey?
|
||||
try
|
||||
|
|
@ -392,6 +395,44 @@ do_pb_server_append_chunk3(_PKey, Prefix, Chunk, CSum_tag, Client_CSum,
|
|||
{error, bad_arg}
|
||||
end.
|
||||
|
||||
do_pb_server_read_chunk(File, Offset, Size, _Opts, #state{data_dir=DataDir})->
|
||||
%% TODO: Look inside Opts someday.
|
||||
case sanitize_file_string(File) of
|
||||
ok ->
|
||||
{_, Path} = machi_util:make_data_filename(DataDir, File),
|
||||
case file:open(Path, [read, binary, raw]) of
|
||||
{ok, FH} ->
|
||||
try
|
||||
case file:pread(FH, Offset, Size) of
|
||||
{ok, Bytes} when byte_size(Bytes) == Size ->
|
||||
{ok, Bytes};
|
||||
{ok, Bytes} ->
|
||||
machi_util:verb("ok read but wanted ~p got ~p: ~p @ offset ~p\n",
|
||||
[Size,size(Bytes),File,Offset]),
|
||||
io:format(user, "ok read but wanted ~p got ~p: ~p @ offset ~p\n",
|
||||
[Size,size(Bytes),File,Offset]),
|
||||
{error, partial_read};
|
||||
eof ->
|
||||
{error, not_written}; %% TODO perhaps_do_net_server_ec_read(Sock, FH);
|
||||
_Else2 ->
|
||||
machi_util:verb("Else2 ~p ~p ~P\n",
|
||||
[Offset, Size, _Else2, 20]),
|
||||
{error, bad_read}
|
||||
end
|
||||
after
|
||||
file:close(FH)
|
||||
end;
|
||||
{error, enoent} ->
|
||||
{error, not_written};
|
||||
{error, _Else} ->
|
||||
io:format(user, "Unexpected ~p at ~p ~p\n",
|
||||
[_Else, ?MODULE, ?LINE]),
|
||||
{error, bad_arg}
|
||||
end;
|
||||
_ ->
|
||||
{error, bad_arg}
|
||||
end.
|
||||
|
||||
do_pb_server_checksum_listing(File, #state{data_dir=DataDir}=_S) ->
|
||||
case sanitize_file_string(File) of
|
||||
ok ->
|
||||
|
|
@ -432,7 +473,7 @@ net_server_loop_old(Sock, #state{flu_name=FluName, data_dir=DataDir}=S) ->
|
|||
%% machi_util:verb("Got: ~p\n", [Line]),
|
||||
PrefixLenLF = byte_size(Line) - 2 - ?EpochIDSpace - ?CSumSpace
|
||||
- 8 - 8 - 1,
|
||||
FileLenLF = byte_size(Line) - 2 - ?EpochIDSpace - 16 - 8 - 1,
|
||||
%% FileLenLF = byte_size(Line) - 2 - ?EpochIDSpace - 16 - 8 - 1,
|
||||
CSumFileLenLF = byte_size(Line) - 2 - ?EpochIDSpace - 1,
|
||||
WriteFileLenLF = byte_size(Line) - 7 - ?EpochIDSpace - ?CSumSpace
|
||||
- 16 - 8 - 1,
|
||||
|
|
@ -447,13 +488,13 @@ net_server_loop_old(Sock, #state{flu_name=FluName, data_dir=DataDir}=S) ->
|
|||
_EpochID = decode_epoch_id(EpochIDHex),
|
||||
do_net_server_append(FluName, Sock, CSumHex,
|
||||
LenHex, ExtraHex, Prefix);
|
||||
<<"R ",
|
||||
EpochIDHex:(?EpochIDSpace)/binary,
|
||||
OffsetHex:16/binary, LenHex:8/binary,
|
||||
File:FileLenLF/binary, "\n">> ->
|
||||
EpochID = decode_epoch_id(EpochIDHex),
|
||||
do_net_server_read(Sock, OffsetHex, LenHex, File, DataDir,
|
||||
EpochID, S);
|
||||
<<"R ", _/binary>> ->
|
||||
%% EpochIDHex:(?EpochIDSpace)/binary,
|
||||
%% OffsetHex:16/binary, LenHex:8/binary,
|
||||
%% File:FileLenLF/binary, "\n">> ->
|
||||
%% EpochID = decode_epoch_id(EpochIDHex),
|
||||
delme; %%do_net_server_read(Sock, OffsetHex, LenHex, File, DataDir,
|
||||
%% EpochID, S);
|
||||
<<"L ", EpochIDHex:(?EpochIDSpace)/binary, "\n">> ->
|
||||
_EpochID = decode_epoch_id(EpochIDHex),
|
||||
delme; %% do_net_server_listing(Sock, DataDir, S);
|
||||
|
|
@ -613,28 +654,6 @@ do_wedge_status(FluName, Sock) ->
|
|||
end,
|
||||
ok = gen_tcp:send(Sock, Reply).
|
||||
|
||||
do_net_server_read(Sock, OffsetHex, LenHex, FileBin, DataDir,
|
||||
EpochID, S) ->
|
||||
{Wedged_p, CurrentEpochId} = ets:lookup_element(S#state.etstab, epoch, 2),
|
||||
DoItFun = fun(FH, Offset, Len) ->
|
||||
case file:pread(FH, Offset, Len) of
|
||||
{ok, Bytes} when byte_size(Bytes) == Len ->
|
||||
gen_tcp:send(Sock, ["OK\n", Bytes]);
|
||||
{ok, Bytes} ->
|
||||
machi_util:verb("ok read but wanted ~p got ~p: ~p @ offset ~p\n",
|
||||
[Len, size(Bytes), FileBin, Offset]),
|
||||
ok = gen_tcp:send(Sock, "ERROR PARTIAL-READ\n");
|
||||
eof ->
|
||||
perhaps_do_net_server_ec_read(Sock, FH);
|
||||
_Else2 ->
|
||||
machi_util:verb("Else2 ~p ~p ~P\n",
|
||||
[Offset, Len, _Else2, 20]),
|
||||
ok = gen_tcp:send(Sock, "ERROR BAD-READ\n")
|
||||
end
|
||||
end,
|
||||
do_net_server_readwrite_common(Sock, OffsetHex, LenHex, FileBin, DataDir,
|
||||
[read, binary, raw], DoItFun,
|
||||
EpochID, Wedged_p, CurrentEpochId).
|
||||
|
||||
do_net_server_readwrite_common(Sock, OffsetHex, LenHex, FileBin, DataDir,
|
||||
FileOpts, DoItFun,
|
||||
|
|
|
|||
|
|
@ -479,59 +479,12 @@ trunc_hack(Host, TcpPort, EpochID, File) when is_integer(TcpPort) ->
|
|||
%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
read_chunk2(Sock, EpochID, File0, Offset, Size) ->
|
||||
erase(bad_sock),
|
||||
try
|
||||
{EpochNum, EpochCSum} = EpochID,
|
||||
EpochIDHex = machi_util:bin_to_hexstr(
|
||||
<<EpochNum:(4*8)/big, EpochCSum/binary>>),
|
||||
File = machi_util:make_binary(File0),
|
||||
PrefixHex = machi_util:int_to_hexbin(Offset, 64),
|
||||
SizeHex = machi_util:int_to_hexbin(Size, 32),
|
||||
CmdLF = [$R, 32, EpochIDHex, PrefixHex, SizeHex, File, 10],
|
||||
ok = w_send(Sock, CmdLF),
|
||||
ok = w_setopts(Sock, [{packet, raw}]),
|
||||
case w_recv(Sock, 3) of
|
||||
{ok, <<"OK\n">>} ->
|
||||
{ok, _Chunk}=Res = w_recv(Sock, Size),
|
||||
Res;
|
||||
{ok, Else} ->
|
||||
ok = w_setopts(Sock, [{packet, line}]),
|
||||
{ok, Else2} = w_recv(Sock, 0),
|
||||
case Else of
|
||||
<<"ERA">> ->
|
||||
{error, todo_erasure_coded}; %% escript_cc_parse_ec_info(Sock, Line, Else2);
|
||||
<<"ERR">> ->
|
||||
case Else2 of
|
||||
<<"OR NO-SUCH-FILE\n">> ->
|
||||
{error, not_written};
|
||||
<<"OR NOT-ERASURE\n">> ->
|
||||
%% {error, no_such_file};
|
||||
%% Ignore the fact that the file doesn't exist.
|
||||
{error, not_written};
|
||||
<<"OR BAD-ARG\n">> ->
|
||||
{error, bad_arg};
|
||||
<<"OR PARTIAL-READ\n">> ->
|
||||
{error, partial_read};
|
||||
<<"OR WEDGED", _/binary>> ->
|
||||
{error, wedged};
|
||||
_ ->
|
||||
{error, Else2}
|
||||
end;
|
||||
_ ->
|
||||
{error, {whaaa_todo, <<Else/binary, Else2/binary>>}}
|
||||
end
|
||||
end
|
||||
catch
|
||||
throw:Error ->
|
||||
put(bad_sock, Sock),
|
||||
Error;
|
||||
error:{case_clause,_}=Noo ->
|
||||
put(bad_sock, Sock),
|
||||
{error, {badmatch, Noo, erlang:get_stacktrace()}};
|
||||
error:{badmatch,_}=BadMatch ->
|
||||
put(bad_sock, Sock),
|
||||
{error, {badmatch, BadMatch, erlang:get_stacktrace()}}
|
||||
end.
|
||||
ReqID = <<"id">>,
|
||||
File = machi_util:make_binary(File0),
|
||||
Req = machi_pb_translate:to_pb_request(
|
||||
ReqID,
|
||||
{low_read_chunk, EpochID, File, Offset, Size, []}),
|
||||
do_pb_request_common(Sock, ReqID, Req).
|
||||
|
||||
append_chunk2(Sock, EpochID, Prefix0, Chunk0, ChunkExtra) ->
|
||||
ReqID = <<"id">>,
|
||||
|
|
|
|||
|
|
@ -369,6 +369,8 @@ convert_general_status_code('WRITTEN') ->
|
|||
{error, written};
|
||||
convert_general_status_code('NO_SUCH_FILE') ->
|
||||
{error, no_such_file};
|
||||
convert_general_status_code('PARTIAL_READ') ->
|
||||
{error, partial_read};
|
||||
convert_general_status_code('BAD_JOSS') ->
|
||||
throw({error, bad_joss_taipan_fixme}).
|
||||
|
||||
|
|
|
|||
|
|
@ -134,7 +134,8 @@ from_pb_request(#mpb_request{req_id=ReqID,
|
|||
{ReqID, {high_list_files}};
|
||||
from_pb_request(#mpb_request{req_id=ReqID}) ->
|
||||
{ReqID, {high_error, 999966, "Unknown request"}};
|
||||
from_pb_request(_) ->
|
||||
from_pb_request(_Else) ->
|
||||
io:format(user, "\nRRR from_pb_request(~p)\n", [_Else]), timer:sleep(2000),
|
||||
{<<>>, {high_error, 999667, "Unknown PB request"}}.
|
||||
|
||||
from_pb_response(#mpb_ll_response{
|
||||
|
|
@ -338,8 +339,8 @@ to_pb_response(ReqID, {low_append_chunk, _EID, _PKey, _Pfx, _Ch, _CST, _CS, _CE}
|
|||
#mpb_ll_response{req_id=ReqID,
|
||||
append_chunk=#mpb_ll_appendchunkresp{status='OK',
|
||||
chunk_pos=Where}};
|
||||
{error, Status} ->
|
||||
Status = conv_from_status(Status),
|
||||
{error, _}=Error ->
|
||||
Status = conv_from_status(Error),
|
||||
#mpb_ll_response{req_id=ReqID,
|
||||
append_chunk=#mpb_ll_appendchunkresp{status=Status}};
|
||||
_Else ->
|
||||
|
|
@ -357,8 +358,8 @@ to_pb_response(ReqID, {low_read_chunk, _EID, _Fl, _Off, _Sz, _Opts}, Resp)->
|
|||
read_chunk=#mpb_ll_readchunkresp{status='OK',
|
||||
chunk=Chunk,
|
||||
csum=CSum}};
|
||||
{error, Status} ->
|
||||
Status = conv_from_status(Status),
|
||||
{error, _}=Error ->
|
||||
Status = conv_from_status(Error),
|
||||
#mpb_ll_response{req_id=ReqID,
|
||||
read_chunk=#mpb_ll_readchunkresp{status=Status}};
|
||||
_Else ->
|
||||
|
|
@ -417,8 +418,8 @@ to_pb_response(ReqID, {high_append_chunk, _TODO, _Prefix, _Chunk, _TSum, _CE}, R
|
|||
#mpb_response{req_id=ReqID,
|
||||
append_chunk=#mpb_appendchunkresp{status='OK',
|
||||
chunk_pos=Where}};
|
||||
{error, Status} ->
|
||||
Status = conv_from_status(Status),
|
||||
{error, _}=Error ->
|
||||
Status = conv_from_status(Error),
|
||||
#mpb_response{req_id=ReqID,
|
||||
append_chunk=#mpb_appendchunkresp{status=Status}};
|
||||
_Else ->
|
||||
|
|
@ -430,8 +431,8 @@ to_pb_response(ReqID, {high_write_chunk, _File, _Offset, _Chunk, _TaggedCSum}, R
|
|||
%% machi_cr_client returns ok 2-tuple, convert to simple ok.
|
||||
#mpb_response{req_id=ReqID,
|
||||
write_chunk=#mpb_writechunkresp{status='OK'}};
|
||||
{error, Status} ->
|
||||
Status = conv_from_status(Status),
|
||||
{error, _}=Error ->
|
||||
Status = conv_from_status(Error),
|
||||
#mpb_response{req_id=ReqID,
|
||||
write_chunk=#mpb_writechunkresp{status=Status}};
|
||||
_Else ->
|
||||
|
|
@ -443,8 +444,8 @@ to_pb_response(ReqID, {high_read_chunk, _File, _Offset, _Size}, Resp) ->
|
|||
#mpb_response{req_id=ReqID,
|
||||
read_chunk=#mpb_readchunkresp{status='OK',
|
||||
chunk=Chunk}};
|
||||
{error, Status} ->
|
||||
Status = conv_from_status(Status),
|
||||
{error, _}=Error ->
|
||||
Status = conv_from_status(Error),
|
||||
#mpb_response{req_id=ReqID,
|
||||
read_chunk=#mpb_readchunkresp{status=Status}};
|
||||
_Else ->
|
||||
|
|
@ -456,8 +457,8 @@ to_pb_response(ReqID, {high_checksum_list, _File}, Resp) ->
|
|||
#mpb_response{req_id=ReqID,
|
||||
checksum_list=#mpb_checksumlistresp{status='OK',
|
||||
chunk=Chunk}};
|
||||
{error, Status} ->
|
||||
Status = conv_from_status(Status),
|
||||
{error, _}=Error ->
|
||||
Status = conv_from_status(Error),
|
||||
#mpb_response{req_id=ReqID,
|
||||
checksum_list=#mpb_checksumlistresp{status=Status}};
|
||||
_Else ->
|
||||
|
|
@ -471,8 +472,8 @@ to_pb_response(ReqID, {high_list_files}, Resp) ->
|
|||
#mpb_response{req_id=ReqID,
|
||||
list_files=#mpb_listfilesresp{status='OK',
|
||||
files=Files}};
|
||||
{error, Status} ->
|
||||
Status = conv_from_status(Status),
|
||||
{error, _}=Error ->
|
||||
Status = conv_from_status(Error),
|
||||
#mpb_response{req_id=ReqID,
|
||||
list_files=#mpb_listfilesresp{status=Status}};
|
||||
_Else ->
|
||||
|
|
@ -655,6 +656,8 @@ conv_from_status({error, written}) ->
|
|||
'WRITTEN';
|
||||
conv_from_status({error, no_such_file}) ->
|
||||
'NO_SUCH_FILE';
|
||||
conv_from_status({error, partial_read}) ->
|
||||
'PARTIAL_READ';
|
||||
conv_from_status(_OOPS) ->
|
||||
io:format(user, "HEY, ~s:~w got ~w\n", [?MODULE, ?LINE, _OOPS]),
|
||||
'BAD_JOSS'.
|
||||
|
|
|
|||
|
|
@ -72,45 +72,64 @@ flu_smoke_test() ->
|
|||
try
|
||||
Msg = "Hello, world!",
|
||||
Msg = ?FLU_C:echo(Host, TcpPort, Msg),
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{error, no_such_file} = ?FLU_C:checksum_list(Host, TcpPort,
|
||||
?DUMMY_PV1_EPOCH,
|
||||
"does-not-exist"),
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{error, bad_arg} = ?FLU_C:checksum_list(Host, TcpPort,
|
||||
?DUMMY_PV1_EPOCH, BadFile),
|
||||
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{ok, []} = ?FLU_C:list_files(Host, TcpPort, ?DUMMY_PV1_EPOCH),
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{ok, {false, _}} = ?FLU_C:wedge_status(Host, TcpPort),
|
||||
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
Chunk1 = <<"yo!">>,
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{ok, {Off1,Len1,File1}} = ?FLU_C:append_chunk(Host, TcpPort,
|
||||
?DUMMY_PV1_EPOCH,
|
||||
Prefix, Chunk1),
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{ok, Chunk1} = ?FLU_C:read_chunk(Host, TcpPort, ?DUMMY_PV1_EPOCH,
|
||||
File1, Off1, Len1),
|
||||
{ok, [{_,_,_}]} = ?FLU_C:checksum_list(Host, TcpPort,
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
%% TODO: when checksum_list() is refactored, restore this test!
|
||||
%% {ok, [{_,_,_}]} = ?FLU_C:checksum_list(Host, TcpPort,
|
||||
%% ?DUMMY_PV1_EPOCH, File1),
|
||||
{ok, _} = ?FLU_C:checksum_list(Host, TcpPort,
|
||||
?DUMMY_PV1_EPOCH, File1),
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{error, bad_arg} = ?FLU_C:append_chunk(Host, TcpPort,
|
||||
?DUMMY_PV1_EPOCH,
|
||||
BadPrefix, Chunk1),
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{ok, [{_,File1}]} = ?FLU_C:list_files(Host, TcpPort, ?DUMMY_PV1_EPOCH),
|
||||
Len1 = size(Chunk1),
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{error, not_written} = ?FLU_C:read_chunk(Host, TcpPort,
|
||||
?DUMMY_PV1_EPOCH,
|
||||
File1, Off1*983829323, Len1),
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{error, partial_read} = ?FLU_C:read_chunk(Host, TcpPort,
|
||||
?DUMMY_PV1_EPOCH,
|
||||
File1, Off1, Len1*984),
|
||||
File1, Off1, Len1*9999),
|
||||
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{ok, {Off1b,Len1b,File1b}} = ?FLU_C:append_chunk(Host, TcpPort,
|
||||
?DUMMY_PV1_EPOCH,
|
||||
Prefix, Chunk1),
|
||||
Extra = 42,
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{ok, {Off1c,Len1c,File1c}} = ?FLU_C:append_chunk_extra(Host, TcpPort,
|
||||
?DUMMY_PV1_EPOCH,
|
||||
Prefix, Chunk1, Extra),
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{ok, {Off1d,Len1d,File1d}} = ?FLU_C:append_chunk(Host, TcpPort,
|
||||
?DUMMY_PV1_EPOCH,
|
||||
Prefix, Chunk1),
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
if File1b == File1c, File1c == File1d ->
|
||||
true = (Off1c == Off1b + Len1b),
|
||||
true = (Off1d == Off1c + Len1c + Extra);
|
||||
|
|
@ -119,32 +138,42 @@ flu_smoke_test() ->
|
|||
end,
|
||||
|
||||
Chunk1_cs = {<<?CSUM_TAG_NONE:8, 0:(8*20)>>, Chunk1},
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{ok, {Off1e,Len1e,File1e}} = ?FLU_C:append_chunk(Host, TcpPort,
|
||||
?DUMMY_PV1_EPOCH,
|
||||
Prefix, Chunk1_cs),
|
||||
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
Chunk2 = <<"yo yo">>,
|
||||
Len2 = byte_size(Chunk2),
|
||||
Off2 = ?MINIMUM_OFFSET + 77,
|
||||
File2 = "smoke-prefix",
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
ok = ?FLU_C:write_chunk(Host, TcpPort, ?DUMMY_PV1_EPOCH,
|
||||
File2, Off2, Chunk2),
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{error, bad_arg} = ?FLU_C:write_chunk(Host, TcpPort, ?DUMMY_PV1_EPOCH,
|
||||
BadFile, Off2, Chunk2),
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{ok, Chunk2} = ?FLU_C:read_chunk(Host, TcpPort, ?DUMMY_PV1_EPOCH,
|
||||
File2, Off2, Len2),
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{error, not_written} = ?FLU_C:read_chunk(Host, TcpPort,
|
||||
?DUMMY_PV1_EPOCH,
|
||||
"no!!", Off2, Len2),
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{error, bad_arg} = ?FLU_C:read_chunk(Host, TcpPort,
|
||||
?DUMMY_PV1_EPOCH,
|
||||
BadFile, Off2, Len2),
|
||||
|
||||
%% We know that File1 still exists. Pretend that we've done a
|
||||
%% migration and exercise the delete_migration() API.
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
ok = ?FLU_C:delete_migration(Host, TcpPort, ?DUMMY_PV1_EPOCH, File1),
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{error, no_such_file} = ?FLU_C:delete_migration(Host, TcpPort,
|
||||
?DUMMY_PV1_EPOCH, File1),
|
||||
io:format(user, "LINE ~s ~p\n", [?MODULE, ?LINE]),
|
||||
{error, bad_arg} = ?FLU_C:delete_migration(Host, TcpPort,
|
||||
?DUMMY_PV1_EPOCH, BadFile),
|
||||
|
||||
|
|
|
|||
Loading…
Reference in a new issue