From 07369746fd460019822624c1a0651beaf19bf0ae Mon Sep 17 00:00:00 2001 From: Brian Cully Date: Thu, 9 Feb 2012 23:00:53 -0500 Subject: Add tests for invalid connection/disconnection --- test/mysqlerl_connect_SUITE.erl | 22 ++++++++++++++++++++-- 1 file changed, 20 insertions(+), 2 deletions(-) diff --git a/test/mysqlerl_connect_SUITE.erl b/test/mysqlerl_connect_SUITE.erl index 5f18648..03baa13 100644 --- a/test/mysqlerl_connect_SUITE.erl +++ b/test/mysqlerl_connect_SUITE.erl @@ -109,8 +109,8 @@ groups() -> %% @end %%-------------------------------------------------------------------- all() -> - [valid_connect, valid_disconnect, no_port_driver, - port_dies, owner_dies, controller_dies]. + [valid_connect, valid_disconnect, invalid_connect, invalid_disconnect, + no_port_driver, port_dies, owner_dies, controller_dies]. %%-------------------------------------------------------------------- %% @spec TestCase(Config0) -> @@ -138,6 +138,24 @@ valid_disconnect(doc) -> valid_disconnect(Config) -> ok = mysqlerl:disconnect(?config(db_ref, Config)). +invalid_connect(doc) -> + ["Test that error returns when connecting to a non-existant database."]; +invalid_connect(Config) -> + DBInfo = ct:get_config(db_info), + {error, _} = mysqlerl:connect(?config(host, DBInfo), + ?config(port, DBInfo), + ?config(name, DBInfo) ++ "nonesuchdb", + ?config(username, DBInfo), + ?config(password, DBInfo), + ?config(options, DBInfo)). + +invalid_disconnect(doc) -> + ["Test that disconnecting a disconnected returns success."]; +invalid_disconnect(Config) -> + {db_ref, DBRef} = hd(valid_connect(Config)), + ok = valid_disconnect(Config), + ok = mysqlerl:disconnect(DBRef). + no_port_driver(doc) -> ["Test that connection fails properly when the port driver is missing."]; no_port_driver(_Config) -> -- cgit v1.2.3