Line 0
Link Here
|
|
|
1 |
#!/usr/bin/perl |
2 |
|
3 |
use Modern::Perl; |
4 |
|
5 |
use Test::More tests => 22; |
6 |
use Test::MockModule; |
7 |
|
8 |
use C4::Biblio; |
9 |
use C4::Items; |
10 |
use C4::Members; |
11 |
use C4::Branch; |
12 |
use C4::Category; |
13 |
use MARC::Record; |
14 |
|
15 |
BEGIN { |
16 |
use_ok('C4::Circulation'); |
17 |
} |
18 |
|
19 |
|
20 |
my $dbh = C4::Context->dbh; |
21 |
$dbh->{AutoCommit} = 0; |
22 |
$dbh->{RaiseError} = 1; |
23 |
|
24 |
$dbh->do(q|DELETE FROM issues|); |
25 |
$dbh->do(q|DELETE FROM items|); |
26 |
$dbh->do(q|DELETE FROM borrowers|); |
27 |
$dbh->do(q|DELETE FROM branches|); |
28 |
$dbh->do(q|DELETE FROM biblio|); |
29 |
$dbh->do(q|DELETE FROM items|); |
30 |
$dbh->do(q|DELETE FROM categories|); |
31 |
|
32 |
|
33 |
my $branchcode = 'B'; |
34 |
ModBranch({ add => 1, branchcode => $branchcode, branchname => 'Branch' }); |
35 |
|
36 |
my $categorycode = 'C'; |
37 |
$dbh->do("INSERT INTO categories(categorycode) VALUES(?)", undef, $categorycode); |
38 |
|
39 |
my %item_branch_infos = ( |
40 |
homebranch => $branchcode, |
41 |
holdingbranch => $branchcode, |
42 |
); |
43 |
|
44 |
my ($biblionumber1) = AddBiblio(MARC::Record->new, ''); |
45 |
my $barcode1 = '0101'; |
46 |
AddItem({ barcode => $barcode1, %item_branch_infos }, $biblionumber1); |
47 |
my ($biblionumber2) = AddBiblio(MARC::Record->new, ''); |
48 |
my $barcode2 = '0202'; |
49 |
AddItem({ barcode => $barcode2, %item_branch_infos }, $biblionumber2); |
50 |
|
51 |
my $borrowernumber1 = AddMember(categorycode => $categorycode, branchcode => $branchcode); |
52 |
my $borrowernumber2 = AddMember(categorycode => $categorycode, branchcode => $branchcode); |
53 |
my $borrower1 = GetMember(borrowernumber => $borrowernumber1); |
54 |
my $borrower2 = GetMember(borrowernumber => $borrowernumber2); |
55 |
|
56 |
my $module = new Test::MockModule('C4::Context'); |
57 |
$module->mock('userenv', sub { { branch => $branchcode } }); |
58 |
|
59 |
|
60 |
my $check_if_issued = C4::Circulation::CheckIfIssuedToPatron(); |
61 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron without argument returns undef' ); |
62 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron(undef, $biblionumber1); |
63 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron without the borrower number returns undef' ); |
64 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron($borrowernumber1, undef); |
65 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron without the biblio number returns undef' ); |
66 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron($borrowernumber1, $biblionumber1); |
67 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron returns unef' ); |
68 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron($borrowernumber1, $biblionumber2); |
69 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron returns undef' ); |
70 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron($borrowernumber2, $biblionumber1); |
71 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron returns undef' ); |
72 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron($borrowernumber2, $biblionumber2); |
73 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron returns undef' ); |
74 |
|
75 |
AddIssue($borrower1, '0101'); |
76 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron(); |
77 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron without argument returns undef' ); |
78 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron(undef, $biblionumber1); |
79 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron without the borrower number returns undef' ); |
80 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron($borrowernumber1, undef); |
81 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron without the biblio number returns undef' ); |
82 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron($borrowernumber1, $biblionumber1); |
83 |
is( $check_if_issued, 1, 'CheckIfIssuedToPatron returns true' ); |
84 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron($borrowernumber1, $biblionumber2); |
85 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron returns undef' ); |
86 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron($borrowernumber2, $biblionumber1); |
87 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron returns undef' ); |
88 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron($borrowernumber2, $biblionumber2); |
89 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron returns undef' ); |
90 |
|
91 |
AddIssue($borrower2, '0202'); |
92 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron(); |
93 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron without argument returns undef' ); |
94 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron(undef, $biblionumber1); |
95 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron without the borrower number returns undef' ); |
96 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron($borrowernumber1, undef); |
97 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron without the biblio number returns undef' ); |
98 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron($borrowernumber1, $biblionumber1); |
99 |
is( $check_if_issued, 1, 'CheckIfIssuedToPatron returns true' ); |
100 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron($borrowernumber1, $biblionumber2); |
101 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron returns undef' ); |
102 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron($borrowernumber2, $biblionumber1); |
103 |
is( $check_if_issued, undef, 'CheckIfIssuedToPatron returns undef' ); |
104 |
$check_if_issued = C4::Circulation::CheckIfIssuedToPatron($borrowernumber2, $biblionumber2); |
105 |
is( $check_if_issued, 1, 'CheckIfIssuedToPatron returns true' ); |
106 |
|
107 |
$dbh->rollback(); |