11、数据库测试全攻略

数据库测试全攻略

1. 测试数据库连接的替代方案

在测试中，我们可以创建一个数据库句柄，让代码使用这个句柄而非实际的数据库连接。以存储用户信息的数据库为例， Users 模块可用于创建和获取用户信息，它就像一个 User 对象的工厂。以下是 Users.pm 的代码：

package Users;
use strict;
use warnings;
my $dbh;
sub set_db
{
    my ($self, $connection) = @_;
    $dbh                    = $connection;
}
sub fetch
{
    my ($self, $column, $value) = @_;
    my $sth = $dbh->prepare(
        "SELECT id, name, age FROM users WHERE $column = ?" );
    $sth->execute( $value );
    return unless my ($id, $name, $age) = $sth->fetchrow_array( );
    bless { id => $id, name => $name, age => $age, _db => $self }, 'User';
}
sub create
{
    my ($self, %attributes) = @_;
    my $sth