|
Lines 81-93
subtest 'delete() tests' => sub {
Link Here
|
| 81 |
} |
81 |
} |
| 82 |
); |
82 |
); |
| 83 |
ok( $used_restriction_type->delete, 'Used restriction type deleted' ); |
83 |
ok( $used_restriction_type->delete, 'Used restriction type deleted' ); |
| 84 |
my $debarments = Koha::Patron::Debarments::GetDebarments( |
84 |
my $restrictions = $patron->restrictions; |
| 85 |
{ |
85 |
my $THE_restriction = $restrictions->next; |
| 86 |
borrowernumber => $patron->borrowernumber |
|
|
| 87 |
} |
| 88 |
); |
| 89 |
is( |
86 |
is( |
| 90 |
$debarments->[0]->{type}, |
87 |
$THE_restriction->type->code, |
| 91 |
$default_restriction_type->code, |
88 |
$default_restriction_type->code, |
| 92 |
'Used restriction updated to default' |
89 |
'Used restriction updated to default' |
| 93 |
); |
90 |
); |
| 94 |
- |
|
|