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 |
- |
|
|