|
Lines 5-11
Link Here
|
| 5 |
|
5 |
|
| 6 |
use Modern::Perl; |
6 |
use Modern::Perl; |
| 7 |
|
7 |
|
| 8 |
use Test::More tests => 12; |
8 |
use Test::More tests => 13; |
| 9 |
use Test::MockModule; |
9 |
use Test::MockModule; |
| 10 |
use Test::Warn; |
10 |
use Test::Warn; |
| 11 |
use MARC::Field; |
11 |
use MARC::Field; |
|
Lines 15-20
use t::lib::Mocks;
Link Here
|
| 15 |
use t::lib::TestBuilder; |
15 |
use t::lib::TestBuilder; |
| 16 |
use Koha::Database; |
16 |
use Koha::Database; |
| 17 |
use Koha::Authority::Types; |
17 |
use Koha::Authority::Types; |
|
|
18 |
use Koha::Libraries; |
| 18 |
|
19 |
|
| 19 |
BEGIN { |
20 |
BEGIN { |
| 20 |
use_ok('C4::AuthoritiesMarc'); |
21 |
use_ok('C4::AuthoritiesMarc'); |
|
Lines 29-35
$module->mock('GetHeaderAuthority', sub {
Link Here
|
| 29 |
$module->mock('AddAuthorityTrees', sub { |
30 |
$module->mock('AddAuthorityTrees', sub { |
| 30 |
return; |
31 |
return; |
| 31 |
}); |
32 |
}); |
| 32 |
$module->mock('GetAuthority', sub { |
33 |
my $sub_get_authority = sub { |
| 33 |
my ($authid) = @_; |
34 |
my ($authid) = @_; |
| 34 |
my $record = MARC::Record->new(); |
35 |
my $record = MARC::Record->new(); |
| 35 |
if ($authid eq '1') { |
36 |
if ($authid eq '1') { |
|
Lines 64-70
$module->mock('GetAuthority', sub {
Link Here
|
| 64 |
undef $record; |
65 |
undef $record; |
| 65 |
} |
66 |
} |
| 66 |
return $record; |
67 |
return $record; |
| 67 |
}); |
68 |
}; |
|
|
69 |
$module->mock('GetAuthority', $sub_get_authority); |
| 68 |
|
70 |
|
| 69 |
my $schema = Koha::Database->new->schema; |
71 |
my $schema = Koha::Database->new->schema; |
| 70 |
$schema->storage->txn_begin; |
72 |
$schema->storage->txn_begin; |
|
Lines 220-225
subtest 'AddAuthority should respect AUTO_INCREMENT (BZ 18104)' => sub {
Link Here
|
| 220 |
is( $record->field('001')->data, $id3, 'Check updated 001' ); |
222 |
is( $record->field('001')->data, $id3, 'Check updated 001' ); |
| 221 |
}; |
223 |
}; |
| 222 |
|
224 |
|
|
|
225 |
subtest 'AddAuthority always updates 003' => sub { |
| 226 |
plan tests => 4; |
| 227 |
|
| 228 |
$module->unmock('GetAuthority'); |
| 229 |
|
| 230 |
t::lib::Mocks::mock_preference( 'marcflavour', 'MARC21' ); |
| 231 |
|
| 232 |
my $library = $builder->build_object( { class => 'Koha::Libraries' } ); |
| 233 |
my $library_branchcode = $library->branchcode; |
| 234 |
my $library_orgcode = $library->marcorgcode; |
| 235 |
|
| 236 |
my $record = MARC::Record->new; |
| 237 |
$record->append_fields( |
| 238 |
MARC::Field->new( '001', 999 ), |
| 239 |
MARC::Field->new( '003', 'ORG_01' ), |
| 240 |
MARC::Field->new( '100', '', '', a => 'Marcel' ), |
| 241 |
MARC::Field->new( '942', '', '', a => 'PERSO_NAME' ), |
| 242 |
); |
| 243 |
|
| 244 |
t::lib::Mocks::mock_preference( 'MARCOrgCode', 'ORG_02' ); |
| 245 |
t::lib::Mocks::mock_userenv({ branchcode => q{} }); |
| 246 |
my $id = AddAuthority( $record, undef, 'PERSO_NAME' ); |
| 247 |
is( C4::AuthoritiesMarc::GetAuthority($id)->field('003')->data, 'ORG_02', 'New record: Updated to pref value' ); |
| 248 |
t::lib::Mocks::mock_userenv({ branchcode => $library_branchcode }); |
| 249 |
$id = AddAuthority( $record, undef, 'PERSO_NAME' ); |
| 250 |
is( C4::AuthoritiesMarc::GetAuthority($id)->field('003')->data, $library_orgcode, 'New record: Updated to library value' ); |
| 251 |
|
| 252 |
t::lib::Mocks::mock_userenv({ branchcode => $library_branchcode }); |
| 253 |
ModAuthority( $id, $record, 'PERSO_NAME' ); |
| 254 |
is( C4::AuthoritiesMarc::GetAuthority($id)->field('003')->data, $library_orgcode, 'Changed record: Updated to library value' ); |
| 255 |
t::lib::Mocks::mock_userenv({ branchcode => q{} }); |
| 256 |
ModAuthority( $id, $record, 'PERSO_NAME' ); |
| 257 |
is( C4::AuthoritiesMarc::GetAuthority($id)->field('003')->data, 'ORG_02', 'Changed record: Updated to pref value' ); |
| 258 |
|
| 259 |
$module->mock('GetAuthority', $sub_get_authority); |
| 260 |
}; |
| 261 |
|
| 223 |
subtest 'CompareFieldWithAuthority tests' => sub { |
262 |
subtest 'CompareFieldWithAuthority tests' => sub { |
| 224 |
plan tests => 3; |
263 |
plan tests => 3; |
| 225 |
|
264 |
|
| 226 |
- |
|
|