|
Lines 1661-1667
subtest 'Test Koha::Patrons::merge' => sub {
Link Here
|
| 1661 |
}; |
1661 |
}; |
| 1662 |
|
1662 |
|
| 1663 |
subtest '->store' => sub { |
1663 |
subtest '->store' => sub { |
| 1664 |
plan tests => 7; |
1664 |
plan tests => 6; |
| 1665 |
my $schema = Koha::Database->new->schema; |
1665 |
my $schema = Koha::Database->new->schema; |
| 1666 |
$schema->storage->txn_begin; |
1666 |
$schema->storage->txn_begin; |
| 1667 |
|
1667 |
|
|
Lines 1700-1709
subtest '->store' => sub {
Link Here
|
| 1700 |
is( $patron_1->surname, $surname, |
1700 |
is( $patron_1->surname, $surname, |
| 1701 |
'Surname remains unchanged on store.'); |
1701 |
'Surname remains unchanged on store.'); |
| 1702 |
|
1702 |
|
| 1703 |
# Test relationship |
|
|
| 1704 |
$patron_1->relationship("")->store; |
| 1705 |
is( $patron_1->relationship, undef, ); |
| 1706 |
|
| 1707 |
$schema->storage->dbh->{PrintError} = $print_error; |
1703 |
$schema->storage->dbh->{PrintError} = $print_error; |
| 1708 |
$schema->storage->txn_rollback; |
1704 |
$schema->storage->txn_rollback; |
| 1709 |
|
1705 |
|
| 1710 |
- |
|
|