View | Details | Raw Unified | Return to bug 32804
Collapse All | Expand All

(-)a/t/db_dependent/ImportBatch.t (-2 / +43 lines)
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 => 19;
4
use Test::More tests => 20;
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 360-367 subtest "BatchCommitRecords overlay into framework" => sub { Link Here
360
    is( $biblio->frameworkcode, "QQ", "Framework set on overlay" );
360
    is( $biblio->frameworkcode, "QQ", "Framework set on overlay" );
361
};
361
};
362
362
363
subtest "Do not adjust biblionumber when replacing items during import" => sub {
364
    plan tests => 6;
363
365
366
    my $item1 = $builder->build_sample_item;
367
    my $item2 = $builder->build_sample_item;
364
368
369
    my $library = $builder->build_object({ class => 'Koha::Libraries' });
370
371
    my $import_item = $builder->build_object({ class => 'Koha::Import::Record::Items', value => {
372
        marcxml => qq{<?xml version="1.0" encoding="UTF-8"?>
373
<collection
374
  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
375
  xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd"
376
  xmlns="http://www.loc.gov/MARC21/slim">
377
378
<record>
379
  <leader>00000    a              </leader>
380
  <datafield tag="952" ind1=" " ind2=" ">
381
    <subfield code="a">${\($library->branchcode)}</subfield>
382
    <subfield code="b">${\($library->branchcode)}</subfield>
383
    <subfield code="c">GEN</subfield>
384
    <subfield code="p">${\($item1->barcode)}</subfield>
385
    <subfield code="y">BK</subfield>
386
  </datafield>
387
</record>
388
</collection>
389
        },
390
    }});
391
392
    isnt( $item1->homebranch, $library->branchcode, "Item's homebranch is currently not the same as our created branch's branchcode" );
393
394
    my ( $num_items_added, $num_items_replaced, $num_items_errored ) =
395
        C4::ImportBatch::_batchCommitItems( $import_item->import_record_id, $item2->biblionumber, 'replace' );
396
397
    $item1->discard_changes();
398
399
    is( $num_items_errored, 0, 'Item was replaced' );
400
    $import_item->discard_changes();
401
    is( $import_item->status, 'imported', 'Import was successful');
402
    is( $import_item->import_error, undef, 'No error was reported' );
403
404
    is( $item1->biblionumber, $item1->biblioitemnumber, "Item's biblionumber and biblioitemnumber match" );
405
    is( $item1->homebranch, $library->branchcode, "Item was overlaid successfully" );
406
};
365
407
366
sub get_import_record {
408
sub get_import_record {
367
    my $id_import_batch = shift;
409
    my $id_import_batch = shift;
368
- 

Return to bug 32804