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 |
- |
|
|