From 9427edc2f6ae268f2af65c21b6b7850b31f35358 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Fri, 4 Nov 2016 12:18:57 -0300 Subject: [PATCH] Bug 17494: (QA followup) Fix exception name This patch changes the exception name to match the package name. And also adds a test for the thrown exception message. Also creates a general Koha::Exception::Patron::Modification exception to make the new one inherit from it, following the common use in the codebase. Signed-off-by: Tomas Cohen Arazi Signed-off-by: Kyle M Hall --- Koha/Exceptions/Patron/Modification.pm | 10 +++++++--- Koha/Patron/Modification.pm | 4 +++- t/db_dependent/Koha_borrower_modifications.t | 5 +++-- 3 files changed, 13 insertions(+), 6 deletions(-) diff --git a/Koha/Exceptions/Patron/Modification.pm b/Koha/Exceptions/Patron/Modification.pm index 1068fbb549..4cf5cfafb1 100644 --- a/Koha/Exceptions/Patron/Modification.pm +++ b/Koha/Exceptions/Patron/Modification.pm @@ -3,10 +3,14 @@ package Koha::Exceptions::Patron::Modification; use Modern::Perl; use Exception::Class ( - 'Koha::Exceptions::Koha::Patron::Modification::DuplicateVerificationToken' => { - isa => 'Koha::Exceptions::Object', - description => "The verification token given already exists", + + 'Koha::Exceptions::Patron::Modification' => { + description => 'Something went wrong' }, + 'Koha::Exceptions::Patron::Modification::DuplicateVerificationToken' => { + isa => 'Koha::Exceptions::Patron::Modification', + description => "The verification token given already exists" + } ); 1; diff --git a/Koha/Patron/Modification.pm b/Koha/Patron/Modification.pm index 63f124fdae..d1e033b3b6 100644 --- a/Koha/Patron/Modification.pm +++ b/Koha/Patron/Modification.pm @@ -45,7 +45,9 @@ sub store { if ( $self->verification_token ) { if ( Koha::Patron::Modifications->search( { verification_token => $self->verification_token } )->count() ) { - Koha::Exceptions::Koha::Patron::Modification::DuplicateVerificationToken->throw; + Koha::Exceptions::Patron::Modification::DuplicateVerificationToken->throw( + "Duplicate verification token " . $self->verification_token + ); } } diff --git a/t/db_dependent/Koha_borrower_modifications.t b/t/db_dependent/Koha_borrower_modifications.t index 80eb6e2d32..0a03821d7d 100755 --- a/t/db_dependent/Koha_borrower_modifications.t +++ b/t/db_dependent/Koha_borrower_modifications.t @@ -1,7 +1,7 @@ #!/usr/bin/perl use Modern::Perl; -use Test::More tests => 9; +use Test::More tests => 10; use Try::Tiny; use t::lib::TestBuilder; @@ -39,8 +39,9 @@ try { } )->store(); } catch { - ok( $_->isa('Koha::Exceptions::Koha::Patron::Modification::DuplicateVerificationToken'), + ok( $_->isa('Koha::Exceptions::Patron::Modification::DuplicateVerificationToken'), 'Attempting to add a duplicate verification token to the database should raise a Koha::Exceptions::Koha::Patron::Modification::DuplicateVerificationToken exception' ); + is( $_->message, "Duplicate verification token 1234567890", 'Exception carries the right message' ); }; ## Get the new pending modification -- 2.39.5