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

(-)a/t/db_dependent/Borrower_Debarments.t (-21 / +14 lines)
Lines 1-32 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use strict;
3
use Modern::Perl;
4
use warnings;
5
4
6
use C4::Context;
5
use C4::Context;
7
use C4::Members;
6
use C4::Members;
8
7
9
use Test::More tests => 18;
8
use Test::More tests => 18;
10
9
11
BEGIN {
10
use_ok('Koha::Borrower::Debarments');
12
    use FindBin;
13
    use lib $FindBin::Bin;
14
    use_ok('Koha::Borrower::Debarments');
15
}
16
11
17
# Get a borrower with no current debarments
12
my $dbh = C4::Context->dbh;
18
my $dbh   = C4::Context->dbh;
13
$dbh->{AutoCommit} = 0;
19
my $query = "
14
$dbh->{RaiseError} = 1;
20
    SELECT b.borrowernumber FROM borrowers b
21
    LEFT JOIN borrower_debarments bd ON ( b.borrowernumber = bd.borrowernumber )
22
    WHERE b.debarred IS NULL AND b.debarredcomment IS NULL AND bd.borrowernumber IS NULL
23
    LIMIT 1
24
";
25
my $sth = $dbh->prepare($query);
26
$sth->execute;
27
my ($borrowernumber) = $sth->fetchrow_array();
28
diag("Using borrowernumber: $borrowernumber");
29
15
16
my $borrowernumber = AddMember(
17
    firstname =>  'my firstname',
18
    surname => 'my surname',
19
    categorycode => 'S',
20
    branchcode => 'CPL',
21
);
30
22
31
my $success = AddDebarment({
23
my $success = AddDebarment({
32
    borrowernumber => $borrowernumber,
24
    borrowernumber => $borrowernumber,
Lines 99-102 foreach my $d ( @$debarments ) { Link Here
99
    DelDebarment( $d->{'borrower_debarment_id'} );
91
    DelDebarment( $d->{'borrower_debarment_id'} );
100
}
92
}
101
$debarments = GetDebarments({ borrowernumber => $borrowernumber });
93
$debarments = GetDebarments({ borrowernumber => $borrowernumber });
102
ok( @$debarments == 0, "DelDebarment functions correctly" )
94
ok( @$debarments == 0, "DelDebarment functions correctly" );
95
96
$dbh->rollback;
103
- 

Return to bug 2720