Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 82; |
20 |
use Test::More tests => 79; |
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 154-174
ModMember(borrowernumber => $member->{'borrowernumber'}, dateexpiry => '2001-01-
Link Here
|
154 |
$member = GetMemberDetails($member->{'borrowernumber'}); |
154 |
$member = GetMemberDetails($member->{'borrowernumber'}); |
155 |
ok($member->{is_expired}, "GetMemberDetails() indicates that patron is expired"); |
155 |
ok($member->{is_expired}, "GetMemberDetails() indicates that patron is expired"); |
156 |
|
156 |
|
157 |
# Create a reserve for the patron |
|
|
158 |
$builder->build({ |
159 |
source => 'Reserve', |
160 |
value => { |
161 |
borrowernumber => $member->{ borrowernumber } |
162 |
} |
163 |
}); |
164 |
is( Koha::Holds->search({ borrowernumber => $member->{borrowernumber} })->count, |
165 |
1, 'Hold created correctly' ); |
166 |
DelMember($member->{borrowernumber}); |
167 |
my $borrower = GetMember( cardnumber => $CARDNUMBER ); |
168 |
is( $borrower, undef, 'DelMember should remove the patron' ); |
169 |
is( Koha::Holds->search({ borrowernumber => $member->{borrowernumber} })->count, |
170 |
0, 'Hold deleted correctly' ); |
171 |
|
172 |
# Check_Userid tests |
157 |
# Check_Userid tests |
173 |
%data = ( |
158 |
%data = ( |
174 |
cardnumber => "123456789", |
159 |
cardnumber => "123456789", |
Lines 192-198
is( Check_Userid( 'tomasito.none', '' ), 0,
Link Here
|
192 |
is( Check_Userid( 'tomasitoxxx', '' ), 1, |
177 |
is( Check_Userid( 'tomasitoxxx', '' ), 1, |
193 |
'non-existent userid -> unique (blank borrowernumber)' ); |
178 |
'non-existent userid -> unique (blank borrowernumber)' ); |
194 |
|
179 |
|
195 |
$borrower = GetMember( borrowernumber => $borrowernumber ); |
180 |
my $borrower = GetMember( borrowernumber => $borrowernumber ); |
196 |
is( $borrower->{dateofbirth}, undef, 'AddMember should undef dateofbirth if empty string is given'); |
181 |
is( $borrower->{dateofbirth}, undef, 'AddMember should undef dateofbirth if empty string is given'); |
197 |
is( $borrower->{debarred}, undef, 'AddMember should undef debarred if empty string is given'); |
182 |
is( $borrower->{debarred}, undef, 'AddMember should undef debarred if empty string is given'); |
198 |
isnt( $borrower->{dateexpiry}, '0000-00-00', 'AddMember should not set dateexpiry to 0000-00-00 if empty string is given'); |
183 |
isnt( $borrower->{dateexpiry}, '0000-00-00', 'AddMember should not set dateexpiry to 0000-00-00 if empty string is given'); |