Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 77; |
20 |
use Test::More tests => 56; |
21 |
use Test::MockModule; |
21 |
use Test::MockModule; |
22 |
use Data::Dumper; |
22 |
use Data::Dumper; |
23 |
use C4::Context; |
23 |
use C4::Context; |
Lines 164-213
ModMember(borrowernumber => $member->{'borrowernumber'}, dateexpiry => '2001-01-
Link Here
|
164 |
$member = GetMemberDetails($member->{'borrowernumber'}); |
164 |
$member = GetMemberDetails($member->{'borrowernumber'}); |
165 |
ok($member->{is_expired}, "GetMemberDetails() indicates that patron is expired"); |
165 |
ok($member->{is_expired}, "GetMemberDetails() indicates that patron is expired"); |
166 |
|
166 |
|
167 |
|
|
|
168 |
my $message_type = 'B'; |
169 |
my $message = 'my message'; |
170 |
my $messages_count = GetMessagesCount($member->{borrowernumber}, $message_type, $BRANCHCODE); |
171 |
is( $messages_count, 0, 'GetMessagesCount returns the number of messages correclty' ); |
172 |
|
173 |
is( AddMessage(), undef, 'AddMessage without argument returns undef' ); |
174 |
is( AddMessage(undef, $message_type, $message, $BRANCHCODE), undef, 'AddMessage without the borrower number returns undef' ); |
175 |
is( AddMessage($member->{borrowernumber}, undef, $message, $BRANCHCODE), undef, 'AddMessage without the message type returns undef' ); |
176 |
is( AddMessage($member->{borrowernumber}, $message_type, undef, $BRANCHCODE), undef, 'AddMessage without the message returns undef' ); |
177 |
is( AddMessage($member->{borrowernumber}, $message_type, $message, undef), undef, 'AddMessage without the branch code returns undef' ); |
178 |
is( AddMessage($member->{borrowernumber}, $message_type, $message, $BRANCHCODE), 1, 'AddMessage functions correctly' ); |
179 |
|
180 |
$messages_count = GetMessagesCount(); |
181 |
is( $messages_count, 0, 'GetMessagesCount without argument returns 0' ); |
182 |
$messages_count = GetMessagesCount(undef, $message_type, $BRANCHCODE); |
183 |
is( $messages_count, '0', 'GetMessagesCount without the borrower number returns the number of messages' ); |
184 |
$messages_count = GetMessagesCount($member->{borrowernumber}, undef, $BRANCHCODE); |
185 |
is( $messages_count, '1', 'GetMessagesCount without the message type returns the total number of messages' ); |
186 |
$messages_count = GetMessagesCount($member->{borrowernumber}, $message_type, undef); |
187 |
is( $messages_count, '1', 'GetMessagesCount without the branchcode returns the total number of messages' ); |
188 |
$messages_count = GetMessagesCount($member->{borrowernumber}, $message_type, $BRANCHCODE); |
189 |
is( $messages_count, '1', 'GetMessagesCount returns the number of messages correctly' ); |
190 |
|
191 |
my $messages = GetMessages(); |
192 |
is( @$messages, 0, 'GetMessages without argument returns 0' ); |
193 |
$messages = GetMessages($member->{borrowernumber}, $message_type, $BRANCHCODE); |
194 |
is( @$messages, 1, 'GetMessages returns the correct number of messages' ); |
195 |
is( $messages->[0]->{borrowernumber}, $member->{borrowernumber}, 'GetMessages returns the borrower number correctly' ); |
196 |
is( $messages->[0]->{message_type}, $message_type, 'GetMessages returns the message type correclty' ); |
197 |
is( $messages->[0]->{message}, $message, 'GetMessages returns the message correctly' ); |
198 |
is( $messages->[0]->{branchcode}, $BRANCHCODE, 'GetMessages returns the branch code correctly' ); |
199 |
|
200 |
$messages_count = GetMessagesCount($member->{borrowernumber}, $message_type, $BRANCHCODE); |
201 |
is( $messages_count, 1, 'GetMessagesCount returns the number of messages correclty' ); |
202 |
|
203 |
DeleteMessage(); |
204 |
$messages = GetMessages($member->{borrowernumber}, $message_type, $BRANCHCODE); |
205 |
is( @$messages, 1, 'DeleteMessage without message id does not delete messages' ); |
206 |
DeleteMessage($messages->[0]->{message_id}); |
207 |
$messages = GetMessages($member->{borrowernumber}, $message_type, $BRANCHCODE); |
208 |
is( @$messages, 0, 'DeleteMessage deletes a message correctly' ); |
209 |
|
210 |
|
211 |
# clean up |
167 |
# clean up |
212 |
DelMember($member->{borrowernumber}); |
168 |
DelMember($member->{borrowernumber}); |
213 |
my $borrower = GetMember( cardnumber => $CARDNUMBER ); |
169 |
my $borrower = GetMember( cardnumber => $CARDNUMBER ); |
214 |
- |
|
|