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

(-)a/t/db_dependent/Acquisition.t (-18 / +1 lines)
Lines 10-16 use POSIX qw(strftime); Link Here
10
10
11
use C4::Bookseller qw( GetBookSellerFromId );
11
use C4::Bookseller qw( GetBookSellerFromId );
12
12
13
use Test::More tests => 41;
13
use Test::More tests => 37;
14
14
15
BEGIN {
15
BEGIN {
16
    use_ok('C4::Acquisition');
16
    use_ok('C4::Acquisition');
Lines 32-54 my $grouped = 0; Link Here
32
my $orders = GetPendingOrders( $supplierid, $grouped );
32
my $orders = GetPendingOrders( $supplierid, $grouped );
33
isa_ok( $orders, 'ARRAY' );
33
isa_ok( $orders, 'ARRAY' );
34
34
35
# testing GetOrdersByBiblionumber
36
# result should be undef if no params
37
my @ordersbybiblionumber = GetOrdersByBiblionumber();
38
is(@ordersbybiblionumber,0,'GetOrdersByBiblionumber : no argument, return undef');
39
# TODO : create 2 orders using the same biblionumber, and check the result of GetOrdersByBiblionumber
40
# if a record is used in at least one order, result should be an array with at least one element
41
SKIP: {
42
   skip 'No Orders, cannot test GetOrdersByBiblionumber', 3 unless( scalar @$orders );
43
   my $testorder = @$orders[0];
44
   my $testbiblio = $testorder->{'biblionumber'};
45
   my @listorders = GetOrdersByBiblionumber($testbiblio);
46
   ok( @listorders ,'GetOrdersByBiblionumber : result is defined' );
47
   ok( scalar (@listorders) >0,'GetOrdersByBiblionumber : result contains at least one element' );
48
   my @matched_biblios = grep {$_->{biblionumber} == $testbiblio} @listorders;
49
   ok ( @matched_biblios == @listorders, "all orders match");
50
}
51
52
my @lateorders = GetLateOrders(0);
35
my @lateorders = GetLateOrders(0);
53
SKIP: {
36
SKIP: {
54
   skip 'No Late Orders, cannot test AddClaim', 1 unless @lateorders;
37
   skip 'No Late Orders, cannot test AddClaim', 1 unless @lateorders;
(-)a/t/db_dependent/Acquisition/GetOrdersByBiblionumber.t (-1 / +84 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/env perl
2
3
use Modern::Perl;
4
5
use Test::More;
6
use C4::Acquisition;
7
use C4::Biblio qw( AddBiblio );
8
use C4::Bookseller;
9
use C4::Budgets;
10
use MARC::Record;
11
12
my $booksellerid = C4::Bookseller::AddBookseller(
13
    {
14
        name => "my vendor",
15
        address1 => "bookseller's address",
16
        phone => "0123456",
17
        active => 1
18
    }
19
);
20
21
my $basketno = C4::Acquisition::NewBasket(
22
    $booksellerid
23
);
24
25
my $budgetid = C4::Budgets::AddBudget(
26
    {
27
        budget_code => "budget_code_test_getordersbybib",
28
        budget_name => "budget_name_test_getordersbybib",
29
    }
30
);
31
32
my $budget = C4::Budgets::GetBudget( $budgetid );
33
34
my ($ordernumber1, $ordernumber2, $ordernumber3);
35
my ($biblionumber1, $biblioitemnumber1) = AddBiblio(MARC::Record->new, '');
36
my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
37
( undef, $ordernumber1 ) = C4::Acquisition::NewOrder(
38
    {
39
        basketno => $basketno,
40
        quantity => 24,
41
        biblionumber => $biblionumber1,
42
        budget_id => $budget->{budget_id},
43
    }
44
);
45
46
( undef, $ordernumber2 ) = C4::Acquisition::NewOrder(
47
    {
48
        basketno => $basketno,
49
        quantity => 42,
50
        biblionumber => $biblionumber2,
51
        budget_id => $budget->{budget_id},
52
    }
53
);
54
55
( undef, $ordernumber2 ) = C4::Acquisition::NewOrder(
56
    {
57
        basketno => $basketno,
58
        quantity => 4,
59
        biblionumber => $biblionumber2,
60
        budget_id => $budget->{budget_id},
61
    }
62
);
63
64
my @orders = GetOrdersByBiblionumber();
65
is(scalar(@orders), 0, 'GetOrdersByBiblionumber : no argument, return undef');
66
67
@orders = GetOrdersByBiblionumber( $biblionumber1 );
68
is(scalar(@orders), 1, '1 order on biblionumber 1');
69
70
@orders = GetOrdersByBiblionumber( $biblionumber2 );
71
is(scalar(@orders), 2, '2 orders on biblionumber 2');
72
73
END {
74
    C4::Acquisition::DelOrder( 1, $ordernumber1 );
75
    C4::Acquisition::DelOrder( 2, $ordernumber2 );
76
    C4::Acquisition::DelOrder( 3, $ordernumber3 );
77
    C4::Budgets::DelBudget( $budgetid );
78
    C4::Acquisition::DelBasket( $basketno );
79
    C4::Bookseller::DelBookseller( $booksellerid );
80
    C4::Biblio::DelBiblio($biblionumber1);
81
    C4::Biblio::DelBiblio($biblionumber2);
82
};
83
84
done_testing;

Return to bug 10270