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

(-)a/t/db_dependent/Exporter/Record.t (-6 / +8 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 175-182 subtest 'export xml' => sub { Link Here
175
    is( $title, $biblio_2_title, 'Export XML: The title is correctly encoded' );
175
    is( $title, $biblio_2_title, 'Export XML: The title is correctly encoded' );
176
176
177
    my $deleted_record = $records[2];
177
    my $deleted_record = $records[2];
178
    # Leader has the expected value (and record status "d")
178
179
    is( $deleted_record->leader, '00136dam a22000617a 4500', 'Deleted record has the correct leader value' );
179
    # Leader has the expected value (and record status "d", length may have
180
    # changed)
181
    ok( $deleted_record->leader =~ '\d{5}dam a22000617a 4500', 'Deleted record has the expected leader value' );
180
};
182
};
181
183
182
subtest 'export iso2709' => sub {
184
subtest 'export iso2709' => sub {
Lines 207-214 subtest 'export iso2709' => sub { Link Here
207
    is( $title, $biblio_2_title, 'Export ISO2709: The title is correctly encoded' );
209
    is( $title, $biblio_2_title, 'Export ISO2709: The title is correctly encoded' );
208
210
209
    my $deleted_record = $records[2];
211
    my $deleted_record = $records[2];
210
    # Leader has the expected value (and record status "d")
212
    # Leader has the expected value (and record status "d", length may have
211
    is( $deleted_record->leader, '00136dam a22000617a 4500', 'Deleted record has the correct leader value' );
213
    # changed)
214
    ok( $deleted_record->leader =~ '\d{5}dam a22000617a 4500', 'Deleted record has the expected leader value' );
212
};
215
};
213
216
214
subtest 'export without record_type' => sub {
217
subtest 'export without record_type' => sub {
215
- 

Return to bug 20551