|
Lines 17-23
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
use Test::NoWarnings; |
19 |
use Test::NoWarnings; |
| 20 |
use Test::More tests => 11; |
20 |
use Test::More tests => 12; |
| 21 |
use Test::MockModule; |
21 |
use Test::MockModule; |
| 22 |
use Data::Dumper qw( Dumper ); |
22 |
use Data::Dumper qw( Dumper ); |
| 23 |
use utf8; |
23 |
use utf8; |
|
Lines 83-89
subtest 'authorised values' => sub {
Link Here
|
| 83 |
$subfield->{marc_value}->{values}, |
83 |
$subfield->{marc_value}->{values}, |
| 84 |
[ |
84 |
[ |
| 85 |
"", |
85 |
"", |
| 86 |
map { $_->authorised_value } |
86 |
map { $_->authorised_value } |
| 87 |
sort { $a->lib cmp $b->lib } $avs->as_list |
87 |
sort { $a->lib cmp $b->lib } $avs->as_list |
| 88 |
], |
88 |
], |
| 89 |
'AVs are sorted by lib and en empty option is created first' |
89 |
'AVs are sorted by lib and en empty option is created first' |
|
Lines 446-449
sub setup_mss {
Link Here
|
| 446 |
tagfield => $itemtag, |
446 |
tagfield => $itemtag, |
| 447 |
} |
447 |
} |
| 448 |
)->update( { display_order => \['FLOOR( 1 + RAND( ) * 10 )'] } ); |
448 |
)->update( { display_order => \['FLOOR( 1 + RAND( ) * 10 )'] } ); |
|
|
449 |
|
| 450 |
subtest 'replacementprice handling' => sub { |
| 451 |
plan tests => 3; |
| 452 |
|
| 453 |
my $subfield = { |
| 454 |
kohafield => 'items.replacementprice', |
| 455 |
id => 'tag_952_subfield_v_12345', |
| 456 |
value => '123.45', |
| 457 |
}; |
| 458 |
|
| 459 |
my $expected_marc_value = { |
| 460 |
type => 'replacementprice', |
| 461 |
id => 'tag_952_subfield_v_12345', |
| 462 |
value => '123.45', |
| 463 |
}; |
| 464 |
|
| 465 |
my $item = Koha::Item->new(); |
| 466 |
|
| 467 |
my %subfield_data; |
| 468 |
if ( $subfield->{kohafield} =~ /items\.(replacementprice)/ ) { |
| 469 |
$subfield_data{marc_value} = { |
| 470 |
type => 'replacementprice', |
| 471 |
id => $subfield->{id}, |
| 472 |
value => $subfield->{value}, |
| 473 |
}; |
| 474 |
} |
| 475 |
|
| 476 |
ok( |
| 477 |
exists $subfield_data{marc_value}, |
| 478 |
"Subfield data contains 'marc_value' key" |
| 479 |
); |
| 480 |
|
| 481 |
is( |
| 482 |
$subfield_data{marc_value}->{type}, |
| 483 |
$expected_marc_value->{type}, |
| 484 |
"Subfield 'type' is correctly set to 'replacementprice'" |
| 485 |
); |
| 486 |
|
| 487 |
is_deeply( |
| 488 |
$subfield_data{marc_value}, |
| 489 |
$expected_marc_value, |
| 490 |
'Subfield data is processed correctly for replacementprice' |
| 491 |
); |
| 492 |
}; |
| 449 |
} |
493 |
} |
| 450 |
- |
|
|