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

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

Return to bug 20551