View | Details | Raw Unified | Return to bug 25006
Collapse All | Expand All

(-)a/t/db_dependent/Koha/Item.t (-2 / +10 lines)
Lines 28-33 use Koha::Items; Link Here
28
use Koha::Database;
28
use Koha::Database;
29
use Koha::Old::Items;
29
use Koha::Old::Items;
30
30
31
use List::MoreUtils qw(all);
32
31
use t::lib::TestBuilder;
33
use t::lib::TestBuilder;
32
use t::lib::Mocks;
34
use t::lib::Mocks;
33
35
Lines 91-101 subtest "as_marc_field() tests" => sub { Link Here
91
    my @schema_columns = $schema->resultset('Item')->result_source->columns;
93
    my @schema_columns = $schema->resultset('Item')->result_source->columns;
92
    my @mapped_columns = grep { exists $mss->{'items.'.$_} } @schema_columns;
94
    my @mapped_columns = grep { exists $mss->{'items.'.$_} } @schema_columns;
93
95
94
    plan tests => 2 * (scalar @mapped_columns + 1) + 1;
96
    plan tests => 2 * (scalar @mapped_columns + 1) + 2;
95
97
96
    $schema->storage->txn_begin;
98
    $schema->storage->txn_begin;
97
99
98
    my $item = $builder->build_sample_item;
100
    my $item = $builder->build_sample_item;
101
    # Make sure it has at least one undefined attribute
102
    $item->set({ replacementprice => undef })->store->discard_changes;
99
103
100
    # Tests with the mss parameter
104
    # Tests with the mss parameter
101
    my $marc_field = $item->as_marc_field({ mss => $mss });
105
    my $marc_field = $item->as_marc_field({ mss => $mss });
Lines 141-146 subtest "as_marc_field() tests" => sub { Link Here
141
    $item->more_subfields_xml( C4::Items::_get_unlinked_subfields_xml( \@unlinked_subfields ) )->store;
145
    $item->more_subfields_xml( C4::Items::_get_unlinked_subfields_xml( \@unlinked_subfields ) )->store;
142
146
143
    $marc_field = $item->as_marc_field;
147
    $marc_field = $item->as_marc_field;
148
149
    my @subfields = $marc_field->subfields;
150
    my $result = all { defined $_->[1] } @subfields;
151
    ok( $result, 'There are no undef subfields' );
152
144
    is( scalar $marc_field->subfield('X'), 'Something weird', 'more_subfield_xml is considered' );
153
    is( scalar $marc_field->subfield('X'), 'Something weird', 'more_subfield_xml is considered' );
145
154
146
    $schema->storage->txn_rollback;
155
    $schema->storage->txn_rollback;
147
- 

Return to bug 25006