|
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 => 74; |
| 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'); |