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