|
Lines 1680-1686
subtest 'Test Koha::Patrons::merge' => sub {
Link Here
|
| 1680 |
}; |
1680 |
}; |
| 1681 |
|
1681 |
|
| 1682 |
subtest '->store' => sub { |
1682 |
subtest '->store' => sub { |
| 1683 |
plan tests => 6; |
1683 |
plan tests => 7; |
| 1684 |
my $schema = Koha::Database->new->schema; |
1684 |
my $schema = Koha::Database->new->schema; |
| 1685 |
$schema->storage->txn_begin; |
1685 |
$schema->storage->txn_begin; |
| 1686 |
|
1686 |
|
|
Lines 1715-1720
subtest '->store' => sub {
Link Here
|
| 1715 |
is( $patron_1->surname, $surname, |
1715 |
is( $patron_1->surname, $surname, |
| 1716 |
'Surname remains unchanged on store.'); |
1716 |
'Surname remains unchanged on store.'); |
| 1717 |
|
1717 |
|
|
|
1718 |
# Test relationship |
| 1719 |
$patron_1->relationship("")->store; |
| 1720 |
is( $patron_1->relationship, undef, ); |
| 1721 |
|
| 1718 |
$schema->storage->dbh->{PrintError} = $print_error; |
1722 |
$schema->storage->dbh->{PrintError} = $print_error; |
| 1719 |
$schema->storage->txn_rollback; |
1723 |
$schema->storage->txn_rollback; |
| 1720 |
|
1724 |
|
| 1721 |
- |
|
|