[libcatmandu-marc-perl] 111/208: Adding more tests

[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 7564f1f56d0cdc848573f6df9d217ee2ce19574c
Author: Patrick Hochstenbach <patrick.hochstenbach at ugent.be>
Date:   Thu Mar 2 14:48:25 2017 +0100

    Adding more tests
---
 t/07-inline-fix.t | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/t/07-inline-fix.t b/t/07-inline-fix.t
index b36287f..ff2124c 100644
--- a/t/07-inline-fix.t
+++ b/t/07-inline-fix.t
@@ -101,4 +101,27 @@ ok(@$records == 2 , "Found 2 records");
 	ok @arr == 2;
 }
 
+{
+	my @arr = marc_map($records->[1],'300bxa', -split=>1 , -pluck=>1);
+
+    is_deeply \@arr , [[
+         'ill. ;' ,
+         undef ,
+         'xxi, 289 p. :',
+    ]] , 'marc_map(300bxa, split:1 , pluck: 1)';
+}
+
+{
+	my @arr = marc_map($records->[1],'630xa', -split=>1 , -pluck=>1);
+
+    is_deeply \@arr , [
+         [ undef ,
+           'Active server pages.',
+         ] ,
+         [ undef,
+           'ActiveX.'
+         ] ,
+    ] , 'marc_map(630xa, split:1 , pluck:1)';
+}
+
 done_testing;

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