forks/erlang-sqlite3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added a failing test for concurrent use

Browse Source
This commit is contained in:
Alexey Romanov
2010-11-18 17:52:22 +03:00
parent 93f4f8eb18
commit 2c54ea4930
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
test/sqlite3_test.erl
View File

@@ -45,7 +45,7 @@ all_test_() ->
?FuncTest(large_number)]}. ?FuncTest(large_number)]}.
open_db() -> open_db() ->
sqlite3:open(ct). sqlite3:open(ct, [in_memory]).
close_db({ok, _Pid}) -> close_db({ok, _Pid}) ->
sqlite3:close(ct); sqlite3:close(ct);
@@ -145,6 +145,16 @@ select_many_records() ->
1024, 1024,
length(rows(sqlite3:sql_exec(ct, "select * from many_records;")))). length(rows(sqlite3:sql_exec(ct, "select * from many_records;")))).
%% concurrent_inserts_test() ->
%% sqlite3:open(concurrent, [in_memory]), %% doing this test not in memory is much slower!
%% drop_table_if_exists(concurrent, t),
%% sqlite3:create_table(concurrent, t, [{id, integer}]),
%% [spawn(fun () -> sqlite3:write(concurrent, t, [{id, X}]) end) || X <- lists:seq(1, 1024)],
%% ?assertEqual(
%% 1024,
%% length(rows(sqlite3:read_all(concurrent, t)))),
%% sqlite3:close(concurrent). %% doesn't pass at the moment!
nonexistent_table_info() -> nonexistent_table_info() ->
?assertEqual(table_does_not_exist, sqlite3:table_info(ct, nonexistent)). ?assertEqual(table_does_not_exist, sqlite3:table_info(ct, nonexistent)).