From 76a135b93d47b9cb5be5b80b831b9c59c805edb7 Mon Sep 17 00:00:00 2001
From: Magnus Ahltorp <map@kth.se>
Date: Thu, 11 Feb 2016 02:02:50 +0100
Subject: Fix warnings. More printouts. Change timeouts.

---
 test/permdbbench.erl | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'test')

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.
 
-- 
cgit v1.1