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 |
- |
|
|