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

(-)a/t/db_dependent/Acquisition.t (-2 / +44 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use POSIX qw(strftime);
20
use POSIX qw(strftime);
21
21
22
use Test::More tests => 68;
22
use Test::More tests => 70;
23
use t::lib::Mocks;
23
use t::lib::Mocks;
24
use Koha::Database;
24
use Koha::Database;
25
25
Lines 31-36 BEGIN { Link Here
31
    use_ok('C4::Budgets');
31
    use_ok('C4::Budgets');
32
    use_ok('Koha::Acquisition::Orders');
32
    use_ok('Koha::Acquisition::Orders');
33
    use_ok('Koha::Acquisition::Booksellers');
33
    use_ok('Koha::Acquisition::Booksellers');
34
    use_ok('t::lib::TestBuilder');
34
}
35
}
35
36
36
# Sub used for testing C4::Acquisition subs returning order(s):
37
# Sub used for testing C4::Acquisition subs returning order(s):
Lines 665-668 sub create_isbn_field { Link Here
665
    return $field;
666
    return $field;
666
}
667
}
667
668
669
subtest 'ModReceiveOrder replacementprice tests' => sub {
670
    plan tests => 2;
671
    #Let's build an order, we need a couple things though
672
    my $builder = t::lib::TestBuilder->new;
673
    my $order_biblio = $builder->build({ source => 'Biblio' });
674
    my $order_basket = $builder->build({ source => 'Aqbasket', value => { is_standing => 0 } });
675
    my $order_invoice = $builder->build({ source => 'Aqinvoice'});
676
    my $order_currency = $builder->build({ source => 'Currency', value => { active => 1, archived => 0, symbol => 'F', rate => 2, isocode => undef, currency => 'FOO' }  });
677
    my $order_vendor = $builder->build({ source => 'Aqbookseller',value => { listincgst => 0, listprice => $order_currency->{currency}, invoiceprice => $order_currency->{currency} } });
678
    my $orderinfo ={
679
        basketno => $order_basket->{basketno},
680
        booksellerid => $order_vendor->{id},
681
        rrp => 19.99,
682
        replacementprice => undef,
683
        quantity => 1,
684
        quantityreceived => 0,
685
        datereceived => undef,
686
        datecancellationprinted => undef,
687
    };
688
    my $receive_order = $builder->build({ source => 'Aqorder', value => $orderinfo });
689
    (undef, my $received_ordernumber) = ModReceiveOrder({
690
            biblionumber => $order_biblio->{biblionumber},
691
            order        => $receive_order,
692
            invoice      => $order_invoice,
693
            quantityreceived => $receive_order->{quantity},
694
            budget_id    => $order->{budget_id},
695
    });
696
    my $received_order = GetOrder($received_ordernumber);
697
    is ($received_order->{replacementprice},undef,"No price set if none passed in");
698
    $orderinfo->{replacementprice} = 16.12;
699
    $receive_order = $builder->build({ source => 'Aqorder', value => $orderinfo });
700
    (undef, $received_ordernumber) = ModReceiveOrder({
701
            biblionumber => $order_biblio->{biblionumber},
702
            order        => $receive_order,
703
            invoice      => $order_invoice,
704
            quantityreceived => $receive_order->{quantity},
705
            budget_id    => $order->{budget_id},
706
    });
707
    $received_order = GetOrder($received_ordernumber);
708
    is ($received_order->{replacementprice},'16.120000',"Replacement price set if none passed in");
709
};
710
668
$schema->storage->txn_rollback();
711
$schema->storage->txn_rollback();
669
- 

Return to bug 18639