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