commit 672924a2d307ad857320b44d99769f6d301a6b38
author Paul J. Davis <paul.joseph.davis@gmail.com> Tue Oct 29 16:14:04 2019 -0500
committer Paul J. Davis <paul.joseph.davis@gmail.com> Tue Oct 29 16:21:15 2019 -0500
tree 1c94247157f7e98d918cc8d84b711c1a252f3fe0
parent 2657e61367dd759e65f82bcbeb334fb292d28a81

Add a debug utility function

src/erlfdb_util.erl

diff --git a/src/erlfdb_util.erl b/src/erlfdb_util.erl
index a6846f2..e038f46 100644
--- a/src/erlfdb_util.erl
+++ b/src/erlfdb_util.erl
@@ -22,7 +22,10 @@
     get/2,
     get/3,
 
-    repr/1
+    repr/1,
+
+    debug_cluster/1,
+    debug_cluster/3
 ]).
 
 
@@ -78,6 +81,19 @@
     end, binary_to_list(Bin)) ++ [$'].
 
 
+debug_cluster(Tx) ->
+    debug_cluster(Tx, <<>>, <<16#FE, 16#FF, 16#FF>>).
+
+
+debug_cluster(Tx, Start, End) ->
+    lists:foreach(fun({Key, Val}) ->
+        io:format(standard_error, "~s => ~s~n", [
+                string:pad(erlfdb_util:repr(Key), 60),
+                repr(Val)
+            ])
+    end, erlfdb:get_range(Tx, Start, End)).
+
+
 init_test_cluster_int(Options) ->
     {ok, CWD} = file:get_cwd(),
     DefaultIpAddr = {127, 0, 0, 1},