Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 76; |
20 |
use Test::More tests => 77; |
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 231-236
$borrowernumber = AddMember( %data );
Link Here
|
231 |
$borrower = GetMember( borrowernumber => $borrowernumber ); |
231 |
$borrower = GetMember( borrowernumber => $borrowernumber ); |
232 |
is( $borrower->{userid}, $data{userid}, 'AddMember should insert the given userid' ); |
232 |
is( $borrower->{userid}, $data{userid}, 'AddMember should insert the given userid' ); |
233 |
|
233 |
|
|
|
234 |
subtest 'ModMember should not update userid if not true' => sub { |
235 |
plan tests => 3; |
236 |
ModMember( borrowernumber => $borrowernumber, firstname => 'Tomas', userid => '' ); |
237 |
$borrower = GetMember( borrowernumber => $borrowernumber ); |
238 |
is ( $borrower->{userid}, $data{userid}, 'ModMember should not update the userid with an empty string' ); |
239 |
ModMember( borrowernumber => $borrowernumber, firstname => 'Tomas', userid => 0 ); |
240 |
$borrower = GetMember( borrowernumber => $borrowernumber ); |
241 |
is ( $borrower->{userid}, $data{userid}, 'ModMember should not update the userid with an 0'); |
242 |
ModMember( borrowernumber => $borrowernumber, firstname => 'Tomas', userid => undef ); |
243 |
$borrower = GetMember( borrowernumber => $borrowernumber ); |
244 |
is ( $borrower->{userid}, $data{userid}, 'ModMember should not update the userid with an undefined value'); |
245 |
}; |
246 |
|
234 |
#Regression tests for bug 10612 |
247 |
#Regression tests for bug 10612 |
235 |
my $library3 = $builder->build({ |
248 |
my $library3 = $builder->build({ |
236 |
source => 'Branch', |
249 |
source => 'Branch', |
237 |
- |
|
|