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

(-)a/t/db_dependent/Koha/Objects/Mixin/AdditionalFields.t (-12 / +42 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 10;
5
use Test::More tests => 12;
6
6
7
use Koha::Acquisition::Baskets; # Koha::Acquisition::Baskets uses the mixin
7
use Koha::Acquisition::Baskets; # Koha::Acquisition::Baskets uses the mixin
8
use Koha::AdditionalFields;
8
use Koha::AdditionalFields;
Lines 42-57 Koha::AdditionalFieldValue->new({ Link Here
42
    record_id => $basket1->basketno,
42
    record_id => $basket1->basketno,
43
    value => 'bar value for basket1',
43
    value => 'bar value for basket1',
44
})->store;
44
})->store;
45
Koha::AdditionalFieldValue->new({
45
46
    field_id => $foo->id,
46
my $additional_fields_for_basket2 = [
47
    record_id => $basket2->basketno,
47
    {
48
    value => 'foo value for basket2',
48
        id    => $foo->id,
49
})->store;
49
        value => 'foo value for basket2',
50
Koha::AdditionalFieldValue->new({
50
    },
51
    field_id => $bar->id,
51
    {
52
    record_id => $basket2->basketno,
52
        id    => $bar->id,
53
    value => 'bar value for basket2',
53
        value => 'bar value for basket2',
54
})->store;
54
    },
55
];
56
$basket2->set_additional_fields($additional_fields_for_basket2);
57
58
my $additional_fields = $basket2->additional_field_values;
59
is( ref($additional_fields), 'Koha::AdditionalFieldValues', '->additional_field_values should return a Koha::AdditionalFieldValues object' );
60
is_deeply(
61
    [
62
        map {
63
            {
64
                # We are bascially removing the 'id' field here
65
                field_id  => $_->{field_id},
66
                record_id => $_->{record_id},
67
                value     => $_->{value},
68
            }
69
        } @{ $additional_fields->unblessed }
70
    ],
71
    [
72
        {
73
            field_id  => $additional_fields_for_basket2->[0]->{id},
74
            record_id => $basket2->basketno,
75
            value     => $additional_fields_for_basket2->[0]->{value},
76
        },
77
        {
78
            field_id  => $additional_fields_for_basket2->[1]->{id},
79
            record_id => $basket2->basketno,
80
            value     => $additional_fields_for_basket2->[1]->{value},
81
        }
82
83
    ],
84
    '->additional_field_values should return the correct values'
85
);
55
86
56
my @baskets = Koha::Acquisition::Baskets->filter_by_additional_fields([
87
my @baskets = Koha::Acquisition::Baskets->filter_by_additional_fields([
57
    {
88
    {
58
- 

Return to bug 15774