diff --git a/rebar.config b/rebar.config index e69de29..8248081 100644 --- a/rebar.config +++ b/rebar.config @@ -0,0 +1,3 @@ +% -*- mode: erlang -*- +{cover_enabled, true}. +{eunit_opts, [verbose, {report,{eunit_surefire,[{dir,"."}]}}]}. diff --git a/src/sqlite3_test.erl b/src/sqlite3_test.erl index 1326617..9fa909f 100644 --- a/src/sqlite3_test.erl +++ b/src/sqlite3_test.erl @@ -1,39 +1,26 @@ %%%------------------------------------------------------------------- %%% File : sqlite3_test.erl %%% Author : Tee Teoh -%%% Description : +%%% Description : %%% %%% Created : 10 Jun 2008 by Tee Teoh %%%------------------------------------------------------------------- -module(sqlite3_test). -%% API --export([create_table_test/0]). +-include_lib("eunit/include/eunit.hrl"). --record(user, {name, age, wage}). - -%%==================================================================== -%% API -%%==================================================================== -%%-------------------------------------------------------------------- -%% Function: -%% Description: -%%-------------------------------------------------------------------- create_table_test() -> file:delete("ct.db"), sqlite3:open(ct), - sqlite3:create_table(ct, user, [{name, text}, {age, integer}, {wage, integer}]), + sqlite3:create_table(ct, user, [{name, text}, {age, integer}, + {wage, integer}]), [user] = sqlite3:list_tables(ct), - [{name, primary_key}, {age, integer}, {wage, integer}] = sqlite3:table_info(ct, user), + [{name, primary_key}, {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). -% create, read, update, delete -%%==================================================================== -%% Internal functions -%%==================================================================== diff --git a/test.erl b/test.erl deleted file mode 100755 index fa1d3a0..0000000 --- a/test.erl +++ /dev/null @@ -1,30 +0,0 @@ -#!/usr/bin/env escript -%%! -smp enable -pa ebin -sname testsqlite3 - --record(user, {name, age, wage}). - -test() -> - file:delete("ct.db"), - sqlite3:open(ct), - sqlite3:create_table(ct, user, [{id, integer}, {name, text}, {age, integer}, {wage, integer}]), - [user] = sqlite3:list_tables(ct), - [{id, primary_key}, {name, text}, {age, integer}, {wage, integer}] = sqlite3:table_info(ct, user), - {id, Id1} = sqlite3:write(ct, user, [{name, "abby"}, {age, 20}, {wage, 2000}]), - Id1 = 1, - {id, Id2} = sqlite3:write(ct, user, [{name, "marge"}, {age, 30}, {wage, 3000}]), - Id2 = 2, - [{columns, ["id", "name", "age", "wage"]}, {rows, [{1, <<"abby">>, 20, 2000}, {2, <<"marge">>, 30, 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), - io:format("Tests passed~n"). - -main(_) -> - try test() of - _ -> ok - catch - Class:Error -> - io:format("~p:~p:~p~n", [Class, Error, erlang:get_stacktrace()]) - end.