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

(-)a/t/db_dependent/Acquisition.t (-61 / +110 lines)
Lines 3-82 Link Here
3
# This Koha test module is a stub!
3
# This Koha test module is a stub!
4
# Add more tests here!!!
4
# Add more tests here!!!
5
5
6
use strict;
6
use Modern::Perl;
7
use warnings;
8
use Data::Dumper;
9
use POSIX qw(strftime);
7
use POSIX qw(strftime);
10
8
11
use C4::Bookseller qw( GetBookSellerFromId );
9
use C4::Bookseller qw( GetBookSellerFromId );
12
10
13
use Test::More tests => 36;
11
use Test::More tests => 40;
14
12
15
BEGIN {
13
BEGIN {
16
    use_ok('C4::Acquisition');
14
    use_ok('C4::Acquisition');
15
    use_ok('C4::Bookseller');
16
    use_ok('C4::Biblio');
17
    use_ok('C4::Budgets');
18
    use_ok('C4::Bookseller');
17
}
19
}
18
20
19
my $booksellerid = 1;
21
my $booksellerid = C4::Bookseller::AddBookseller(
20
my $booksellerinfo = GetBookSellerFromId( $booksellerid );
22
    {
21
# diag( Data::Dumper->Dump( [ $booksellerinfo ], [ 'booksellerinfo' ] ) );
23
        name => "my vendor",
22
SKIP: {
24
        address1 => "bookseller's address",
23
    skip 'No booksellers in database, cannot test baskets', 2 unless $booksellerinfo;
25
        phone => "0123456",
24
    my ($basket, $basketno);
26
        active => 1
25
    ok($basketno = NewBasket(1,1),			"NewBasket(  1 , 1  ) returns $basketno");
27
    }
26
    ok($basket   = GetBasket($basketno),	"GetBasket($basketno) returns $basket");
28
);
27
}
29
30
my $booksellerinfo = C4::Bookseller::GetBookSellerFromId( $booksellerid );
31
32
my ($basket, $basketno);
33
ok($basketno = NewBasket($booksellerid, 1), "NewBasket(  $booksellerid , 1  ) returns $basketno");
34
ok($basket   = GetBasket($basketno), "GetBasket($basketno) returns $basket");
35
36
my $budgetid = C4::Budgets::AddBudget(
37
    {
38
        budget_code => "budget_code_test_getordersbybib",
39
        budget_name => "budget_name_test_getordersbybib",
40
    }
41
);
42
my $budget = C4::Budgets::GetBudget( $budgetid );
43
44
my ($ordernumber1, $ordernumber2, $ordernumber3);
45
my ($biblionumber1, $biblioitemnumber1) = AddBiblio(MARC::Record->new, '');
46
my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
47
( undef, $ordernumber1 ) = C4::Acquisition::NewOrder(
48
    {
49
        basketno => $basketno,
50
        quantity => 24,
51
        biblionumber => $biblionumber1,
52
        budget_id => $budget->{budget_id},
53
    }
54
);
55
56
( undef, $ordernumber2 ) = C4::Acquisition::NewOrder(
57
    {
58
        basketno => $basketno,
59
        quantity => 42,
60
        biblionumber => $biblionumber2,
61
        budget_id => $budget->{budget_id},
62
    }
63
);
28
64
65
( undef, $ordernumber3 ) = C4::Acquisition::NewOrder(
66
    {
67
        basketno => $basketno,
68
        quantity => 4,
69
        biblionumber => $biblionumber2,
70
        budget_id => $budget->{budget_id},
71
        ecost => 42,
72
        rrp => 42,
73
    }
74
);
29
75
30
my $supplierid = 1;
31
my $grouped    = 0;
76
my $grouped    = 0;
32
my $orders = GetPendingOrders( $supplierid, $grouped );
77
my $orders = GetPendingOrders( $booksellerid, $grouped );
33
isa_ok( $orders, 'ARRAY' );
78
isa_ok( $orders, 'ARRAY' );
34
79
80
C4::Acquisition::CloseBasket( $basketno );
35
my @lateorders = GetLateOrders(0);
81
my @lateorders = GetLateOrders(0);
36
SKIP: {
82
my $order = $lateorders[0];
37
   skip 'No Late Orders, cannot test AddClaim', 1 unless @lateorders;
83
AddClaim( $order->{ordernumber} );
38
   my $order = $lateorders[0];
84
my $neworder = GetOrder( $order->{ordernumber} );
39
   AddClaim( $order->{ordernumber} );
85
is( $neworder->{claimed_date}, strftime( "%Y-%m-%d", localtime(time) ), "AddClaim : Check claimed_date" );
40
   my $neworder = GetOrder( $order->{ordernumber} );
41
   is( $neworder->{claimed_date}, strftime( "%Y-%m-%d", localtime(time) ), "AddClaim : Check claimed_date" );
42
}
43
86
44
SKIP: {
87
my @expectedfields = qw( basketno
45
    skip 'No relevant orders in database, cannot test baskets', 33 unless( scalar @$orders );
88
                         biblionumber
46
    # diag( Data::Dumper->Dump( [ $orders ], [ 'orders' ] ) );
89
                         invoiceid
47
    my @expectedfields = qw( basketno
90
                         budgetdate
48
                             biblionumber
91
                         cancelledby
49
                             invoiceid
92
                         closedate
50
                             budgetdate
93
                         creationdate
51
                             cancelledby
94
                         currency
52
                             closedate
95
                         datecancellationprinted
53
                             creationdate
96
                         datereceived
54
                             currency
97
                         ecost
55
                             datecancellationprinted
98
                         entrydate
56
                             datereceived
99
                         firstname
57
                             ecost
100
                         freight
58
                             entrydate
101
                         gstrate
59
                             firstname
102
                         listprice
60
                             freight
103
                         notes
61
                             gstrate
104
                         ordernumber
62
                             listprice
105
                         purchaseordernumber
63
                             notes
106
                         quantity
64
                             ordernumber
107
                         quantityreceived
65
                             purchaseordernumber
108
                         rrp
66
                             quantity
109
                         sort1
67
                             quantityreceived
110
                         sort2
68
                             rrp
111
                         subscriptionid
69
                             sort1
112
                         supplierreference
70
                             sort2
113
                         surname
71
                             subscriptionid
114
                         timestamp
72
                             supplierreference
115
                         title
73
                             surname
116
                         totalamount
74
                             timestamp
117
                         unitprice );
75
                             title
118
my $firstorder = $orders->[0];
76
                             totalamount
119
for my $field ( @expectedfields ) {
77
                             unitprice );
120
    ok( exists( $firstorder->{ $field } ), "This order has a $field field" );
78
    my $firstorder = $orders->[0];
79
    for my $field ( @expectedfields ) {
80
        ok( exists( $firstorder->{ $field } ), "This order has a $field field" );
81
    }
82
}
121
}
83
- 
122
123
END {
124
    C4::Acquisition::DelOrder( $biblionumber1, $ordernumber1 );
125
    C4::Acquisition::DelOrder( $biblionumber2, $ordernumber2 );
126
    C4::Acquisition::DelOrder( $biblionumber2, $ordernumber3 );
127
    C4::Budgets::DelBudget( $budgetid );
128
    C4::Acquisition::DelBasket( $basketno );
129
    C4::Bookseller::DelBookseller( $booksellerid );
130
    C4::Biblio::DelBiblio($biblionumber1);
131
    C4::Biblio::DelBiblio($biblionumber2);
132
};

Return to bug 10274