|
Lines 19-25
Link Here
|
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 7; |
22 |
use Test::More tests => 8; |
| 23 |
|
23 |
|
| 24 |
use C4::Biblio; |
24 |
use C4::Biblio; |
| 25 |
use C4::Circulation; |
25 |
use C4::Circulation; |
|
Lines 27-32
use C4::Circulation;
Link Here
|
| 27 |
use Koha::Items; |
27 |
use Koha::Items; |
| 28 |
use Koha::Database; |
28 |
use Koha::Database; |
| 29 |
use Koha::Old::Items; |
29 |
use Koha::Old::Items; |
|
|
30 |
use Koha::AuthorisedValueCategories; |
| 31 |
use Koha::AuthorisedValues; |
| 30 |
|
32 |
|
| 31 |
use List::MoreUtils qw(all); |
33 |
use List::MoreUtils qw(all); |
| 32 |
|
34 |
|
|
Lines 628-630
subtest 'Tests for itemtype' => sub {
Link Here
|
| 628 |
|
630 |
|
| 629 |
$schema->storage->txn_rollback; |
631 |
$schema->storage->txn_rollback; |
| 630 |
}; |
632 |
}; |
| 631 |
- |
633 |
|
|
|
634 |
subtest '_fetch_authorised_values' => sub { |
| 635 |
plan tests => 1; |
| 636 |
|
| 637 |
$schema->storage->txn_begin; |
| 638 |
|
| 639 |
# Delete all Authorised Values of 'Countries' category |
| 640 |
Koha::AuthorisedValues->search({category => 'Countries'})->delete; |
| 641 |
Koha::AuthorisedValueCategories->search({category_name => 'Countries'})->delete; |
| 642 |
|
| 643 |
# Create 'Countries' category and authorised value |
| 644 |
my $cat = $builder->build_object({ class => 'Koha::AuthorisedValueCategories'}); |
| 645 |
my $country = $builder->build_object({ class => 'Koha::AuthorisedValues', value => { category => $cat->category_name } }); |
| 646 |
|
| 647 |
# Create a new biblio framework |
| 648 |
my $fw = $builder->build_object({ class => 'Koha::BiblioFrameworks' }); |
| 649 |
|
| 650 |
# Add a Marc subfield with kohafield setted to 'items.itemnote' |
| 651 |
$builder->build_object({class => 'Koha::MarcSubfieldStructures', value => {frameworkcode => $fw->frameworkcode, authorised_value => $cat->category_name, kohafield => 'items.itemnotes'}}); |
| 652 |
|
| 653 |
# Create biblio and item |
| 654 |
my $biblio = $builder->build_sample_biblio({frameworkcode => $fw->frameworkcode}); |
| 655 |
my $item = $builder->build_sample_item({biblionumber => $biblio->biblionumber, itemnotes => $country->authorised_value}); |
| 656 |
|
| 657 |
# Fetch authorised values |
| 658 |
my $avs = $item->_fetch_authorised_values(); |
| 659 |
|
| 660 |
is($avs->{itemnotes}->{lib}, $country->lib, 'Fetched auhtorised value is ok'); |
| 661 |
|
| 662 |
$schema->storage->txn_rollback; |
| 663 |
} |