|
Lines 62-72
subtest 'after_biblio_action() and after_item_action() hooks tests' => sub {
Link Here
|
| 62 |
my $biblio_id; |
62 |
my $biblio_id; |
| 63 |
|
63 |
|
| 64 |
warning_like { ( $biblio_id, undef ) = C4::Biblio::AddBiblio( MARC::Record->new(), '' ); } |
64 |
warning_like { ( $biblio_id, undef ) = C4::Biblio::AddBiblio( MARC::Record->new(), '' ); } |
| 65 |
qr/after_biblio_action called with action: create, ref: Koha::Biblio/, |
65 |
qr/after_biblio_action called with action: create, ref: Koha::Biblio, biblio found/, |
| 66 |
'AddBiblio calls the hook with action=create'; |
66 |
'AddBiblio calls the hook with action=create'; |
| 67 |
|
67 |
|
| 68 |
warning_like { C4::Biblio::ModBiblio( MARC::Record->new(), $biblio_id, '' ); } |
68 |
warning_like { C4::Biblio::ModBiblio( MARC::Record->new(), $biblio_id, '' ); } |
| 69 |
qr/after_biblio_action called with action: modify, ref: Koha::Biblio/, |
69 |
qr/after_biblio_action called with action: modify, ref: Koha::Biblio, biblio found/, |
| 70 |
'ModBiblio calls the hook with action=modify'; |
70 |
'ModBiblio calls the hook with action=modify'; |
| 71 |
|
71 |
|
| 72 |
my $item; |
72 |
my $item; |