|
Lines 58-64
subtest '->baskets() tests' => sub {
Link Here
|
| 58 |
|
58 |
|
| 59 |
subtest '->subscriptions() tests' => sub { |
59 |
subtest '->subscriptions() tests' => sub { |
| 60 |
|
60 |
|
| 61 |
plan tests => 5; |
61 |
plan tests => 6; |
| 62 |
|
62 |
|
| 63 |
$schema->storage->txn_begin(); |
63 |
$schema->storage->txn_begin(); |
| 64 |
|
64 |
|
|
Lines 91-97
subtest '->subscriptions() tests' => sub {
Link Here
|
| 91 |
); |
91 |
); |
| 92 |
my $bib = MARC::Record->new(); |
92 |
my $bib = MARC::Record->new(); |
| 93 |
$bib->append_fields( |
93 |
$bib->append_fields( |
| 94 |
MARC::Field->new( '245', ' ', ' ', a => 'Journal of ethnology' ), |
94 |
MARC::Field->new( '245', ' ', ' ', a => 'Journal of ethnology', b => 'A subtitle' ), |
| 95 |
MARC::Field->new( '500', ' ', ' ', a => 'bib notes' ), |
95 |
MARC::Field->new( '500', ' ', ' ', a => 'bib notes' ), |
| 96 |
); |
96 |
); |
| 97 |
my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $bib, '' ); |
97 |
my ( $biblionumber, $biblioitemnumber ) = AddBiblio( $bib, '' ); |
|
Lines 114-119
subtest '->subscriptions() tests' => sub {
Link Here
|
| 114 |
'subscription notes', |
114 |
'subscription notes', |
| 115 |
'subscription search results include public notes (bug 10689)' |
115 |
'subscription search results include public notes (bug 10689)' |
| 116 |
); |
116 |
); |
|
|
117 |
is( $subscriptions[0]->{subtitle}, |
| 118 |
'A subtitle', |
| 119 |
'subscription search results include subtitle (bug 30204)' |
| 120 |
); |
| 117 |
|
121 |
|
| 118 |
my $id_subscription2 = NewSubscription( |
122 |
my $id_subscription2 = NewSubscription( |
| 119 |
undef, 'BRANCH2', $vendor->id, undef, |
123 |
undef, 'BRANCH2', $vendor->id, undef, |
| 120 |
- |
|
|