greg/machi
1
0
Fork 0
Code Issues 11 Pull requests 1 Projects Releases Packages Wiki Activity Actions

Clean up tango_test.erl debugging cruft

Browse source
This commit is contained in:
Scott Lystig Fritchie 2014-08-30 18:05:16 +09:00
parent 1184607bce
commit c02d35821e
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
prototype/tango-prototype/test/tango_test.erl
View file

@ -109,8 +109,8 @@ write_stream_pages(Proj0, Pages, PageSize, InitialBackPs, StreamNum, Junk) ->
true -> ok end,
{Proj2, tango:add_back_pointer(StreamNum, BackPs, LPN)}
end,
{_Px, BackPs} = Res = lists:foldl(F, {Proj0, InitialBackPs}, Pages),
io:format(user, "BackPs ~w\n", [BackPs]),
{_Px, _BackPs} = Res = lists:foldl(F, {Proj0, InitialBackPs}, Pages),
%% io:format(user, "BackPs ~w\n", [_BackPs]),
Res.
scan_backward_test() ->
@ -125,7 +125,6 @@ scan_backward_test_int(PageSize, _Seq, P1) ->
BackPs0 = [{StreamNum, []}],
{P2, BackPs1} = write_stream_pages(P1, Pages, PageSize, BackPs0, StreamNum),
LastLPN = hd(proplists:get_value(StreamNum, BackPs1)),
io:format(user, "\nLastLPN ~p\n", [LastLPN]),
LastLPN=LastLPN,
[begin
@ -152,7 +151,8 @@ scan_backward_test_int(PageSize, _Seq, P1) ->
%% oldest -> newest (i.e. smallest LPN to largest LPN) order
%% together with the actual page data.
ShouldBePages = tango:scan_backward(P2, StreamNum, BackwardStartLPN,
true)
true),
ok
end || BackwardStartLPN <- lists:seq(1, NumPages)],
ok.