|
Lines 79-86
if ( $marcflavour eq 'UNIMARC' ) {
Link Here
|
| 79 |
my $deleted_biblio = MARC::Record->new(); |
79 |
my $deleted_biblio = MARC::Record->new(); |
| 80 |
$deleted_biblio->leader('00136nam a22000617a 4500'); |
80 |
$deleted_biblio->leader('00136nam a22000617a 4500'); |
| 81 |
$deleted_biblio->append_fields( |
81 |
$deleted_biblio->append_fields( |
| 82 |
MARC::Field->new( '100', ' ', ' ', a => 'Chopra, Deepak' ), |
82 |
MARC::Field->new( '100', ' ', ' ', a => 'Chopra, Deepak' ), |
| 83 |
MARC::Field->new( '245', ' ', ' ', a => 'The seven spiritual laws of success' ), |
83 |
MARC::Field->new( $title_field_tag, ' ', ' ', a => 'The seven spiritual laws of success' ), |
| 84 |
); |
84 |
); |
| 85 |
my ($deleted_biblionumber) = AddBiblio( $deleted_biblio, '' ); |
85 |
my ($deleted_biblionumber) = AddBiblio( $deleted_biblio, '' ); |
| 86 |
DelBiblio($deleted_biblionumber); |
86 |
DelBiblio($deleted_biblionumber); |
|
Lines 206-212
subtest 'export xml' => sub {
Link Here
|
| 206 |
|
206 |
|
| 207 |
# Leader has the expected value (and record status "d", length may have |
207 |
# Leader has the expected value (and record status "d", length may have |
| 208 |
# changed) |
208 |
# changed) |
| 209 |
ok( $deleted_record->leader =~ '\d{5}dam a22000617a 4500', 'Deleted record has the expected leader value' ); |
209 |
ok( $deleted_record->leader =~ '\d{5}dam a22000\d{2}7a 4500', 'Deleted record has the expected leader value' ); |
| 210 |
}; |
210 |
}; |
| 211 |
|
211 |
|
| 212 |
subtest 'export iso2709' => sub { |
212 |
subtest 'export iso2709' => sub { |
|
Lines 242-248
subtest 'export iso2709' => sub {
Link Here
|
| 242 |
|
242 |
|
| 243 |
# Leader has the expected value (and record status "d", length may have |
243 |
# Leader has the expected value (and record status "d", length may have |
| 244 |
# changed) |
244 |
# changed) |
| 245 |
ok( $deleted_record->leader =~ '\d{5}dam a22000617a 4500', 'Deleted record has the expected leader value' ); |
245 |
ok( $deleted_record->leader =~ '\d{5}dam a22000\d{2}7a 4500', 'Deleted record has the expected leader value' ); |
| 246 |
}; |
246 |
}; |
| 247 |
|
247 |
|
| 248 |
subtest 'export without record_type' => sub { |
248 |
subtest 'export without record_type' => sub { |
| 249 |
- |
|
|