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

(-)a/t/db_dependent/Exporter/Record.t (-6 / +7 lines)
Lines 29-35 use MARC::Batch; Link Here
29
use File::Slurp;
29
use File::Slurp;
30
use Encode;
30
use Encode;
31
31
32
use C4::Biblio qw( AddBiblio );
32
use C4::Biblio qw( AddBiblio DelBiblio );
33
use C4::Context;
33
use C4::Context;
34
use Koha::Database;
34
use Koha::Database;
35
use Koha::Biblio;
35
use Koha::Biblio;
Lines 205-212 subtest 'export xml' => sub { Link Here
205
205
206
    my $deleted_record = $records[2];
206
    my $deleted_record = $records[2];
207
207
208
    # Leader has the expected value (and record status "d")
208
    # Leader has the expected value (and record status "d", length may have
209
    is( $deleted_record->leader, '00136dam a22000617a 4500', 'Deleted record has the correct leader value' );
209
    # changed)
210
    ok( $deleted_record->leader =~ '\d{5}dam a22000617a 4500', 'Deleted record has the expected leader value' );
210
};
211
};
211
212
212
subtest 'export iso2709' => sub {
213
subtest 'export iso2709' => sub {
Lines 240-247 subtest 'export iso2709' => sub { Link Here
240
241
241
    my $deleted_record = $records[2];
242
    my $deleted_record = $records[2];
242
243
243
    # Leader has the expected value (and record status "d")
244
    # Leader has the expected value (and record status "d", length may have
244
    is( $deleted_record->leader, '00136dam a22000617a 4500', 'Deleted record has the correct leader value' );
245
    # changed)
246
    ok( $deleted_record->leader =~ '\d{5}dam a22000617a 4500', 'Deleted record has the expected leader value' );
245
};
247
};
246
248
247
subtest 'export without record_type' => sub {
249
subtest 'export without record_type' => sub {
248
- 

Return to bug 20551