View | Details | Raw Unified | Return to bug 15632
Collapse All | Expand All

(-)a/t/db_dependent/Members.t (-46 / +1 lines)
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
- 

Return to bug 15632