@@ -9,10 +9,11 @@ $ENV{DBIX_CUSTOM_SKIP_MESSAGE} = 'mysql private test';

 use DBIx::Custom;

 {

     package DBIx::Custom;

+    

     no warnings 'redefine';

-    sub dsn { "dbi:mysql:database=dbix_custom" }

-    sub user { 'dbix_custom' }

-    sub password { 'dbix_custom' }

+    has dsn => "dbi:mysql:database=dbix_custom";

+    has user => 'dbix_custom';

+    has password => 'dbix_custom';

     sub create_table1 { 'create table table1 (key1 varchar(255), key2 varchar(255));' }

     sub create_table1_2 {'create table table1 (key1 varchar(255), key2 varchar(255), '

@@ -10,9 +10,9 @@ use DBIx::Custom;

 {

     package DBIx::Custom;

     no warnings 'redefine';

-    sub dsn { "dbi:Pg:dbname=dbix_custom" }

-    sub user { 'dbix_custom' }

-    sub password { 'dbix_custom' }

+    has dsn => "dbi:Pg:dbname=dbix_custom";

+    has user  => 'dbix_custom';

+    has password => 'dbix_custom';

     sub create_table1 { 'create table table1 (key1 varchar(255), key2 varchar(255));' }

     sub create_table1_2 {'create table table1 (key1 varchar(255), key2 varchar(255), '

@@ -8,7 +8,7 @@ use DBIx::Custom;

 {

     package DBIx::Custom;

     no warnings 'redefine';

-    sub dsn { 'dbi:SQLite:dbname=:memory:' }

+    has dsn => 'dbi:SQLite:dbname=:memory:';

     sub quote { '""' }

     sub create_table1 { 'create table table1 (key1, key2);' }

     sub create_table1_2 {'create table table1 (key1, key2, key3, key4, key5);' }

@@ -8,7 +8,7 @@ use DBIx::Custom;

 {

     package DBIx::Custom;

     no warnings 'redefine';

-    sub dsn { 'dbi:SQLite:dbname=:memory:' }

+    has dsn => 'dbi:SQLite:dbname=:memory:';

     sub create_table1 { 'create table table1 (key1, key2);' }

     sub create_table1_2 {'create table table1 (key1, key2, key3, key4, key5);' }

 }

@@ -1,7 +1,7 @@

 use Test::More;

 use strict;

 use warnings;

-use DBIx::Custom;

+use DBIx::Custom; 

 my $dbi;

@@ -238,6 +238,12 @@ $result = $dbi->execute(

 $rows = $result->all;

 is_deeply($rows, [{key1 => 'a:b c:d', key2 => 2}]);

+test 'Error case';

+eval {DBIx::Custom->connect(dsn => 'dbi:SQLit')};

+ok($@, "connect error");

+

+eval{$dbi->execute("{p }", {}, query => 1)};

+ok($@, "create_query invalid SQL template");

 1;

@@ -57,13 +57,6 @@ my $join;

 # Prepare table

 $dbi = DBIx::Custom->connect(%memory);

-test 'Error case';

-eval {DBIx::Custom->connect(dsn => 'dbi:SQLit')};

-ok($@, "connect error");

-

-$dbi = DBIx::Custom->connect(%memory);

-eval{$dbi->execute("{p }", {}, query => 1)};

-ok($@, "create_query invalid SQL template");

 test 'insert';

 $dbi = DBIx::Custom->connect(%memory);