|
Lines 19-25
Link Here
|
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 3; |
22 |
use Test::More tests => 4; |
| 23 |
|
23 |
|
| 24 |
use C4::Biblio; |
24 |
use C4::Biblio; |
| 25 |
use C4::Items; |
25 |
use C4::Items; |
|
Lines 125-130
subtest 'title_remainder' => sub {
Link Here
|
| 125 |
is($biblio->title_remainder, 'Remainder', 'Got remainder of title'); |
125 |
is($biblio->title_remainder, 'Remainder', 'Got remainder of title'); |
| 126 |
}; |
126 |
}; |
| 127 |
|
127 |
|
|
|
128 |
subtest 'store' => sub { |
| 129 |
plan tests => 2; |
| 130 |
|
| 131 |
my ($bibnum, $title, $bibitemnum) = create_helper_biblio('BK'); |
| 132 |
|
| 133 |
my $biblio = Koha::Biblios->find($bibnum); |
| 134 |
$biblio->title_remainder; |
| 135 |
is(ref($biblio->{_record}), 'MARC::Record', |
| 136 |
'MARC::Record is cached in the object'); |
| 137 |
$biblio->store; |
| 138 |
is($biblio->{_record}, undef, 'store invalidates ->{_record}'); |
| 139 |
}; |
| 140 |
|
| 128 |
$schema->storage->txn_rollback; |
141 |
$schema->storage->txn_rollback; |
| 129 |
|
142 |
|
| 130 |
|
143 |
|
| 131 |
- |
|
|