[libcatmandu-marc-perl] 08/26: Fixing undef tests

[Jonas Smedegaard]

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

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

commit 4115432a082791411381657795f1eb19a41fea9d
Author: Patrick Hochstenbach <patrick.hochstenbach at ugent.be>
Date:   Fri Nov 10 11:12:03 2017 +0100

    Fixing undef tests
---
 t/Catmandu/Fix/marc_copy.t | 12 ++++++------
 t/Catmandu/Fix/marc_cut.t  | 12 ++++++------
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/t/Catmandu/Fix/marc_copy.t b/t/Catmandu/Fix/marc_copy.t
index 1fcdfb7..51648c4 100644
--- a/t/Catmandu/Fix/marc_copy.t
+++ b/t/Catmandu/Fix/marc_copy.t
@@ -48,8 +48,8 @@ note 'marc_copy(001,cntrl)';
         [
             {
                 tag => '001',
-                ind1 => undef,
-                ind2 => undef,
+                ind1 => ' ',
+                ind2 => ' ',
                 content => "   92005291 "
             }
         ], 'marc_copy(001,cntrl)';
@@ -182,14 +182,14 @@ note 'marc_copy(...,all)';
         [
             {
                 tag => 'LDR',
-                ind1 => undef,
-                ind2 => undef,
+                ind1 => ' ',
+                ind2 => ' ',
                 content => "                        "
             },
             {
                 tag => '001',
-                ind1 => undef,
-                ind2 => undef,
+                ind1 => ' ',
+                ind2 => ' ',
                 content => "   92005291 "
             },
             {
diff --git a/t/Catmandu/Fix/marc_cut.t b/t/Catmandu/Fix/marc_cut.t
index e0cad51..f897961 100644
--- a/t/Catmandu/Fix/marc_cut.t
+++ b/t/Catmandu/Fix/marc_cut.t
@@ -49,8 +49,8 @@ note 'marc_cut(001,cntrl)';
         [
             {
                 tag => '001',
-                ind1 => undef,
-                ind2 => undef,
+                ind1 => ' ',
+                ind2 => ' ',
                 content => "   92005291 "
             }
         ], 'marc_cut(001,cntrl)';
@@ -191,14 +191,14 @@ note 'marc_cut(...,all)';
         [
             {
                 tag => 'LDR',
-                ind1 => undef,
-                ind2 => undef,
+                ind1 => ' ',
+                ind2 => ' ',
                 content => "                        "
             },
             {
                 tag => '001',
-                ind1 => undef,
-                ind2 => undef,
+                ind1 => ' ',
+                ind2 => ' ',
                 content => "   92005291 "
             },
             {

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