Lines 49-55
subtest 'AddBiblio' => sub {
Link Here
|
49 |
t::lib::Mocks::mock_preference( 'marcflavour', $marcflavour ); |
49 |
t::lib::Mocks::mock_preference( 'marcflavour', $marcflavour ); |
50 |
my $record = MARC::Record->new(); |
50 |
my $record = MARC::Record->new(); |
51 |
|
51 |
|
52 |
warn Koha::Biblios->count; |
|
|
53 |
my ( $f, $sf ) = GetMarcFromKohaField('biblioitems.lccn'); |
52 |
my ( $f, $sf ) = GetMarcFromKohaField('biblioitems.lccn'); |
54 |
my $lccn_field = MARC::Field->new( $f, ' ', ' ', |
53 |
my $lccn_field = MARC::Field->new( $f, ' ', ' ', |
55 |
$sf => 'ThisisgoingtobetoomanycharactersfortheLCCNfield' ); |
54 |
$sf => 'ThisisgoingtobetoomanycharactersfortheLCCNfield' ); |
Lines 63-69
subtest 'AddBiblio' => sub {
Link Here
|
63 |
is( $biblioitemnumber, undef, |
62 |
is( $biblioitemnumber, undef, |
64 |
'AddBiblio returns undef for biblioitemnumber if something went wrong' |
63 |
'AddBiblio returns undef for biblioitemnumber if something went wrong' |
65 |
); |
64 |
); |
66 |
is( $nb_biblios, Koha::Biblios->count, |
65 |
is( Koha::Biblios->count, $nb_biblios, |
67 |
'No biblio should have been added if something went wrong' ); |
66 |
'No biblio should have been added if something went wrong' ); |
68 |
}; |
67 |
}; |
69 |
|
68 |
|
70 |
- |
|
|