Attachment 44132 Details for Bug 13146 – Bug 13146 UT

[patch] Bug 13146 UT

Bug-13146-UT.patch (text/plain), 4.02 KB, created by Frédéric Demians on 2015-10-28 16:31:28 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Frédéric Demians

Created: 2015-10-28 16:31:28 UTC

Size: 4.02 KB

patch

obsolete

>From 269057719f4324af1f8f8eec3b0b388b51fea144 Mon Sep 17 00:00:00 2001
>From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Demians?= <f.demians@tamil.fr>
>Date: Wed, 28 Oct 2015 17:25:57 +0100
>Subject: [PATCH] Bug 13146 UT
>
>Run the test before applying the second patch:
>
>  prove -v t/db_dependent/FieldMapping.t
>
>Apply the 2nd patch, and redo the test.
>---
> t/db_dependent/FieldMapping.t | 100 ++++++++++++++++++++++++++++++++++++++++++
> 1 file changed, 100 insertions(+)
> create mode 100755 t/db_dependent/FieldMapping.t
>
>diff --git a/t/db_dependent/FieldMapping.t b/t/db_dependent/FieldMapping.t
>new file mode 100755
>index 0000000..87a8d4b
>--- /dev/null
>+++ b/t/db_dependent/FieldMapping.t
>@@ -0,0 +1,100 @@
>+#!/usr/bin/perl
>+
>+# Copyright 2015 Tamil s.a.r.l.
>+#
>+# 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 File::Basename;
>+use File::Path;
>+use DateTime;
>+use Test::MockModule;
>+use Test::More tests => 18;
>+use C4::Biblio;
>+use Koha::Schema;
>+
>+
>+
>+use Test::DBIx::Class {
>+    schema_class => 'Koha::Schema',
>+    connect_info => ['dbi:SQLite:dbname=:memory:','',''],
>+    connect_opts => { name_sep => '.', quote_char => '`', },
>+    fixture_class => '::Populate',
>+}, 'Fieldmapping' ;
>+
>+
>+# Make the code in the module use our mocked Koha::Schema/Koha::Database
>+my $db = Test::MockModule->new('Koha::Database');
>+$db->mock(
>+    # Schema() gives us the DB connection set up by Test::DBIx::Class
>+    _new_schema => sub { return Schema(); }
>+);
>+
>+
>+if (0) {
>+  fixtures_ok [
>+      Fieldmapping => [
>+          [ qw/ field fieldcode subfieldcode / ],
>+          [ qw / subtitle 245 b / ],
>+          [ qw / maintiel 245 a / ],
>+      ],
>+  ], 'add fixtures for two field mappings';
>+}
>+
>+
>+SetFieldMapping('', 'maintitle', '245', 'a');
>+ok my $fm = Fieldmapping->find( {field => 'maintitle'} )
>+   => 'maintitle field mapping properly set for default framework';
>+
>+SetFieldMapping('', 'subtitle', '245', 'b');
>+ok $fm = Fieldmapping->find( {field => 'subtitle'} )
>+   => 'subtitle field mapping properly set for default framework';
>+is_fields $fm, {
>+    frameworkcode => '',
>+    field => 'subtitle',
>+    fieldcode => '245',
>+    subfieldcode => 'b',
>+}, 'expected fields are there';
>+
>+SetFieldMapping('BOOK', 'subtitle', '245', 'b');
>+ok $fm = Fieldmapping->find( {frameworkcode => 'BOOK', field => 'subtitle'} )
>+   => 'subtitle field mapping properly set for BOOK framework';
>+is_fields $fm, {
>+    frameworkcode => 'BOOK',
>+    field => 'subtitle',
>+    fieldcode => '245',
>+    subfieldcode => 'b',
>+}, 'expected fields are there';
>+
>+my $fms = GetFieldMapping('');
>+is(@$fms, 2, "2 mappings for default framework");
>+is($fms->[0]->{id}, '1', "id is '1'");
>+is($fms->[0]->{frameworkcode}, '', "frameworkcode is ''");
>+is($fms->[0]->{field}, 'maintitle', "field is 'maintile'");
>+is($fms->[0]->{fieldcode}, '245', "fieldcode is '245'");
>+is($fms->[0]->{subfieldcode}, 'a', "subfieldcode is 'a'");
>+
>+DeleteFieldMapping(1);
>+$fms = GetFieldMapping('');
>+is(@$fms, 1, "1 mappings for default framework after calling DeleteFieldMapping()");
>+is($fms->[0]->{id}, '2', "id is '1'");
>+is($fms->[0]->{frameworkcode}, '', "frameworkcode is ''");
>+is($fms->[0]->{field}, 'subtitle', "field is 'subtile'");
>+is($fms->[0]->{fieldcode}, '245', "fieldcode is '245'");
>+is($fms->[0]->{subfieldcode}, 'b', "subfieldcode is 'b'");
>+
>+$fms = GetFieldMapping('BOOK');
>+is(@$fms, 1, "1 mapping for BOOK framework");
>-- 
>2.6.2

Actions: View | Diff | Splinter Review

Attachments on bug 13146: 32735 | 32749 | 44132 | 44133