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

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

Return to bug 10274