Lines 151-157
subtest 'new() tests' => sub {
Link Here
|
151 |
|
151 |
|
152 |
subtest 'options() tests' => sub { |
152 |
subtest 'options() tests' => sub { |
153 |
|
153 |
|
154 |
plan tests => 4; |
154 |
plan tests => 6; |
155 |
|
155 |
|
156 |
# Create a processor with some options |
156 |
# Create a processor with some options |
157 |
my $record_processor = Koha::RecordProcessor->new( |
157 |
my $record_processor = Koha::RecordProcessor->new( |
Lines 178-189
subtest 'options() tests' => sub {
Link Here
|
178 |
); |
178 |
); |
179 |
|
179 |
|
180 |
# Update the chosen options |
180 |
# Update the chosen options |
181 |
$record_processor->options( |
181 |
my $ret = $record_processor->options( |
182 |
{ |
182 |
{ |
183 |
dummy => 'something else' |
183 |
dummy => 'something else' |
184 |
} |
184 |
} |
185 |
); |
185 |
); |
186 |
|
186 |
|
|
|
187 |
is( ref($ret), 'Koha::RecordProcessor', 'The setter return the object for chaining calls' ); |
188 |
is_deeply( $record_processor->options, { dummy => 'something else' }, 'The getter works as expected' ); |
189 |
|
187 |
# Re-fetch the filter |
190 |
# Re-fetch the filter |
188 |
$filter = $record_processor->filters->[0]; |
191 |
$filter = $record_processor->filters->[0]; |
189 |
|
192 |
|
190 |
- |
|
|