Group
Extension

Matches 5

Teng ( A/AN/ANATOFUZ/Teng-0.33.tar.gz, ANATOFUZ, 2022; MetaCPAN )
Teng/t/001_basic/030_reconnect_ping.t ( view source; MetaCPAN )
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',
    });
  
Teng ( A/AN/ANATOFUZ/Teng-0.33.tar.gz, ANATOFUZ, 2022; MetaCPAN )
Teng/t/998_deprecated/001_reconnect_ping.t ( view source; MetaCPAN )
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',
    });
  
Teng ( A/AN/ANATOFUZ/Teng-0.33.tar.gz, ANATOFUZ, 2022; MetaCPAN )
Teng/t/999_regression/reconnect.t ( view source; MetaCPAN )
  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
Teng ( A/AN/ANATOFUZ/Teng-0.33.tar.gz, ANATOFUZ, 2022; MetaCPAN )
Teng/t/001_basic/022_transaction.t ( view source; MetaCPAN )
_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_
Teng ( A/AN/ANATOFUZ/Teng-0.33.tar.gz, ANATOFUZ, 2022; MetaCPAN )
Teng/t/999_regression/reconnect_from_dbh.t ( view source; MetaCPAN )
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-

Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.