Attachment 95270 Details for Bug 23173 – Bug 23173: Add unit tests

[patch] Bug 23173: Add unit tests

Bug-23173-Add-unit-tests.patch (text/plain), 2.02 KB, created by Andrew Isherwood on 2019-11-11 14:46:59 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Andrew Isherwood

Created: 2019-11-11 14:46:59 UTC

Size: 2.02 KB

patch

obsolete

>From fdf2706d72498b6f0db8b9cf222d9c67d9468473 Mon Sep 17 00:00:00 2001
>From: Andrew Isherwood <andrew.isherwood@ptfs-europe.com>
>Date: Tue, 10 Sep 2019 16:32:49 +0100
>Subject: [PATCH] Bug 23173: Add unit tests
>
>Test Koha::Illrequests::Availability
>---
> t/db_dependent/Illrequest/Availability.t | 46 ++++++++++++++++++++++++++++++++
> 1 file changed, 46 insertions(+)
> create mode 100644 t/db_dependent/Illrequest/Availability.t
>
>diff --git a/t/db_dependent/Illrequest/Availability.t b/t/db_dependent/Illrequest/Availability.t
>new file mode 100644
>index 0000000000..8876268ee9
>--- /dev/null
>+++ b/t/db_dependent/Illrequest/Availability.t
>@@ -0,0 +1,46 @@
>+#!/usr/bin/perl
>+
>+# 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, see <http://www.gnu.org/licenses>.
>+
>+use Modern::Perl;
>+
>+use Koha::Illrequest::Availability;
>+
>+use Test::More tests => 3;
>+
>+use_ok('Koha::Illrequest::Availability');
>+
>+my $metadata = {
>+    title  => 'This is a title',
>+    author => 'This is an author'
>+};
>+
>+# Because hashes can reorder themselves, we need to make sure ours is in a
>+# predictable order
>+my $sorted = {};
>+foreach my $key( keys %{$metadata} ) {
>+    $sorted->{$key} = $metadata->{$key};
>+}
>+
>+my $availability = Koha::Illrequest::Availability->new($sorted);
>+
>+isa_ok( $availability, 'Koha::Illrequest::Availability' );
>+
>+is(
>+    $availability->prep_metadata($sorted),
>+    'eyJhdXRob3IiOiJUaGlzIGlzIGFuIGF1dGhvciIsInRpdGxlIjoiVGhpcyBpcyBhIHRpdGxlIn0%3D%0A',
>+    'prep_metadata works'
>+);
>-- 
>2.11.0

Actions: View | Diff | Splinter Review

Attachments on bug 23173: 91464 | 91465 | 92107 | 92108 | 92539 | 92540 | 92550 | 92551 | 92640 | 92641 | 92693 | 92694 | 92695 | 92715 | 92716 | 92717 | 93146 | 93147 | 93148 | 93909 | 93910 | 93911 | 95268 | 95269 | 95270 | 98521 | 99083 | 100724 | 100725 | 100740 | 102179 | 102180 | 102181 | 102182 | 102183 | 102184 | 102286 | 102287 | 102288 | 102289 | 102290 | 102291 | 102292 | 102293 | 102294