Lines 242-247
subtest 'prepare_cgi_additional_field_values' => sub {
Link Here
|
242 |
} |
242 |
} |
243 |
); |
243 |
); |
244 |
$field2->store()->discard_changes(); |
244 |
$field2->store()->discard_changes(); |
|
|
245 |
my $field3 = Koha::AdditionalField->new( |
246 |
{ |
247 |
tablename => 'subscription', |
248 |
name => random_string( 'c' x 100 ) |
249 |
} |
250 |
); |
251 |
$field3->store()->discard_changes(); |
245 |
|
252 |
|
246 |
my $q = CGI->new; |
253 |
my $q = CGI->new; |
247 |
$q->param( |
254 |
$q->param( |
Lines 252-257
subtest 'prepare_cgi_additional_field_values' => sub {
Link Here
|
252 |
-name => 'additional_field_' . $field2->id, |
259 |
-name => 'additional_field_' . $field2->id, |
253 |
-value => '0', |
260 |
-value => '0', |
254 |
); |
261 |
); |
|
|
262 |
$q->param( |
263 |
-name => 'additional_field_' . $field3->id, |
264 |
-value => '', |
265 |
); |
255 |
$q->param( |
266 |
$q->param( |
256 |
-name => 'irrelevant_param', |
267 |
-name => 'irrelevant_param', |
257 |
-value => 'foo', |
268 |
-value => 'foo', |
Lines 274-286
subtest 'prepare_cgi_additional_field_values' => sub {
Link Here
|
274 |
{ |
285 |
{ |
275 |
'value' => '0', |
286 |
'value' => '0', |
276 |
'id' => $field2->id |
287 |
'id' => $field2->id |
|
|
288 |
}, |
289 |
{ |
290 |
'value' => '', |
291 |
'id' => $field3->id |
277 |
} |
292 |
} |
278 |
], |
293 |
], |
279 |
'Return of prepare_cgi_additional_field_values should be correct' |
294 |
'Return of prepare_cgi_additional_field_values should be correct' |
280 |
); |
295 |
); |
281 |
|
|
|
282 |
$schema->txn_rollback; |
296 |
$schema->txn_rollback; |
283 |
|
|
|
284 |
}; |
297 |
}; |
285 |
|
298 |
|
286 |
subtest 'strings_map() tests' => sub { |
299 |
subtest 'strings_map() tests' => sub { |
287 |
- |
|
|