Attachment 84349 Details for Bug 22194 – Bug 22194: Add Koha::Exceptions::Metadata

[patch] Bug 22194: Add Koha::Exceptions::Metadata

Bug-22194-Add-KohaExceptionsMetadata.patch (text/plain), 4.39 KB, created by Josef Moravec on 2019-01-24 12:46:35 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Josef Moravec

Created: 2019-01-24 12:46:35 UTC

Size: 4.39 KB

patch

obsolete

>From 92bd93495e596fc61c09de0b94cad83a97800453 Mon Sep 17 00:00:00 2001
>From: Tomas Cohen Arazi <tomascohen@theke.io>
>Date: Wed, 23 Jan 2019 13:10:14 -0300
>Subject: [PATCH] Bug 22194: Add Koha::Exceptions::Metadata
>
>This trivial patch adds a basic Koha::Exceptions::Metadata exception and
>Koha::Exceptions::Metadata::Invalid for using when the data cannot be
>decoded (maybe because of incompatibility between format, schema, or
>just bad data).
>
>To test:
>- Apply this patch
>- Run:
>  $ kshell
> k$ prove t/Koha/Exceptions.t
>=> SUCCESS: Tests pass!
>- Sign off :-D
>
>Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
>
>Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
>
>Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
>---
> Koha/Exceptions/Metadata.pm | 69 +++++++++++++++++++++++++++++++++++++++++++++
> t/Koha/Exceptions.t         | 29 ++++++++++++++++++-
> 2 files changed, 97 insertions(+), 1 deletion(-)
> create mode 100644 Koha/Exceptions/Metadata.pm
>
>diff --git a/Koha/Exceptions/Metadata.pm b/Koha/Exceptions/Metadata.pm
>new file mode 100644
>index 0000000000..d9f55efd56
>--- /dev/null
>+++ b/Koha/Exceptions/Metadata.pm
>@@ -0,0 +1,69 @@
>+package Koha::Exceptions::Metadata;
>+
>+# This file is part of Koha.
>+#
>+# Koha is free software; you can redistribute it and/or modify it under the
>+# terms of the GNU General Public License as published by the Free Software
>+# Foundation; either version 3 of the License, or (at your option) any later
>+# version.
>+#
>+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
>+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
>+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
>+#
>+# You should have received a copy of the GNU General Public License along
>+# with Koha; if not, write to the Free Software Foundation, Inc.,
>+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
>+
>+use Modern::Perl;
>+
>+use Exception::Class (
>+
>+    'Koha::Exceptions::Metadata' => {
>+        description => 'Something went wrong!',
>+    },
>+    'Koha::Exceptions::Metadata::Invalid' => {
>+        isa => 'Koha::Exceptions::Metadata',
>+        description => 'Invalid data',
>+        fields => ['id','format','schema']
>+    }
>+);
>+
>+sub full_message {
>+    my $self = shift;
>+
>+    my $msg = $self->message;
>+
>+    unless ($msg) {
>+        if ( $self->isa('Koha::Exceptions::Metadata::Invalid') ) {
>+            $msg = sprintf( "Invalid data, cannot decode object (id=%s, format=%s, schema=%s)",
>+                $self->id, $self->format, $self->schema );
>+        }
>+    }
>+
>+    return $msg;
>+}
>+
>+=head1 NAME
>+
>+Koha::Exceptions::Metadata - Base class for metadata exceptions
>+
>+=head1 Exceptions
>+
>+=head2 Koha::Exceptions::Metadata
>+
>+Generic metadata exception
>+
>+=head2 Koha::Exceptions::Metadata::Invalid
>+
>+The metadata is invalid.
>+
>+=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 7ecc115cfd..82aa496cb3 100644
>--- a/t/Koha/Exceptions.t
>+++ b/t/Koha/Exceptions.t
>@@ -17,7 +17,8 @@
> 
> use Modern::Perl;
> 
>-use Test::More tests => 2;
>+use Test::More tests => 3;
>+use Test::MockObject;
> use Test::Exception;
> 
> subtest 'Koha::Exceptions::Object::FKConstraint tests' => sub {
>@@ -61,3 +62,29 @@ subtest 'Koha::Exceptions::Password tests' => sub {
>         'Exception is thrown :-D';
>     is( "$@", 'Manual message exception', 'Exception not stringified if manually passed' );
> };
>+
>+subtest 'Koha::Exceptions::Metadata tests' => sub {
>+
>+    plan tests => 5;
>+
>+    use_ok('Koha::Exceptions::Metadata');
>+
>+    my $object = Test::MockObject->new;
>+    $object->mock( 'id', 'an_id' );
>+    $object->mock( 'format', 'a_format' );
>+    $object->mock( 'schema', 'a_schema' );
>+
>+    throws_ok
>+        { Koha::Exceptions::Metadata::Invalid->throw( id => 'an_id', format => 'a_format', schema => 'a_schema' ); }
>+        'Koha::Exceptions::Metadata::Invalid',
>+        'Exception is thrown :-D';
>+
>+    # stringify the exception
>+    is( "$@", 'Invalid data, cannot decode object (id=an_id, format=a_format, schema=a_schema)', 'Exception stringified correctly' );
>+
>+    throws_ok
>+        { Koha::Exceptions::Metadata::Invalid->throw( "Manual message exception" ) }
>+        'Koha::Exceptions::Metadata::Invalid',
>+        'Exception is thrown :-D';
>+    is( "$@", 'Manual message exception', 'Exception not stringified if manually passed' );
>+};
>-- 
>2.11.0

Actions: View | Diff | Splinter Review

Attachments on bug 22194: 84335 | 84347 | 84349