Lines 2-8
Link Here
|
2 |
|
2 |
|
3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
4 |
use Test::MockModule; |
4 |
use Test::MockModule; |
5 |
use Test::More tests => 30; |
5 |
use Test::More tests => 18; |
6 |
|
6 |
|
7 |
use C4::Acquisition; |
7 |
use C4::Acquisition; |
8 |
|
8 |
|
Lines 29-63
my $order1 = {
Link Here
|
29 |
basketno => 1 |
29 |
basketno => 1 |
30 |
}; |
30 |
}; |
31 |
my $order2 = { |
31 |
my $order2 = { |
32 |
basketno => 1, |
|
|
33 |
branch => 'B1' |
34 |
}; |
35 |
my $order3 = { |
36 |
basketno => 1, |
37 |
branch => 'B2' |
38 |
}; |
39 |
my $order4 = { |
40 |
basketno => 2 |
32 |
basketno => 2 |
41 |
}; |
33 |
}; |
42 |
my $order5 = { |
34 |
my $order3 = { |
43 |
basketno => 2, |
|
|
44 |
branch => 'B1' |
45 |
}; |
46 |
my $order6 = { |
47 |
basketno => 2, |
48 |
branch => 'B2' |
49 |
}; |
50 |
my $order7 = { |
51 |
basketno => 3 |
35 |
basketno => 3 |
52 |
}; |
36 |
}; |
53 |
my $order8 = { |
|
|
54 |
basketno => 3, |
55 |
branch => 'B1' |
56 |
}; |
57 |
my $order9 = { |
58 |
basketno => 3, |
59 |
branch => 'B2' |
60 |
}; |
61 |
|
37 |
|
62 |
$userenv->{branch} = 'B1'; |
38 |
$userenv->{branch} = 'B1'; |
63 |
|
39 |
|
Lines 72-84
ok( not CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive
Link Here
|
72 |
ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive => 1 }}) ); |
48 |
ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive => 1 }}) ); |
73 |
ok( CanUserReceiveOrder($borrower, $order2, {acquisition => { order_receive => 1 }}) ); |
49 |
ok( CanUserReceiveOrder($borrower, $order2, {acquisition => { order_receive => 1 }}) ); |
74 |
ok( not CanUserReceiveOrder($borrower, $order3, {acquisition => { order_receive => 1 }}) ); |
50 |
ok( not CanUserReceiveOrder($borrower, $order3, {acquisition => { order_receive => 1 }}) ); |
75 |
ok( CanUserReceiveOrder($borrower, $order4, {acquisition => { order_receive => 1 }}) ); |
|
|
76 |
ok( CanUserReceiveOrder($borrower, $order5, {acquisition => { order_receive => 1 }}) ); |
77 |
ok( not CanUserReceiveOrder($borrower, $order6, {acquisition => { order_receive => 1 }}) ); |
78 |
ok( not CanUserReceiveOrder($borrower, $order7, {acquisition => { order_receive => 1 }}) ); |
79 |
ok( CanUserReceiveOrder($borrower, $order8, {acquisition => { order_receive => 1 }}) ); |
80 |
ok( not CanUserReceiveOrder($borrower, $order9, {acquisition => { order_receive => 1 }}) ); |
81 |
|
82 |
|
51 |
|
83 |
$userenv->{branch} = 'B2'; |
52 |
$userenv->{branch} = 'B2'; |
84 |
|
53 |
|
Lines 93-104
ok( not CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive
Link Here
|
93 |
ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive => 1 }}) ); |
62 |
ok( CanUserReceiveOrder($borrower, $order1, {acquisition => { order_receive => 1 }}) ); |
94 |
ok( not CanUserReceiveOrder($borrower, $order2, {acquisition => { order_receive => 1 }}) ); |
63 |
ok( not CanUserReceiveOrder($borrower, $order2, {acquisition => { order_receive => 1 }}) ); |
95 |
ok( CanUserReceiveOrder($borrower, $order3, {acquisition => { order_receive => 1 }}) ); |
64 |
ok( CanUserReceiveOrder($borrower, $order3, {acquisition => { order_receive => 1 }}) ); |
96 |
ok( not CanUserReceiveOrder($borrower, $order4, {acquisition => { order_receive => 1 }}) ); |
|
|
97 |
ok( not CanUserReceiveOrder($borrower, $order5, {acquisition => { order_receive => 1 }}) ); |
98 |
ok( CanUserReceiveOrder($borrower, $order6, {acquisition => { order_receive => 1 }}) ); |
99 |
ok( CanUserReceiveOrder($borrower, $order7, {acquisition => { order_receive => 1 }}) ); |
100 |
ok( not CanUserReceiveOrder($borrower, $order8, {acquisition => { order_receive => 1 }}) ); |
101 |
ok( CanUserReceiveOrder($borrower, $order9, {acquisition => { order_receive => 1 }}) ); |
102 |
|
65 |
|
103 |
sub Mock_GetBasket { |
66 |
sub Mock_GetBasket { |
104 |
my ($basketno) = @_; |
67 |
my ($basketno) = @_; |
105 |
- |
|
|