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