mods => \@mods );
# initialize datastore
+ die "Datastore file 'EMMXSSTORAGE.dbmd' already exists. Exiting.\n"
+ if (-e "EMMXSSTORAGE.dbmd");
$dstore = DBM::Deep->new( file => "EMMXSSTORAGE.dbmd",
data_sector_size => 256 );
$reccount = 0; # next record ptr
is ($rec->{tags}[0]{uni}{a}, "FIC DEV", 'subfield value 4');
$rec = shift @{ $mp->{data}{recs} };
is ($rec, undef, 'no more records');
+$mp->DESTROY;
# with map-01, 999$a and 999$q are captured. q only exists on the second
# record; the others should the placeholder value of ''
$rec = shift @{ $mp->{data}{recs} };
is ($rec->{tags}[0]{uni}{a}, "MYS 2", '999$a');
is ($rec->{tags}[0]{uni}{q}, "TEST", '999$q does exist here');
+$mp->DESTROY;
# map-02 adds 999$x *not* as multi, producing a fatal error on the last record
#eval { $mp = Equinox::Migration::MapDrivenMARCXMLProc->new( marcfile => 't/corpus/mdmp-0.txt',
'999$x - multi');
is ($rec->{tmap}{250}, undef, 'tag map test 2a');
is_deeply ($rec->{tmap}{999}, [0], 'tag map test 2b');
+$mp->DESTROY;
# map-05 is map-04 with a "no digits" filter on 999$x
$mp = Equinox::Migration::MapDrivenMARCXMLProc->new( marcfile => 't/corpus/mdmp-0.txt',