Lines 18-23
Link Here
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use t::lib::Mocks; |
20 |
use t::lib::Mocks; |
|
|
21 |
use t::lib::TestBuilder; |
21 |
use C4::Context; |
22 |
use C4::Context; |
22 |
use C4::Members; |
23 |
use C4::Members; |
23 |
use C4::Letters; |
24 |
use C4::Letters; |
Lines 35-40
BEGIN {
Link Here
|
35 |
use_ok('C4::Suggestions'); |
36 |
use_ok('C4::Suggestions'); |
36 |
} |
37 |
} |
37 |
|
38 |
|
|
|
39 |
my $builder = t::lib::TestBuilder->new(); |
38 |
my $dbh = C4::Context->dbh; |
40 |
my $dbh = C4::Context->dbh; |
39 |
my $sql; |
41 |
my $sql; |
40 |
|
42 |
|
Lines 87-93
my $member = {
Link Here
|
87 |
categorycode => 'S', |
89 |
categorycode => 'S', |
88 |
branchcode => 'CPL', |
90 |
branchcode => 'CPL', |
89 |
}; |
91 |
}; |
90 |
my $borrowernumber = AddMember(%$member); |
92 |
my $patron = $builder->build({ |
|
|
93 |
source => 'Borrower', |
94 |
value => $member, |
95 |
}); |
96 |
my $borrowernumber = $patron->{borrowernumber}; |
91 |
|
97 |
|
92 |
my $biblionumber1 = 1; |
98 |
my $biblionumber1 = 1; |
93 |
my $my_suggestion = { |
99 |
my $my_suggestion = { |
94 |
- |
|
|