diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/mysqlerl_SUITE.erl | 53 |
1 files changed, 31 insertions, 22 deletions
diff --git a/test/mysqlerl_SUITE.erl b/test/mysqlerl_SUITE.erl index d30d8e9..359711a 100644 --- a/test/mysqlerl_SUITE.erl +++ b/test/mysqlerl_SUITE.erl @@ -12,6 +12,8 @@ -include_lib("common_test/include/ct.hrl"). +-define(COLS, ["username", "password"]). + %%-------------------------------------------------------------------- %% @spec suite() -> Info %% Info = [tuple()] @@ -146,8 +148,8 @@ groups() -> [{group, read_queries}, {group, cursor}]}, {read_queries, [shuffle], [describe_table, sql_query, param_query, select_count]}, - {cursor, [sequence], - [select, first, last, next, prev]}, + {cursor, [shuffle], + [select, first, last, next, prev, next_after_last, prev_at_first]}, {trans, [sequence], [commit, rollback]}]. @@ -184,16 +186,14 @@ describe_table(Config) -> [{"username", {sql_varchar, 20}}, {"password", {sql_varchar, 64}}] = Description. sql_query(Config) -> - {selected, Cols, Rows} = mysqlerl:sql_query(?config(db_ref, Config), - "SELECT username FROM user"), - ["username"] = Cols, - [{"bjc"}, {"siobain"}] = Rows. + {selected, ?COLS, Rows} = mysqlerl:sql_query(?config(db_ref, Config), + "SELECT * FROM user"), + [{"bjc", _}, {"siobain", _}] = Rows. param_query(Config) -> - {selected, Cols, Rows} = mysqlerl:param_query(?config(db_ref, Config), - "SELECT username FROM user WHERE username=?", - [{{sql_varchar, 20}, "bjc"}]), - ["username"] = Cols, + {selected, ?COLS, Rows} = mysqlerl:param_query(?config(db_ref, Config), + "SELECT * FROM user WHERE username=?", + [{{sql_varchar, 20}, "bjc"}]), [{"bjc"}] = Rows. select_count(Config) -> @@ -201,32 +201,41 @@ select_count(Config) -> "SELECT username FROM user"). select(Config) -> - {selected, Cols, Rows} = mysqlerl:select(?config(db_ref, Config), - {absolute, 1}, 1), - ["username", "password"] = Cols, + mysqlerl:sql_query(?config(db_ref, Config), "SELECT * FROM user"), + {selected, ?COLS, Rows} = mysqlerl:select(?config(db_ref, Config), + 1, 1), [{"bjc", _}] = Rows. first(Config) -> - {selected, Cols, Rows} = mysqlerl:first(?config(db_ref, Config)), - ["username", "password"] = Cols, + mysqlerl:sql_query(?config(db_ref, Config), "SELECT * FROM user"), + {selected, ?COLS, Rows} = mysqlerl:first(?config(db_ref, Config)), [{"bjc", _}] = Rows. last(Config) -> - {selected, Cols, Rows} = mysqlerl:last(?config(db_ref, Config)), - ["username", "password"] = Cols, + mysqlerl:sql_query(?config(db_ref, Config), "SELECT * FROM user"), + {selected, ?COLS, Rows} = mysqlerl:last(?config(db_ref, Config)), [{"siobain", _}] = Rows. next(Config) -> - {selected, Cols, Rows} = mysqlerl:next(?config(db_ref, Config)), - ["username", "password"] = Cols, - [username, password] = Cols, + mysqlerl:sql_query(?config(db_ref, Config), "SELECT * FROM user"), + {selected, ?COLS, Rows} = mysqlerl:next(?config(db_ref, Config)), [{"siobain", _}] = Rows. +next_after_last(Config) -> + mysqlerl:sql_query(?config(db_ref, Config), "SELECT * FROM user"), + mysqlerl:last(?config(db_ref, Config)), + {selected, ?COLS, []} = mysqlerl:next(?config(db_ref, Config)). + prev(Config) -> - {selected, Cols, Rows} = mysqlerl:prev(?config(db_ref, Config)), - ["username", "password"] = Cols, + mysqlerl:sql_query(?config(db_ref, Config), "SELECT * FROM user"), + {selected, ?COLS, Rows} = mysqlerl:prev(?config(db_ref, Config)), [{"bjc", _}] = Rows. +prev_at_first(Config) -> + mysqlerl:sql_query(?config(db_ref, Config), "SELECT * FROM user"), + mysqlerl:first(?config(db_ref, Config)), + {selected, ?COLS, []} = mysqlerl:prev(?config(db_ref, Config)). + commit(Config) -> ok = mysqlerl:commit(?config(db_ref, Config), commit), {skip, "Not implemented"}. |