diff options
author | Magnus Ahltorp <map@kth.se> | 2016-02-11 02:02:50 +0100 |
---|---|---|
committer | Linus Nordberg <linus@nordu.net> | 2016-04-25 13:14:10 +0200 |
commit | 76a135b93d47b9cb5be5b80b831b9c59c805edb7 (patch) | |
tree | d748067213bbbb46ae87a0c1ace5171d8789f7ce /test | |
parent | 361fc2ce1a0c7274b6f30c3e6e63f68c8752cfc8 (diff) |
Fix warnings. More printouts. Change timeouts.
Diffstat (limited to 'test')
-rwxr-xr-x | test/permdbbench.erl | 12 |
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. |