|
Lines 1680-1686
subtest 'BorrowersLog tests' => sub {
Link Here
|
| 1680 |
$schema->storage->txn_rollback; |
1680 |
$schema->storage->txn_rollback; |
| 1681 |
|
1681 |
|
| 1682 |
subtest 'Test Koha::Patrons::merge' => sub { |
1682 |
subtest 'Test Koha::Patrons::merge' => sub { |
| 1683 |
plan tests => 110; |
1683 |
plan tests => 111; |
| 1684 |
|
1684 |
|
| 1685 |
my $schema = Koha::Database->new()->schema(); |
1685 |
my $schema = Koha::Database->new()->schema(); |
| 1686 |
|
1686 |
|
|
Lines 1692-1697
subtest 'Test Koha::Patrons::merge' => sub {
Link Here
|
| 1692 |
my $loser_1 = $builder->build({ source => 'Borrower' })->{borrowernumber}; |
1692 |
my $loser_1 = $builder->build({ source => 'Borrower' })->{borrowernumber}; |
| 1693 |
my $loser_2 = $builder->build({ source => 'Borrower' })->{borrowernumber}; |
1693 |
my $loser_2 = $builder->build({ source => 'Borrower' })->{borrowernumber}; |
| 1694 |
|
1694 |
|
|
|
1695 |
my $anonymous_patron_orig = C4::Context->preference('AnonymousPatron'); |
| 1696 |
my $anonymous_patron = $builder->build({ source => 'Borrower' })->{borrowernumber}; |
| 1697 |
t::lib::Mocks::mock_preference( 'AnonymousPatron', $anonymous_patron ); |
| 1698 |
|
| 1695 |
while (my ($r, $field) = each(%$resultsets)) { |
1699 |
while (my ($r, $field) = each(%$resultsets)) { |
| 1696 |
$builder->build({ source => $r, value => { $field => $keeper->id } }); |
1700 |
$builder->build({ source => $r, value => { $field => $keeper->id } }); |
| 1697 |
$builder->build({ source => $r, value => { $field => $loser_1 } }); |
1701 |
$builder->build({ source => $r, value => { $field => $loser_1 } }); |
|
Lines 1720-1726
subtest 'Test Koha::Patrons::merge' => sub {
Link Here
|
| 1720 |
|
1724 |
|
| 1721 |
is( Koha::Patrons->find($loser_1), undef, 'Loser 1 has been deleted' ); |
1725 |
is( Koha::Patrons->find($loser_1), undef, 'Loser 1 has been deleted' ); |
| 1722 |
is( Koha::Patrons->find($loser_2), undef, 'Loser 2 has been deleted' ); |
1726 |
is( Koha::Patrons->find($loser_2), undef, 'Loser 2 has been deleted' ); |
|
|
1727 |
is( ref Koha::Patrons->find($anonymous_patron), 'Koha::Patron', 'Anonymous Patron was not deleted' ); |
| 1723 |
|
1728 |
|
|
|
1729 |
t::lib::Mocks::mock_preference( 'AnonymousPatron', '' ); |
| 1724 |
$schema->storage->txn_rollback; |
1730 |
$schema->storage->txn_rollback; |
| 1725 |
}; |
1731 |
}; |
| 1726 |
|
1732 |
|
| 1727 |
- |
|
|