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 |
- |
|
|