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

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

Return to bug 16426