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 => 65;
22
use Test::More tests => 67;
23
use Koha::Database;
23
use Koha::Database;
24
24
25
BEGIN {
25
BEGIN {
Lines 28-33 BEGIN { Link Here
28
    use_ok('C4::Budgets');
28
    use_ok('C4::Budgets');
29
    use_ok('Koha::Acquisition::Orders');
29
    use_ok('Koha::Acquisition::Orders');
30
    use_ok('Koha::Acquisition::Booksellers');
30
    use_ok('Koha::Acquisition::Booksellers');
31
    use_ok('t::lib::TestBuilder');
31
}
32
}
32
33
33
# Sub used for testing C4::Acquisition subs returning order(s):
34
# Sub used for testing C4::Acquisition subs returning order(s):
Lines 541-544 ok($active_count >= 1 , "GetBudgetsReport(1) OK"); Link Here
541
is($all_count, scalar GetBudgetsReport(), "GetBudgetReport returns inactive budget period acquisitions.");
542
is($all_count, scalar GetBudgetsReport(), "GetBudgetReport returns inactive budget period acquisitions.");
542
ok($active_count >= scalar GetBudgetsReport(1), "GetBudgetReport doesn't return inactive budget period acquisitions.");
543
ok($active_count >= scalar GetBudgetsReport(1), "GetBudgetReport doesn't return inactive budget period acquisitions.");
543
544
545
subtest 'ModReceiveOrder replacementprice tests' => sub {
546
    plan tests => 2;
547
    #Let's build an order, we need a couple things though
548
    my $builder = t::lib::TestBuilder->new;
549
    my $order_biblio = $builder->build({ source => 'Biblio' });
550
    my $order_basket = $builder->build({ source => 'Aqbasket', value => { is_standing => 0 } });
551
    my $order_invoice = $builder->build({ source => 'Aqinvoice'});
552
    my $order_currency = $builder->build({ source => 'Currency', value => { active => 1, archived => 0, symbol => 'F', rate => 2, isocode => undef, currency => 'FOO' }  });
553
    my $order_vendor = $builder->build({ source => 'Aqbookseller',value => { listincgst => 0, listprice => $order_currency->{currency}, invoiceprice => $order_currency->{currency} } });
554
    my $orderinfo ={
555
        basketno => $order_basket->{basketno},
556
        booksellerid => $order_vendor->{id},
557
        rrp => 19.99,
558
        replacementprice => undef,
559
        quantity => 1,
560
        quantityreceived => 0,
561
        datereceived => undef,
562
        datecancellationprinted => undef,
563
    };
564
    my $receive_order = $builder->build({ source => 'Aqorder', value => $orderinfo });
565
    (undef, my $received_ordernumber) = ModReceiveOrder({
566
            biblionumber => $order_biblio->{biblionumber},
567
            order        => $receive_order,
568
            invoice      => $order_invoice,
569
            quantityreceived => $receive_order->{quantity},
570
            budget_id    => $order->{budget_id},
571
    });
572
    my $received_order = GetOrder($received_ordernumber);
573
    is ($received_order->{replacementprice},undef,"No price set if none passed in");
574
    $orderinfo->{replacementprice} = 16.12;
575
    $receive_order = $builder->build({ source => 'Aqorder', value => $orderinfo });
576
    (undef, $received_ordernumber) = ModReceiveOrder({
577
            biblionumber => $order_biblio->{biblionumber},
578
            order        => $receive_order,
579
            invoice      => $order_invoice,
580
            quantityreceived => $receive_order->{quantity},
581
            budget_id    => $order->{budget_id},
582
    });
583
    $received_order = GetOrder($received_ordernumber);
584
    is ($received_order->{replacementprice},'16.120000',"Replacement price set if none passed in");
585
};
586
544
$schema->storage->txn_rollback();
587
$schema->storage->txn_rollback();
545
- 

Return to bug 18639