|
Lines 17-23
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use Test::More tests => 74; |
20 |
use Test::More tests => 53; |
| 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 |
- |
|
|