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