Lines 20-26
Link Here
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
|
21 |
|
22 |
use Test::NoWarnings; |
22 |
use Test::NoWarnings; |
23 |
use Test::More tests => 6; |
23 |
use Test::More tests => 7; |
24 |
use Test::MockModule; |
24 |
use Test::MockModule; |
25 |
|
25 |
|
26 |
use Koha::ILL::Requests; |
26 |
use Koha::ILL::Requests; |
Lines 197-199
subtest 'get_backend_plugin() tests' => sub {
Link Here
|
197 |
|
197 |
|
198 |
$schema->storage->txn_rollback; |
198 |
$schema->storage->txn_rollback; |
199 |
}; |
199 |
}; |
200 |
- |
200 |
|
|
|
201 |
subtest 'trim_form_params() tests' => sub { |
202 |
|
203 |
plan tests => 4; |
204 |
|
205 |
$schema->storage->txn_begin; |
206 |
|
207 |
my $request = $builder->build_sample_ill_request(); |
208 |
|
209 |
my $params = { |
210 |
'pubmedid' => '', |
211 |
'doi' => ' abc', |
212 |
'type' => 'article', |
213 |
'backend' => 'Standard', |
214 |
}; |
215 |
|
216 |
my $trimmed_params = $request->trim_form_params($params); |
217 |
|
218 |
is( |
219 |
$trimmed_params->{doi}, 'abc', |
220 |
'param with leading white space is correctly trimmed' |
221 |
); |
222 |
|
223 |
is( |
224 |
$trimmed_params->{pubmedid}, '', |
225 |
'empty param remains empty' |
226 |
); |
227 |
|
228 |
is( |
229 |
$trimmed_params->{nonexistent}, undef, |
230 |
'undef param remains undef' |
231 |
); |
232 |
|
233 |
is( |
234 |
$trimmed_params->{type}, $trimmed_params->{type}, |
235 |
'already trimmed param remains unchanged' |
236 |
); |
237 |
|
238 |
$schema->storage->txn_rollback; |
239 |
}; |