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