forks/esqlite
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

useful

Browse Source
This commit is contained in:
Maas-Maarten Zeeman
2011-10-27 23:54:26 +02:00
parent 074d63af2f
commit b764facb7c
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
test/esqlite_test.erl
View File

@@ -40,11 +40,12 @@ prepare_test() ->
'$done' = esqlite:step(Statement), '$done' = esqlite:step(Statement),
ok = esqlite:exec(Db, ["insert into test_table values(", "\"hello4\"", ",", "13" ");"]), ok = esqlite:exec(Db, ["insert into test_table values(", "\"hello4\"", ",", "13" ");"]),
{ok, St2} = esqlite:prepare(Db, "select * from test_table order by two"), {ok, St2} = esqlite:prepare(Db, "select * from test_table order by two"),
[{"one", 2}, {"hello4", 13}] = exec(St2), [{"one", 2}, {"hello4", 13}] = exec(St2),
esqlite:exec(Db, "commit;"),
esqlite:close(Db),
ok. ok.
exec(Statement) -> exec(Statement) ->
@@ -59,7 +60,7 @@ exec(Statement, Acc, Tries) ->
'$busy' -> '$busy' ->
timer:sleep(100), timer:sleep(100),
exec(Statement, Acc, Tries + 1); exec(Statement, Acc, Tries + 1);
V -> V when is_tuple(V) ->
exec(Statement, [V | Acc], 0) exec(Statement, [V | Acc], 0)
end. end.