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

(-)a/t/db_dependent/SIP/Transaction.t (-2 / +53 lines)
Lines 4-10 Link Here
4
# Current state is very rudimentary. Please help to extend it!
4
# Current state is very rudimentary. Please help to extend it!
5
5
6
use Modern::Perl;
6
use Modern::Perl;
7
use Test::More tests => 12;
7
use Test::More tests => 13;
8
8
9
use Koha::Database;
9
use Koha::Database;
10
use t::lib::TestBuilder;
10
use t::lib::TestBuilder;
Lines 524-529 subtest checkin_withdrawn => sub { Link Here
524
    is( $circ->{screen_msg}, 'Item not checked out', "Got 'Item not checked out' screen message" );
524
    is( $circ->{screen_msg}, 'Item not checked out', "Got 'Item not checked out' screen message" );
525
};
525
};
526
526
527
subtest _get_sort_bin => sub {
528
    plan tests => 4;
529
530
    my $library  = $builder->build_object( { class => 'Koha::Libraries' } );
531
    my $branch   = $library->branchcode;
532
    my $library2 = $builder->build_object( { class => 'Koha::Libraries' } );
533
    my $branch2  = $library2->branchcode;
534
535
    my $rules = <<"RULES";
536
$branch:homebranch:ne:\$holdingbranch:X\r
537
$branch:effective_itemtype:eq:CD:0\r
538
$branch:itemcallnumber:<:340:1\r
539
$branch:itemcallnumber:<:370:2\r
540
$branch:itemcallnumber:<:600:3\r
541
$branch2:homebranch:ne:\$holdingbranch:X\r
542
$branch2:effective_itemtype:eq:CD:4\r
543
$branch2:itemcallnumber:>:600:5\r
544
RULES
545
    t::lib::Mocks::mock_preference('SIP2SortBinMapping', $rules);
546
547
    my $item_cd = $builder->build_sample_item(
548
        {
549
            library     => $library->branchcode,
550
            itype       => 'CD'
551
        }
552
    );
553
554
    my $item_book = $builder->build_sample_item(
555
        {
556
            library        => $library->branchcode,
557
            itype          => 'BOOK',
558
            itemcallnumber => '200.01'
559
        }
560
    );
561
562
    my $bin;
563
564
    # Set holdingbranch as though item returned to library other than homebranch (As AddReturn would)
565
    $item_cd->holdingbranch($library2->branchcode)->store();
566
    $bin = C4::SIP::ILS::Transaction::Checkin::_get_sort_bin( $item_cd, $library2->branchcode );
567
    is($bin, 'X', "Item parameter on RHS of comparison works (ne comparitor)");
568
569
    # Reset holdingbranch as though item returned to home library
570
    $item_cd->holdingbranch($library->branchcode)->store();
571
    $bin = C4::SIP::ILS::Transaction::Checkin::_get_sort_bin( $item_cd, $library->branchcode );
572
    is($bin, '0', "Fixed value on RHS of comparison works (eq comparitor)");
573
    $bin = C4::SIP::ILS::Transaction::Checkin::_get_sort_bin( $item_book, $library->branchcode );
574
    is($bin, '1', "Rules applied in order (< comparitor)");
575
    $item_book->itemcallnumber('350.20')->store();
576
    is($bin, '2', "Rules applied in order (< comparitor)");
577
};
578
527
subtest item_circulation_status => sub {
579
subtest item_circulation_status => sub {
528
    plan tests => 7;
580
    plan tests => 7;
529
581
530
- 

Return to bug 20517