Lines 44-50
Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" );
Link Here
|
44 |
my $builder = t::lib::TestBuilder->new; |
44 |
my $builder = t::lib::TestBuilder->new; |
45 |
|
45 |
|
46 |
subtest 'AddBiblio' => sub { |
46 |
subtest 'AddBiblio' => sub { |
47 |
plan tests => 4; |
47 |
plan tests => 5; |
48 |
|
48 |
|
49 |
my $marcflavour = 'MARC21'; |
49 |
my $marcflavour = 'MARC21'; |
50 |
t::lib::Mocks::mock_preference( 'marcflavour', $marcflavour ); |
50 |
t::lib::Mocks::mock_preference( 'marcflavour', $marcflavour ); |
Lines 67-72
subtest 'AddBiblio' => sub {
Link Here
|
67 |
); |
67 |
); |
68 |
is( Koha::Biblios->count, $nb_biblios, |
68 |
is( Koha::Biblios->count, $nb_biblios, |
69 |
'No biblio should have been added if something went wrong' ); |
69 |
'No biblio should have been added if something went wrong' ); |
|
|
70 |
|
71 |
t::lib::Mocks::mock_preference( 'BiblioAddsAuthorities', $marcflavour ); |
72 |
t::lib::Mocks::mock_preference( 'AutoCreateAuthorities', $marcflavour ); |
73 |
|
74 |
my $mock_biblio = Test::MockModule->new("C4::Biblio"); |
75 |
$mock_biblio->mock( BiblioAutoLink => sub { |
76 |
my $record = shift; |
77 |
my $frameworkcode = shift; |
78 |
warn "My biblionumber is ".$record->subfield('999','c')." and my frameworkcode is $frameworkcode"; |
79 |
}); |
80 |
warning_like { $builder->build_sample_biblio(); } |
81 |
qr/My biblionumber is \d+ and my frameworkcode is /, "The biblionumber is correctly passed to BiblioAutoLink"; |
82 |
|
70 |
}; |
83 |
}; |
71 |
|
84 |
|
72 |
subtest 'GetMarcSubfieldStructureFromKohaField' => sub { |
85 |
subtest 'GetMarcSubfieldStructureFromKohaField' => sub { |
73 |
- |
|
|