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 192-199 subtest 'export xml' => sub { Link Here
192
    is( $title, $biblio_2_title, 'Export XML: The title is correctly encoded' );
192
    is( $title, $biblio_2_title, 'Export XML: The title is correctly encoded' );
193
193
194
    my $deleted_record = $records[2];
194
    my $deleted_record = $records[2];
195
    # Leader has the expected value (and record status "d")
195
196
    is( $deleted_record->leader, '00136dam a22000617a 4500', 'Deleted record has the correct leader value' );
196
    # Leader has the expected value (and record status "d", length may have
197
    # changed)
198
    ok( $deleted_record->leader =~ '\d{5}dam a22000617a 4500', 'Deleted record has the expected leader value' );
197
};
199
};
198
200
199
subtest 'export iso2709' => sub {
201
subtest 'export iso2709' => sub {
Lines 224-231 subtest 'export iso2709' => sub { Link Here
224
    is( $title, $biblio_2_title, 'Export ISO2709: The title is correctly encoded' );
226
    is( $title, $biblio_2_title, 'Export ISO2709: The title is correctly encoded' );
225
227
226
    my $deleted_record = $records[2];
228
    my $deleted_record = $records[2];
227
    # Leader has the expected value (and record status "d")
229
    # Leader has the expected value (and record status "d", length may have
228
    is( $deleted_record->leader, '00136dam a22000617a 4500', 'Deleted record has the correct leader value' );
230
    # changed)
231
    ok( $deleted_record->leader =~ '\d{5}dam a22000617a 4500', 'Deleted record has the expected leader value' );
229
};
232
};
230
233
231
subtest 'export without record_type' => sub {
234
subtest 'export without record_type' => sub {
232
- 

Return to bug 20551