@@ -245,33 +245,6 @@ require MyDBI1;

   }

 }

-test 'DBIx::Custom::Pool';

-use DBIx::Custom::Pool;

-$dbi = DBIx::Custom->connect;

-eval { $dbi->execute("drop table $table1") };

-$dbi->execute($create_table1);

-$pool = DBIx::Custom::Pool->new;

-$pool->count(3);

-$pool->prepare(sub {

-  DBIx::Custom->connect;

-});

-$dbi1 = $pool->get;

-ok($dbi1);

-$dbi2 = $pool->get;

-ok($dbi1);

-$dbi3 = $pool->get;

-ok($dbi1);

-eval {$pool->get};

-like($@, qr/empty/);

-$pool->back($dbi1);

-undef $dbi1;

-$dbi1 = $pool->get;

-ok($dbi1);

-$pool->back($dbi1);

-eval { $pool->back($dbi1) };

-like($@, qr/already/);

-

-

 test 'execute reuse option';

 eval { $dbi->execute("drop table $table1") };

 $dbi->execute($create_table1);

@@ -32,12 +32,16 @@ my $rows;

 my $result;

 my $result2;

 my $model;

+my $dbi1;

 my $dbi2;

+my $dbi3;

+my @dbis;

+my @results;

 test 'connect';

 eval {

   $dbi = DBIx::Custom->connect(

-    dsn => "dbi:mysql:database=$database;host=localhost;port=10000",

+    dsn => "dbi:mysql:database=$database;",

     user => $user,

     password => $password

   );

@@ -50,8 +54,7 @@ $dbi->insert({key1 => 1, key2 => 2}, table => 'table1');

 test 'async test';

-use AnyEvent;

-use DBI;

+require AnyEvent;

 my $cond = AnyEvent->condvar;

 $result = $dbi->execute('SELECT SLEEP(1), 3', undef,

   prepare_attr => {async => 1}, statement => 'select');