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

(-)a/t/db_dependent/Acquisition.t (-2 / +42 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(
930
        scalar(@$history),
931
        scalar(@$orders) + 1,
932
        "GetHistory returns number of standing orders"
933
    );
934
935
};
936
896
$schema->storage->txn_rollback();
937
$schema->storage->txn_rollback();
897
- 

Return to bug 26503