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

Added check that delete works to test.erl

Browse Source
This commit is contained in:
Alexey Romanov
2010-10-12 16:47:36 +04:00
parent 972df93fbb
commit 6fb796313b
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
test.erl
View File

@@ -19,9 +19,9 @@ test() ->
[{columns, Columns}, {rows, Rows2}] = sqlite3:read(ct, user, {name, "abby"}), [{columns, Columns}, {rows, Rows2}] = sqlite3:read(ct, user, {name, "abby"}),
Rows2 = [{1, <<"abby">>, 20, 2000}], Rows2 = [{1, <<"abby">>, 20, 2000}],
[{columns, Columns}, {rows, Rows1}] = sqlite3:read(ct, user, {wage, 2000}), [{columns, Columns}, {rows, Rows1}] = sqlite3:read(ct, user, {wage, 2000}),
sqlite3:delete(ct, user, {name, "abby"}), sqlite3:delete(ct, user, {name, "marge"}),
[{columns, Columns}, {rows, Rows2}] = sqlite3:sql_exec(ct, "select * from user;"),
sqlite3:drop_table(ct, user), sqlite3:drop_table(ct, user),
%sqlite3:delete_db(ct)
sqlite3:close(ct), sqlite3:close(ct),
io:format("Tests passed~n"). io:format("Tests passed~n").