Attachment 117516 Details for Bug 27833 – Bug 27833: Make Koha::Exceptions::Patron::Attribute::* have parameters

[patch] Bug 27833: Make Koha::Exceptions::Patron::Attribute::* have parameters

Bug-27833-Make-KohaExceptionsPatronAttribute-have-.patch (text/plain), 4.81 KB, created by Tomás Cohen Arazi (tcohen) on 2021-03-02 14:19:27 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Tomás Cohen Arazi (tcohen)

Created: 2021-03-02 14:19:27 UTC

Size: 4.81 KB

patch

obsolete

>From be245fd77864c69e2c17652c8445e74b58d83248 Mon Sep 17 00:00:00 2001
>From: Tomas Cohen Arazi <tomascohen@theke.io>
>Date: Tue, 2 Mar 2021 11:04:38 -0300
>Subject: [PATCH] Bug 27833: Make Koha::Exceptions::Patron::Attribute::* have
> parameters
>
>This patch adds a 'field' to this exceptions. They now have an
>'attribute' parameter referencing the object itself,
>
>To test:
>1. Apply this patch
>2. Run:
>   $ kshell
>  k$ prove t/Koha/Exceptions.t
>=> SUCCESS: Tests pass!
>3. Sign off!
>---
> Koha/Exceptions/Patron/Attribute.pm | 61 +++++++++++++++++++++++++++--
> t/Koha/Exceptions.t                 | 31 ++++++++++++++-
> 2 files changed, 87 insertions(+), 5 deletions(-)
>
>diff --git a/Koha/Exceptions/Patron/Attribute.pm b/Koha/Exceptions/Patron/Attribute.pm
>index 80d7370894c..93bc34ca470 100644
>--- a/Koha/Exceptions/Patron/Attribute.pm
>+++ b/Koha/Exceptions/Patron/Attribute.pm
>@@ -8,13 +8,66 @@ use Exception::Class (
>         description => 'Something went wrong'
>     },
>     'Koha::Exceptions::Patron::Attribute::NonRepeatable' => {
>-        isa => 'Koha::Exceptions::Patron::Attribute',
>-        description => "repeatable not set for attribute type and tried to add a new attribute for the same code"
>+        isa         => 'Koha::Exceptions::Patron::Attribute',
>+        description => "repeatable not set for attribute type and tried to add a new attribute for the same code",
>+        fields      => [ "attribute" ]
>     },
>     'Koha::Exceptions::Patron::Attribute::UniqueIDConstraint' => {
>-        isa => 'Koha::Exceptions::Patron::Attribute',
>-        description => "unique_id set for attribute type and tried to add a new with the same code and value"
>+        isa         => 'Koha::Exceptions::Patron::Attribute',
>+        description => "unique_id set for attribute type and tried to add a new with the same code and value",
>+        fields      => [ "attribute" ]
>     }
> );
> 
>+sub full_message {
>+    my $self = shift;
>+
>+    my $msg = $self->message;
>+
>+    unless ( $msg) {
>+        if ( $self->isa('Koha::Exceptions::Patron::Attribute::NonRepeatable') ) {
>+            $msg = sprintf(
>+                "Tried to add more than one non-repeatable attributes. code=%s attribute=%s",
>+                $self->attribute->code,
>+                $self->attribute->attribute
>+            );
>+        }
>+        elsif ( $self->isa('Koha::Exceptions::Patron::Attribute::UniqueIDConstraint') ) {
>+            $msg = sprintf(
>+                "Your action breaks a unique constraint on the attribute. code=%s attribute=%s",
>+                $self->attribute->code,
>+                $self->attribute->attribute
>+            );
>+        }
>+    }
>+
>+    return $msg;
>+}
>+
>+=head1 NAME
>+
>+Koha::Exceptions::Patron::Attribute - Base class for patron attribute exceptions
>+
>+=head1 Exceptions
>+
>+=head2 Koha::Exceptions::Patron::Attribute
>+
>+Generic patron attribute exception
>+
>+=head2 Koha::Exceptions::Patron::Attribute::NonRepeatable
>+
>+Exception to be used trying to add more than one non-repeatable attribute.
>+
>+=head2 Koha::Exceptions::Patron::Attribute::UniqueIDConstraint
>+
>+Exception to be used when trying to add an attribute that breaks its type unique constraint.
>+
>+=head1 Class methods
>+
>+=head2 full_message
>+
>+Overloaded method for exception stringifying.
>+
>+=cut
>+
> 1;
>diff --git a/t/Koha/Exceptions.t b/t/Koha/Exceptions.t
>index 5cd3f1cfffa..1a019435825 100755
>--- a/t/Koha/Exceptions.t
>+++ b/t/Koha/Exceptions.t
>@@ -17,7 +17,7 @@
> 
> use Modern::Perl;
> 
>-use Test::More tests => 6;
>+use Test::More tests => 7;
> use Test::MockObject;
> use Test::Exception;
> 
>@@ -197,3 +197,32 @@ subtest 'Koha::Exceptions::Object::NotInstantiated tests' => sub {
>         'Exception is thrown :-D';
>     is( "$@", 'Manual message exception', 'Exception not stringified if manually passed' );
> };
>+
>+subtest 'Koha::Exceptions::Patron::Attribute::* tests' => sub {
>+
>+    plan tests => 5;
>+
>+    use_ok("Koha::Exceptions::Patron::Attribute");
>+
>+    my $code      = 'CODE';
>+    my $attribute = 'ATTRIBUTE';
>+
>+    my $mocked_attribute = Test::MockObject->new();
>+    $mocked_attribute->mock('code', sub { return $code } );
>+    $mocked_attribute->mock('attribute', sub { return $attribute } );
>+
>+    throws_ok
>+        { Koha::Exceptions::Patron::Attribute::NonRepeatable->throw(
>+            attribute => $mocked_attribute ); }
>+        'Koha::Exceptions::Patron::Attribute::NonRepeatable',
>+        'Exception is thrown :-D';
>+
>+    # stringify the exception
>+    is( "$@", "Tried to add more than one non-repeatable attributes. code=$code attribute=$attribute", 'Exception stringified correctly' );
>+
>+    throws_ok
>+        { Koha::Exceptions::Patron::Attribute::NonRepeatable->throw( "Manual message exception" ) }
>+        'Koha::Exceptions::Patron::Attribute::NonRepeatable',
>+        'Exception is thrown :-D';
>+    is( "$@", 'Manual message exception', 'Exception not stringified if manually passed' );
>+};
>-- 
>2.30.1

Actions: View | Diff | Splinter Review

Attachments on bug 27833: 117516 | 117517 | 117518 | 117546 | 117547 | 117548 | 117676 | 117701 | 117702 | 117703 | 117704