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

(-)a/t/db_dependent/Acquisition.t (-2 / +38 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 => 79;
22
use Test::More tests => 80;
23
use t::lib::Mocks;
23
use t::lib::Mocks;
24
use Koha::Database;
24
use Koha::Database;
25
use Koha::DateUtils qw(dt_from_string output_pref);
25
use Koha::DateUtils qw(dt_from_string output_pref);
Lines 893-896 subtest 'GetHistory - managing library' => sub { Link Here
893
893
894
};
894
};
895
895
896
subtest 'GetHistory - is_standing' => sub {
897
898
    plan tests => 1;
899
900
    my $orders = GetHistory(is_standing => '1');
901
902
    my $builder = t::lib::TestBuilder->new;
903
904
    my $order_basket1 = $builder->build({ source => 'Aqbasket', value => { is_standing => 0 } });
905
    my $orderinfo1 ={
906
        basketno => $order_basket1->{basketno},
907
        rrp => 19.99,
908
        replacementprice => undef,
909
        quantity => 1,
910
        quantityreceived => 0,
911
        datereceived => undef,
912
        datecancellationprinted => undef,
913
    };
914
    my $order1 = $builder->build({ source => 'Aqorder', value => $orderinfo1 });
915
916
    my $order_basket2 = $builder->build({ source => 'Aqbasket', value => { is_standing => 1 } });
917
    my $orderinfo2 ={
918
        basketno => $order_basket2->{basketno},
919
        rrp => 19.99,
920
        replacementprice => undef,
921
        quantity => 1,
922
        quantityreceived => 0,
923
        datereceived => undef,
924
        datecancellationprinted => undef,
925
    };
926
    my $order2 = $builder->build({ source => 'Aqorder', value => $orderinfo2 });
927
928
    my $history = GetHistory(is_standing => 1);
929
    is( scalar( @$history), scalar ( @$orders ) +1, "GetHistory returns number of standing orders");
930
931
};
932
896
$schema->storage->txn_rollback();
933
$schema->storage->txn_rollback();
897
- 

Return to bug 26503