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