X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=Equinox-Migration%2Ft%2F03-MapDrivenMARCXMLProc.t;h=bf4bb2ce0b5a54f7472d112ac993d0a6a2ba0dd4;hp=dbab4cd79ada9e786d25969c34e01306bf03cc6b;hb=7331ec680f6f2f9bd510cafeb6786f68e78adc9e;hpb=0a85ba6fea4ebe57fd01e3ba123237550626cd1c

diff --git a/Equinox-Migration/t/03-MapDrivenMARCXMLProc.t b/Equinox-Migration/t/03-MapDrivenMARCXMLProc.t
index dbab4cd..bf4bb2c 100644
--- a/Equinox-Migration/t/03-MapDrivenMARCXMLProc.t
+++ b/Equinox-Migration/t/03-MapDrivenMARCXMLProc.t
@@ -64,25 +64,24 @@ is ($rec->{tags}[0]{uni}{a}, "MYS 2", '999$a');
 is ($rec->{tags}[0]{uni}{q}, "TEST", '999$q does exist here');
 
 # 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',
-#                                                     mapfile  => 't/corpus/mdmpmap-02.txt');
-#   };
-#$@ =~ /^(Multiple occurances of a non-multi field: 999x at rec 4)/;
-#is ($1, "Multiple occurances of a non-multi field: 999x at rec 4", 
-#    '999$x not declared multi, but is');
+eval { $mp = Equinox::Migration::MapDrivenMARCXMLProc->new( marcfile => 't/corpus/mdmp-0.txt',
+                                                     mapfile  => 't/corpus/mdmpmap-02.txt');
+   };
+$@ =~ /^(Multiple occurances of a non-multi field: 999x at rec 4)/;
+is ($1, "Multiple occurances of a non-multi field: 999x at rec 4", 
+    '999$x not declared multi, but is');
 
 # map-03 has 999$s as required, producing a fatal on record X
-#$mp = Equinox::Migration::MapDrivenMARCXMLProc->new( marcfile => 't/corpus/mdmp-0.txt',
-#                                                     mapfile  => 't/corpus/mdmpmap-03.txt');
-#eval { $rec = $mp->parse_record };
-#is ($@, "Required mapping 999s not found in rec 1\n", '999$s removed from this record');
-#eval { $rec = $mp->parse_record };
-#is ($@, "", '999$s exists here tho');
+eval { $mp = Equinox::Migration::MapDrivenMARCXMLProc->new( marcfile => 't/corpus/mdmp-0.txt',
+                                                     mapfile  => 't/corpus/mdmpmap-03.txt') };
+$@ =~ /^(.+)\n/;
+is ($1, "Required mapping 999s not found in rec 1", '999$s removed from this record');
 
 # map-04 has fields in 999 and 250, and multi data
 $mp = Equinox::Migration::MapDrivenMARCXMLProc->new( marcfile => 't/corpus/mdmp-0.txt',
                                                      mapfile  => 't/corpus/mdmpmap-04.txt');
 $rec = shift @{ $mp->{data}{recs} };
+is (scalar @{ $rec->{tags} }, 2, "2 tags captured");
 is ($rec->{tags}[0]{tag}, 250, 'should be 250');
 is ($rec->{tags}[0]{uni}{a}, "1st ed.", '999$a');
 is ($rec->{tags}[1]{tag}, 999, 'should be 999');
@@ -97,7 +96,7 @@ is ($rec->{tags}[0]{tag}, 999, '250 doesnt exist in this record');
 is ($rec->{tags}[0]{uni}{a}, "FIC DEV", 'subfield value 4');
 is_deeply ($rec->{tags}[0]{multi}{'x'}, ['FICTION','FICTION2','FICTION3','FICTION4'],
            '999$x - multi');
-is ($rec->{tmap}{250}, undef, 'tag map test 2a');
+is_deeply ($rec->{tmap}{250}, [1], 'tag map test 2a');
 is_deeply ($rec->{tmap}{999}, [0], 'tag map test 2b');
 
 # map-05 is map-04 with a "no digits" filter on 999$x