1 package KohaTest::Members::DebarMember;
2 use base qw( KohaTest::Members );
10 sub testing_class { 'C4::Members' };
13 sub simple_usage : Test( 6 ) {
16 ok( $self->{'memberid'}, 'we have a valid memberid to test with' );
18 my $details = C4::Members::GetMemberDetails( $self->{'memberid'} );
19 ok( exists $details->{'flags'}, 'member details has a "flags" attribute');
20 isa_ok( $details->{'flags'}, 'HASH', 'the "flags" attribute is a hashref');
21 ok( ! $details->{'flags'}->{'DBARRED'}, 'this member is NOT debarred' );
23 # Now, let's debar this member and see what happens
24 my $success = C4::Members::DebarMember( $self->{'memberid'} );
26 ok( $success, 'we were able to debar the member' );
28 $details = C4::Members::GetMemberDetails( $self->{'memberid'} );
29 ok( $details->{'flags'}->{'DBARRED'}, 'this member is debarred now' )
30 or diag( Data::Dumper->Dump( [ $details->{'flags'} ], [ 'flags' ] ) );
33 sub incorrect_usage : Test( 2 ) {
36 my $result = C4::Members::DebarMember();
37 ok( ! defined $result, 'DebarMember returns undef when passed no parameters' );
39 $result = C4::Members::DebarMember( 'this is not a borrowernumber' );
40 ok( ! defined $result, 'DebarMember returns undef when not passed a numeric argument' );