diff --git a/src/sqlite3.erl b/src/sqlite3.erl index b2a9928..04cfd74 100644 --- a/src/sqlite3.erl +++ b/src/sqlite3.erl @@ -603,7 +603,7 @@ build_table_info([], Acc) -> build_table_info([[ColName, ColType] | Tl], Acc) -> build_table_info(Tl, [{list_to_atom(ColName), sqlite3_lib:col_type_to_atom(ColType)}| Acc]); build_table_info([[ColName, ColType, "PRIMARY", "KEY"] | Tl], Acc) -> - build_table_info(Tl, [{list_to_atom(ColName), primary_key} | Acc]). + build_table_info(Tl, [{list_to_atom(ColName), sqlite3_lib:col_type_to_atom(ColType), primary_key} | Acc]). %%-------------------------------------------------------------------- %% @type sql_value() = number() | 'null' | iodata(). diff --git a/test.erl b/test.erl index a17146a..5eb856a 100755 --- a/test.erl +++ b/test.erl @@ -8,7 +8,7 @@ test() -> 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, integer, 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, 2000}]),