Fix warnings. More printouts. Change timeouts.

1 files changed, 11 insertions, 1 deletions

diff --git a/test/permdbbench.erl b/test/permdbbench.erl
index ade9c34..e825146 100755
--- a/test/permdbbench.erl
+++ b/test/permdbbench.erl
@@ -4,6 +4,8 @@
 
 -mode(compile).
 
+-include_lib("kernel/include/file.hrl").
+
 gentestdata(Size) ->
     [{crypto:hash(sha256, <<E:32, 0:32>>), crypto:hash(sha256, <<E:32, 1:32>>)} || E <- lists:seq(0, Size-1)].
 
@@ -56,7 +58,7 @@ testget(_Filename, TestData, Datasize) ->
 
 testadd(_Filename, TestData, Datasize) ->
     addvalue_loop(TestData, none, Datasize),
-    case permdb:commit(testdb) of
+    case permdb:commit(testdb, 600000) of
         <<0>> ->
             ok;
         Other ->
@@ -89,6 +91,7 @@ main([]) ->
     Size = 20000,
     Datasize = 1000,
     ChunkSize = 1000,
+    io:format("Size ~p entries, chunks of ~p entries, entry size ~p bytes~n", [Size, ChunkSize, Datasize]),
     Filename = "testpermdb",
     file:delete(Filename),
     file:delete(Filename ++ ".idx"),
@@ -108,6 +111,10 @@ main([]) ->
     runbench(fun () -> testget(Filename, TestData, Datasize) end, Size, "Get"),
     stop(),
 
+    {ok, FileInfo} = file:read_file_info(Filename),
+    {ok, FileInfoIdx} = file:read_file_info(Filename ++ ".idx"),
+    io:format("data file size ~p, index file size ~p~n", [FileInfo#file_info.size, FileInfoIdx#file_info.size]),
+
     file:delete(Filename ++ ".idx"),
 
     testinit(Filename),
@@ -115,5 +122,8 @@ main([]) ->
     runbench(fun () -> testget(Filename, TestData, Datasize) end, Size, "Get"),
     stop(),
 
+    {ok, FileInfoIdx2} = file:read_file_info(Filename ++ ".idx"),
+    io:format("rebuilt index file size ~p~n", [FileInfoIdx2#file_info.size]),
+
     ok.