From c02d35821ecd70728cf804eec2ce5b36e812c64e Mon Sep 17 00:00:00 2001
From: Scott Lystig Fritchie <slfritchie@snookles.com>
Date: Sat, 30 Aug 2014 18:05:16 +0900
Subject: [PATCH] Clean up tango_test.erl debugging cruft

---
 prototype/tango-prototype/test/tango_test.erl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/prototype/tango-prototype/test/tango_test.erl b/prototype/tango-prototype/test/tango_test.erl
index be7e7a9..425623e 100644
--- a/prototype/tango-prototype/test/tango_test.erl
+++ b/prototype/tango-prototype/test/tango_test.erl
@@ -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.