[libcatmandu-marc-perl] 22/26: using MARC::Spec 2.0

[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 d915d10f3f21369eb8f0654917882e79c3dd5bb1
Author: Carsten Klee <cKlee at users.noreply.github.com>
Date:   Sat Dec 16 11:25:52 2017 +0100

    using MARC::Spec 2.0
---
 t/marc_spec2.t | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/t/marc_spec2.t b/t/marc_spec2.t
new file mode 100644
index 0000000..252b244
--- /dev/null
+++ b/t/marc_spec2.t
@@ -0,0 +1,23 @@
+#!perl
+
+use strict;
+use warnings;
+use Test::More;
+use Catmandu;
+
+note "
+---
+".'blahmarc_spec(...{^1=\1}{^2=\0}     indicators10: "Cross-platform Perl /Eric F. Johnson."';
+{
+    my $importer = Catmandu->importer(
+        'MARC',
+        file => 't/camel9.mrc',
+        type => 'ISO',
+        fix  => 'marc_spec("...{^1=\1}{^2=\0}", indicators10.$append); retain_field(indicators10)'
+    );
+    my $record = $importer->first;
+    is_deeply $record->{indicators10}, ['Cross-platform Perl /Eric F. Johnson.'], q|fix: marc_spec('...{^1=\1}{^2=\0}', indicators10.$append);|;
+}
+
+
+done_testing;

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