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

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

Return to bug 20551