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 175-182
subtest 'export xml' => sub {
Link Here
|
175 |
is( $title, $biblio_2_title, 'Export XML: The title is correctly encoded' ); |
175 |
is( $title, $biblio_2_title, 'Export XML: The title is correctly encoded' ); |
176 |
|
176 |
|
177 |
my $deleted_record = $records[2]; |
177 |
my $deleted_record = $records[2]; |
178 |
# Leader has the expected value (and record status "d") |
178 |
|
179 |
is( $deleted_record->leader, '00136dam a22000617a 4500', 'Deleted record has the correct leader value' ); |
179 |
# Leader has the expected value (and record status "d", length may have |
|
|
180 |
# changed) |
181 |
ok( $deleted_record->leader =~ '\d{5}dam a22000617a 4500', 'Deleted record has the expected leader value' ); |
180 |
}; |
182 |
}; |
181 |
|
183 |
|
182 |
subtest 'export iso2709' => sub { |
184 |
subtest 'export iso2709' => sub { |
Lines 207-214
subtest 'export iso2709' => sub {
Link Here
|
207 |
is( $title, $biblio_2_title, 'Export ISO2709: The title is correctly encoded' ); |
209 |
is( $title, $biblio_2_title, 'Export ISO2709: The title is correctly encoded' ); |
208 |
|
210 |
|
209 |
my $deleted_record = $records[2]; |
211 |
my $deleted_record = $records[2]; |
210 |
# Leader has the expected value (and record status "d") |
212 |
# Leader has the expected value (and record status "d", length may have |
211 |
is( $deleted_record->leader, '00136dam a22000617a 4500', 'Deleted record has the correct leader value' ); |
213 |
# changed) |
|
|
214 |
ok( $deleted_record->leader =~ '\d{5}dam a22000617a 4500', 'Deleted record has the expected leader value' ); |
212 |
}; |
215 |
}; |
213 |
|
216 |
|
214 |
subtest 'export without record_type' => sub { |
217 |
subtest 'export without record_type' => sub { |
215 |
- |
|
|