Lines 1-7
Link Here
|
1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl |
2 |
|
2 |
|
3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
4 |
use Test::More tests => 18; |
4 |
use Test::More tests => 19; |
5 |
use utf8; |
5 |
use utf8; |
6 |
use File::Basename; |
6 |
use File::Basename; |
7 |
use File::Temp qw/tempfile/; |
7 |
use File::Temp qw/tempfile/; |
Lines 183-188
C4::ImportBatch::DeleteBatch( $id_import_batch3 );
Link Here
|
183 |
my $import_batch = C4::ImportBatch::GetImportBatch( $id_import_batch3 ); |
183 |
my $import_batch = C4::ImportBatch::GetImportBatch( $id_import_batch3 ); |
184 |
is( $import_batch, undef, "Batch 3 has been deleted"); |
184 |
is( $import_batch, undef, "Batch 3 has been deleted"); |
185 |
|
185 |
|
|
|
186 |
subtest "BatchCommitItems" => sub { |
187 |
plan tests => 3; |
188 |
|
189 |
my $exist_item = $builder->build_sample_item; |
190 |
my $import_item = $builder->build_object({ class => 'Koha::Import::Record::Items', value => { |
191 |
marcxml => q{<?xml version="1.0" encoding="UTF-8"?> |
192 |
<collection |
193 |
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" |
194 |
xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd" |
195 |
xmlns="http://www.loc.gov/MARC21/slim"> |
196 |
|
197 |
<record> |
198 |
<leader>00000 a </leader> |
199 |
<datafield tag="952" ind1=" " ind2=" "> |
200 |
<subfield code="a">CPL</subfield> |
201 |
<subfield code="b">CPL</subfield> |
202 |
<subfield code="c">GEN</subfield> |
203 |
<subfield code="p">}.$exist_item->barcode.q{</subfield> |
204 |
<subfield code="y">BK</subfield> |
205 |
</datafield> |
206 |
</record> |
207 |
</collection> |
208 |
}, |
209 |
}}); |
210 |
|
211 |
my ( $num_items_added, $num_items_replaced, $num_items_errored ) = |
212 |
C4::ImportBatch::BatchCommitItems( $import_item->import_record_id, 32, 'always_add',64 ); |
213 |
is( $num_items_errored, 1, "Item with duplicate barcode fails when action always_add" ); |
214 |
$import_item->discard_changes(); |
215 |
is( $import_item->status, 'error', "Import item marked as error when duplicate barcode and action always_add"); |
216 |
is( $import_item->import_error, 'duplicate item barcode', 'Error correctly set when import item has duplciate barcode and action always_add' ); |
217 |
}; |
218 |
|
186 |
subtest "RecordsFromMarcPlugin" => sub { |
219 |
subtest "RecordsFromMarcPlugin" => sub { |
187 |
plan tests => 5; |
220 |
plan tests => 5; |
188 |
|
221 |
|
189 |
- |
|
|