Codebase list libcatmandu-marc-perl / d915d10
using MARC::Spec 2.0 Carsten Klee 6 years ago
1 changed file(s) with 23 addition(s) and 0 deletion(s). Raw diff Collapse all Expand all
+23
-0
t/marc_spec2.t less more
0 #!perl
1
2 use strict;
3 use warnings;
4 use Test::More;
5 use Catmandu;
6
7 note "
8 ---
9 ".'blahmarc_spec(...{^1=\1}{^2=\0} indicators10: "Cross-platform Perl /Eric F. Johnson."';
10 {
11 my $importer = Catmandu->importer(
12 'MARC',
13 file => 't/camel9.mrc',
14 type => 'ISO',
15 fix => 'marc_spec("...{^1=\1}{^2=\0}", indicators10.$append); retain_field(indicators10)'
16 );
17 my $record = $importer->first;
18 is_deeply $record->{indicators10}, ['Cross-platform Perl /Eric F. Johnson.'], q|fix: marc_spec('...{^1=\1}{^2=\0}', indicators10.$append);|;
19 }
20
21
22 done_testing;