tests are starting

This commit is contained in:
Max Lapshin
2009-10-13 00:38:27 +04:00
parent eb221011fc
commit 690974d808
2 changed files with 19 additions and 5 deletions

View File

@@ -1,5 +1,19 @@
#!/usr/bin/env escript
%%! -smp enable -pa ebin -name testsqlite3
main(_) ->
ct:run("src").
-record(user, {name, age, wage}).
main(_) ->
sqlite3:open(ct),
sqlite3:create_table(ct, user, [{name, text}, {age, integer}, {wage, integer}]),
[user] = sqlite3:list_tables(ct),
[{name, text}, {age, integer}, {wage, integer}] = sqlite3:table_info(ct, user),
sqlite3:write(ct, user, [{name, "abby"}, {age, 20}, {wage, 2000}]),
sqlite3:write(ct, user, [{name, "marge"}, {age, 30}, {wage, 3000}]),
sqlite3:sql_exec(ct, "select * from user;"),
sqlite3:read(ct, user, {name, "abby"}),
sqlite3:delete(ct, user, {name, "abby"}),
sqlite3:drop_table(ct, user),
%sqlite3:delete_db(ct)
sqlite3:close(ct).