|
Lines 1672-1678
subtest 'Test Koha::Patrons::merge' => sub {
Link Here
|
| 1672 |
}; |
1672 |
}; |
| 1673 |
|
1673 |
|
| 1674 |
subtest '->store' => sub { |
1674 |
subtest '->store' => sub { |
| 1675 |
plan tests => 6; |
1675 |
plan tests => 7; |
| 1676 |
my $schema = Koha::Database->new->schema; |
1676 |
my $schema = Koha::Database->new->schema; |
| 1677 |
$schema->storage->txn_begin; |
1677 |
$schema->storage->txn_begin; |
| 1678 |
|
1678 |
|
|
Lines 1707-1712
subtest '->store' => sub {
Link Here
|
| 1707 |
is( $patron_1->surname, $surname, |
1707 |
is( $patron_1->surname, $surname, |
| 1708 |
'Surname remains unchanged on store.'); |
1708 |
'Surname remains unchanged on store.'); |
| 1709 |
|
1709 |
|
|
|
1710 |
# Test relationship |
| 1711 |
$patron_1->relationship("")->store; |
| 1712 |
is( $patron_1->relationship, undef, ); |
| 1713 |
|
| 1710 |
$schema->storage->dbh->{PrintError} = $print_error; |
1714 |
$schema->storage->dbh->{PrintError} = $print_error; |
| 1711 |
$schema->storage->txn_rollback; |
1715 |
$schema->storage->txn_rollback; |
| 1712 |
|
1716 |
|
| 1713 |
- |
|
|