Lines 770-777
subtest 'Return same values as DBIx::Class' => sub {
Link Here
|
770 |
defined $e_us && defined $e_them, |
770 |
defined $e_us && defined $e_them, |
771 |
'Delete patrons with one that cannot be deleted should raise an exception' |
771 |
'Delete patrons with one that cannot be deleted should raise an exception' |
772 |
); |
772 |
); |
773 |
is( ref($e_us), 'DBIx::Class::Exception' ) |
773 |
is( ref($e_us), 'Koha::Exceptions::Object::FKConstraintDeletion' ); |
774 |
; # FIXME This needs adjustement, we want to throw a Koha::Exception |
|
|
775 |
|
774 |
|
776 |
ok($not_deleted_us == 3 && $not_deleted_them == 3, 'If one patron cannot be deleted, none should have been deleted'); |
775 |
ok($not_deleted_us == 3 && $not_deleted_them == 3, 'If one patron cannot be deleted, none should have been deleted'); |
777 |
}; |
776 |
}; |
778 |
- |
|
|