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