Lines 19-28
Link Here
|
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
|
21 |
|
22 |
use Test::More tests => 7; |
22 |
use Test::More tests => 13; |
|
|
23 |
use Test::Warn; |
23 |
|
24 |
|
24 |
use Koha::Review; |
25 |
use Koha::Review; |
25 |
use Koha::Reviews; |
26 |
use Koha::Reviews; |
|
|
27 |
use Koha::Notice::Messages; |
28 |
use Koha::Notice::Templates; |
29 |
use t::lib::Mocks; |
26 |
use Koha::Database; |
30 |
use Koha::Database; |
27 |
|
31 |
|
28 |
use t::lib::TestBuilder; |
32 |
use t::lib::TestBuilder; |
Lines 35-40
my $patron_1 = $builder->build({ source => 'Borrower' });
Link Here
|
35 |
my $patron_2 = $builder->build({ source => 'Borrower' }); |
39 |
my $patron_2 = $builder->build({ source => 'Borrower' }); |
36 |
my $biblio_1 = $builder->build({ source => 'Biblio' }); |
40 |
my $biblio_1 = $builder->build({ source => 'Biblio' }); |
37 |
my $biblio_2 = $builder->build({ source => 'Biblio' }); |
41 |
my $biblio_2 = $builder->build({ source => 'Biblio' }); |
|
|
42 |
my $nb_of_messages = Koha::Notice::Messages->search->count; |
38 |
my $nb_of_reviews = Koha::Reviews->search->count; |
43 |
my $nb_of_reviews = Koha::Reviews->search->count; |
39 |
my $nb_of_approved_reviews = Koha::Reviews->search({ approved => 1 })->count; |
44 |
my $nb_of_approved_reviews = Koha::Reviews->search({ approved => 1 })->count; |
40 |
my $new_review_1_1 = Koha::Review->new({ |
45 |
my $new_review_1_1 = Koha::Review->new({ |
Lines 68-73
is( $retrieved_review_1_1->review, $new_review_1_1->review, 'Find a review by id
Link Here
|
68 |
$retrieved_review_1_1->delete; |
73 |
$retrieved_review_1_1->delete; |
69 |
is( Koha::Reviews->search->count, $nb_of_reviews + 2, 'Delete should have deleted the review' ); |
74 |
is( Koha::Reviews->search->count, $nb_of_reviews + 2, 'Delete should have deleted the review' ); |
70 |
|
75 |
|
|
|
76 |
# Test SendReview Alert |
77 |
|
78 |
# empty CommentModeratorsEmail |
79 |
t::lib::Mocks::mock_preference('CommentModeratorsEmail',undef); |
80 |
warning_like { |
81 |
$new_review_1_2->SendReviewAlert({ |
82 |
borrowernumber => $patron_1->{borrowernumber}, |
83 |
biblionumber => $biblio_2->{biblionumber}, |
84 |
reviewid => $new_review_1_2->reviewid |
85 |
}) } qr/CommentModeratorsEmail is not set!/, 'SendReviewAlert triggered expected CommentModeratorsEmail warning.'; |
86 |
is( Koha::Notice::Messages->search->count, $nb_of_messages, 'SendReviewAlert lacking CommentModeratorsEmail triggered nothing.' ); |
87 |
|
88 |
# set CommentModeratorsEmail |
89 |
t::lib::Mocks::mock_preference('CommentModeratorsEmail','test@test.test'); |
90 |
warning_is { |
91 |
$new_review_1_2->SendReviewAlert({ |
92 |
borrowernumber => $patron_1->{borrowernumber}, |
93 |
biblionumber => $biblio_2->{biblionumber}, |
94 |
reviewid => $new_review_1_2->reviewid |
95 |
}) } '', 'SendReviewAlert triggered no warnings as expected.'; |
96 |
is( Koha::Notice::Messages->search->count, $nb_of_messages+1, 'SendReviewAlert triggered notice.' ); |
97 |
|
98 |
# letter missing |
99 |
Koha::Notice::Templates->search({ |
100 |
module => 'members', |
101 |
code => 'COMMENT_CREATED' |
102 |
})->delete; |
103 |
warnings_like { |
104 |
$new_review_1_2->SendReviewAlert({ |
105 |
borrowernumber => $patron_1->{borrowernumber}, |
106 |
biblionumber => $biblio_2->{biblionumber}, |
107 |
reviewid => $new_review_1_2->reviewid |
108 |
}) } |
109 |
[ qr/No members COMMENT_CREATED letter transported by email/, |
110 |
qr/COMMENT_CREATED member letter not found!/ ] , 'SendReviewAlert triggered expected COMMENT_CREATED warnings.'; |
111 |
is( Koha::Notice::Messages->search->count, $nb_of_messages+1, 'SendReviewAlert lacking letter triggered nothing new.' ); |
112 |
|
71 |
$schema->storage->txn_rollback; |
113 |
$schema->storage->txn_rollback; |
72 |
|
114 |
|
73 |
1; |
115 |
1; |
74 |
- |
|
|