|
Lines 295-306
sub test_add_custom_field_rowdata {
Link Here
|
| 295 |
|
295 |
|
| 296 |
is( $returned_row->{title}, "Just a title", "_add_rowdata returns the title of a biblio" ); |
296 |
is( $returned_row->{title}, "Just a title", "_add_rowdata returns the title of a biblio" ); |
| 297 |
is( |
297 |
is( |
| 298 |
$returned_row->{addnumberfields}[0], "245\$a", |
298 |
$returned_row->{addnumberfields}[1], "245", |
| 299 |
"_add_rowdata returns the field number chosen in the AdditionalFieldsInZ3950ResultSearch preference" |
299 |
"_add_rowdata returns the field number chosen in the AdditionalFieldsInZ3950ResultSearch preference" |
| 300 |
); |
300 |
); |
| 301 |
|
301 |
|
| 302 |
# Test repeatble tags,the trailing whitespace is a normal side-effect of _add_custom_field_row_data |
302 |
# Test repeatable tags |
| 303 |
is_deeply( \$returned_row->{"035\$a"}, \[ "First 035 ", "Second 035 " ], "_add_rowdata supports repeatable tags" ); |
303 |
is_deeply( $returned_row->{"035"}, [ "[a]First 035", "[a]Second 035" ], "_add_rowdata supports repeatable tags" ); |
| 304 |
|
304 |
|
| 305 |
warning_is { C4::Breeding::_add_custom_field_rowdata( $row, $biblio, undef ) } undef, |
305 |
warning_is { C4::Breeding::_add_custom_field_rowdata( $row, $biblio, undef ) } undef, |
| 306 |
'no warn from add_custom_field_rowdata when pref_newtags undef'; |
306 |
'no warn from add_custom_field_rowdata when pref_newtags undef'; |
| 307 |
- |
|
|