CPAN::Groonga

row = $db->insert('mock_basic',{
            name => 'perl',
        });
    };
    ok(!$@);

    isnt($old_dbh, $db->dbh);
    is_deeply($db->single('mock_basic', { id => $row->id })->get_columns, $r

' => +{ping => sub { undef $guard; return 0 } });
        $db->txn_begin;
    };
    ok(!$@);
    isnt($old_dbh, $db->dbh);

    my $row = $db->insert('mock_basic',{
        name => 'python',
    });

ng => sub { undef $guard; return 0 } });
        $scope = $db->txn_scope;
    };
    ok(!$@);
    isnt($old_dbh, $db->dbh);

    my $row = $db->insert('mock_basic',{
        name => 'ruby',
    });
  

row = $db->insert('mock_basic',{
            name => 'perl',
        });
    };
    ok(!$@);

    isnt($old_dbh, $db->dbh);
    is_deeply($db->single('mock_basic', { id => $row->id })->get_columns, $r

' => +{ping => sub { undef $guard; return 0 } });
        $db->txn_begin;
    };
    ok(!$@);
    isnt($old_dbh, $db->dbh);

    my $row = $db->insert('mock_basic',{
        name => 'python',
    });

ng => sub { undef $guard; return 0 } });
        $scope = $db->txn_scope;
    };
    ok(!$@);
    isnt($old_dbh, $db->dbh);

    my $row = $db->insert('mock_basic',{
        name => 'ruby',
    });
  

  ok(!$@);
    ok($db->dbh);
    isnt($dbh, $db->dbh);

    # twice reconnect
    $dbh = $db->dbh;
    eval { $db->reconnect; };
    ok(!$@);
    ok($db->dbh);
    isnt($dbh, $db->dbh);
};

subtest 'i

econnect success' => sub {
    my $dbh = $db->dbh;
    eval { $db->reconnect; };
    ok(!$@);
    isnt($dbh, $db->dbh);
};

subtest 'in_transaction reconnect' => sub {
    my $dbh = $db->dbh;
    $db-

_db = Mock::Basic->new({dbh => $child_dbh});
        my $txn = $child_db->txn_scope;

            isnt $dbh,       $child_db->dbh;
            is   $child_dbh, $child_db->dbh;
            is   $child_