[libcatmandu-marc-perl] 102/208: Fixing one tests according to the new rules

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag upstream/1.19
in repository libcatmandu-marc-perl.

commit 6e2677f0baa94d219fd93c5859829732c4e8426d
Author: Patrick Hochstenbach <patrick.hochstenbach at ugent.be>
Date:   Thu Mar 2 11:45:04 2017 +0100

    Fixing one tests according to the new rules
---
 lib/Catmandu/MARC.pm | 4 ++--
 t/21-marc-spec.t     | 6 +++++-
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/lib/Catmandu/MARC.pm b/lib/Catmandu/MARC.pm
index cdbfe8d..21f02e6 100644
--- a/lib/Catmandu/MARC.pm
+++ b/lib/Catmandu/MARC.pm
@@ -564,10 +564,10 @@ sub marc_spec {
         unless (@mapped) { return $vals }
 
         if ($split) {
-            $vals = [[@mapped]]
+            $vals = [[@mapped]];
         }
         elsif ($append) {
-            $vals = [@mapped]
+            $vals = [@mapped];
         }
         elsif (@mapped) {
             $vals = join $join_char, @mapped;
diff --git a/t/21-marc-spec.t b/t/21-marc-spec.t
index d9cd871..1fa3319 100644
--- a/t/21-marc-spec.t
+++ b/t/21-marc-spec.t
@@ -27,7 +27,11 @@ is  $records->[9]->{my}{subjects}{joined}, 'Perl (Computer program language)###W
 
 is_deeply
     $records->[9]->{my}{append}{subjects},
-    ['Perl (Computer program language)Web servers.Cross-platform software development.'],
+    [
+        'Perl (Computer program language)',
+        'Web servers.',
+        'Cross-platform software development.'
+    ],
     q|fix: marc_spec('650', my.append.subjects.$append);|;
 
 is_deeply

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-marc-perl.git