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