|
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 |
- |
|
|