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

(-)a/t/db_dependent/Borrower_Debarments.t (-18 / +17 lines)
Lines 26-39 my $success = AddDebarment({ Link Here
26
    type => 'MANUAL',
26
    type => 'MANUAL',
27
    comment => 'Test 1',
27
    comment => 'Test 1',
28
});
28
});
29
ok( $success, "AddDebarment returned true" );
29
is( $success, 1, "AddDebarment returned true" );
30
30
31
31
32
my $debarments = GetDebarments({ borrowernumber => $borrowernumber });
32
my $debarments = GetDebarments({ borrowernumber => $borrowernumber });
33
ok( @$debarments == 1, "GetDebarments returns 1 debarment" );
33
is( @$debarments, 1, "GetDebarments returns 1 debarment" );
34
ok( $debarments->[0]->{'type'} eq 'MANUAL', "Correctly stored 'type'" );
34
is( $debarments->[0]->{'type'}, 'MANUAL', "Correctly stored 'type'" );
35
ok( $debarments->[0]->{'expiration'} eq '9999-06-10', "Correctly stored 'expiration'" );
35
is( $debarments->[0]->{'expiration'}, '9999-06-10', "Correctly stored 'expiration'" );
36
ok( $debarments->[0]->{'comment'} eq 'Test 1', "Correctly stored 'comment'" );
36
is( $debarments->[0]->{'comment'}, 'Test 1', "Correctly stored 'comment'" );
37
37
38
38
39
$success = AddDebarment({
39
$success = AddDebarment({
Lines 42-51 $success = AddDebarment({ Link Here
42
});
42
});
43
43
44
$debarments = GetDebarments({ borrowernumber => $borrowernumber });
44
$debarments = GetDebarments({ borrowernumber => $borrowernumber });
45
ok( @$debarments == 2, "GetDebarments returns 2 debarments" );
45
is( @$debarments, 2, "GetDebarments returns 2 debarments" );
46
ok( $debarments->[1]->{'type'} eq 'MANUAL', "Correctly stored 'type'" );
46
is( $debarments->[1]->{'type'}, 'MANUAL', "Correctly stored 'type'" );
47
ok( !$debarments->[1]->{'expiration'}, "Correctly stored debarrment with no expiration" );
47
is( $debarments->[1]->{'expiration'}, undef, "Correctly stored debarrment with no expiration" );
48
ok( $debarments->[1]->{'comment'} eq 'Test 2', "Correctly stored 'comment'" );
48
is( $debarments->[1]->{'comment'}, 'Test 2', "Correctly stored 'comment'" );
49
49
50
50
51
ModDebarment({
51
ModDebarment({
Lines 54-65 ModDebarment({ Link Here
54
    expiration => '9998-06-10',
54
    expiration => '9998-06-10',
55
});
55
});
56
$debarments = GetDebarments({ borrowernumber => $borrowernumber });
56
$debarments = GetDebarments({ borrowernumber => $borrowernumber });
57
ok( $debarments->[1]->{'comment'} eq 'Test 3', "ModDebarment functions correctly" );
57
is( $debarments->[1]->{'comment'}, 'Test 3', "ModDebarment functions correctly" );
58
58
59
59
60
my $borrower = GetMember( borrowernumber => $borrowernumber );
60
my $borrower = GetMember( borrowernumber => $borrowernumber );
61
ok( $borrower->{'debarred'} eq '9999-06-10', "Field borrowers.debarred set correctly" );
61
is( $borrower->{'debarred'}, '9999-06-10', "Field borrowers.debarred set correctly" );
62
ok( $borrower->{'debarredcomment'} eq "Test 1\nTest 3", "Field borrowers.debarredcomment set correctly" );
62
is( $borrower->{'debarredcomment'}, "Test 1\nTest 3", "Field borrowers.debarredcomment set correctly" );
63
63
64
64
65
AddUniqueDebarment({
65
AddUniqueDebarment({
Lines 70-77 $debarments = GetDebarments({ Link Here
70
    borrowernumber => $borrowernumber,
70
    borrowernumber => $borrowernumber,
71
    type => 'OVERDUES',
71
    type => 'OVERDUES',
72
});
72
});
73
ok( @$debarments == 1, "GetDebarments returns 1 OVERDUES debarment" );
73
is( @$debarments, 1, "GetDebarments returns 1 OVERDUES debarment" );
74
ok( $debarments->[0]->{'type'} eq 'OVERDUES', "AddOverduesDebarment created new debarment correctly" );
74
is( $debarments->[0]->{'type'}, 'OVERDUES', "AddOverduesDebarment created new debarment correctly" );
75
75
76
AddUniqueDebarment({
76
AddUniqueDebarment({
77
    borrowernumber => $borrowernumber,
77
    borrowernumber => $borrowernumber,
Lines 82-89 $debarments = GetDebarments({ Link Here
82
    borrowernumber => $borrowernumber,
82
    borrowernumber => $borrowernumber,
83
    type => 'OVERDUES',
83
    type => 'OVERDUES',
84
});
84
});
85
ok( @$debarments == 1, "GetDebarments returns 1 OVERDUES debarment after running AddOverduesDebarment twice" );
85
is( @$debarments, 1, "GetDebarments returns 1 OVERDUES debarment after running AddOverduesDebarment twice" );
86
ok( $debarments->[0]->{'expiration'} eq '9999-11-09', "AddOverduesDebarment updated OVERDUES debarment correctly" );
86
is( $debarments->[0]->{'expiration'}, '9999-11-09', "AddOverduesDebarment updated OVERDUES debarment correctly" );
87
87
88
88
89
DelUniqueDebarment({
89
DelUniqueDebarment({
Lines 102-108 foreach my $d ( @$debarments ) { Link Here
102
    DelDebarment( $d->{'borrower_debarment_id'} );
102
    DelDebarment( $d->{'borrower_debarment_id'} );
103
}
103
}
104
$debarments = GetDebarments({ borrowernumber => $borrowernumber });
104
$debarments = GetDebarments({ borrowernumber => $borrowernumber });
105
ok( @$debarments == 0, "DelDebarment functions correctly" );
105
is( @$debarments, 0, "DelDebarment functions correctly" );
106
106
107
$dbh->do(q|UPDATE borrowers SET debarred = '1970-01-01'|);
107
$dbh->do(q|UPDATE borrowers SET debarred = '1970-01-01'|);
108
is( IsDebarred( $borrowernumber ), undef, 'A patron with a debarred date in the past is not debarred' );
108
is( IsDebarred( $borrowernumber ), undef, 'A patron with a debarred date in the past is not debarred' );
109
- 

Return to bug 12416