|
Lines 55-62
subtest 'AddBiblio' => sub {
Link Here
|
| 55 |
$record->append_fields($lccn_field); |
55 |
$record->append_fields($lccn_field); |
| 56 |
|
56 |
|
| 57 |
my $nb_biblios = Koha::Biblios->count; |
57 |
my $nb_biblios = Koha::Biblios->count; |
| 58 |
my ( $biblionumber, $biblioitemnumber ) = |
58 |
my ( $biblionumber, $biblioitemnumber ); |
| 59 |
C4::Biblio::AddBiblio( $record, '' ); |
59 |
{ |
|
|
60 |
local *STDERR; |
| 61 |
open STDERR, '>', '/dev/null'; |
| 62 |
( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio( $record, '' ); |
| 63 |
close STDERR; |
| 64 |
} |
| 60 |
is( $biblionumber, undef, |
65 |
is( $biblionumber, undef, |
| 61 |
'AddBiblio returns undef for biblionumber if something went wrong' ); |
66 |
'AddBiblio returns undef for biblionumber if something went wrong' ); |
| 62 |
is( $biblioitemnumber, undef, |
67 |
is( $biblioitemnumber, undef, |
| 63 |
- |
|
|