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 <[email protected]> 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 _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
