View | Details | Raw Unified | Return to bug 20551
Collapse All | Expand All

(-)a/t/db_dependent/Exporter/Record.t (-5 / +4 lines)
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
- 

Return to bug 20551