use t::Utils;
use Test::More;
use Mock::Basic;
use Test::Mock::Guard qw/mock_guard/;

my $dbh = t::Utils->setup_dbh;
my $db = Mock::Basic->new({dbh => $dbh});
$db->setup_test_db;

subtest 'reconnect_with_clone_exception' => sub {
    {
        my $guard; $guard = mock_guard('DBI::db' => +{clone => sub { die('exception') } });
        ok !eval {
            $db->reconnect;
            1;
        };
    }
    ok eval {
        $db->reconnect;
        1;
    };
};

done_testing;