523 |
} |
} |
524 |
|
|
525 |
ok(my $marc = WebPAC::Normalize::_get_marc_fields(), "_get_marc_fields"); |
ok(my $marc = WebPAC::Normalize::_get_marc_fields(), "_get_marc_fields"); |
526 |
diag dump( $marc ) if ($debug); |
diag dump( $marc ) if $debug; |
527 |
diag "expects:\n", dump($struct) if ($debug > 1); |
diag "expects:\n", dump($struct) if ($debug > 1); |
528 |
is_deeply( $marc, $struct, $msg ); |
is_deeply( $marc, $struct, $msg ); |
529 |
} |
} |
918 |
'i' => 'i-4-1', |
'i' => 'i-4-1', |
919 |
'w' => 'w-4-1', |
'w' => 'w-4-1', |
920 |
},{ |
},{ |
921 |
'a' => 'a-5-1', |
'a' => 'a-4-1', |
922 |
|
'v' => 'v-4-1', |
923 |
|
'i' => 'i-4-1', |
924 |
|
},{ |
925 |
|
'a' => 'a-4-1', |
926 |
|
'i' => 'i-4-1', |
927 |
|
'w' => 'w-4-1', |
928 |
}], |
}], |
929 |
}, |
}, |
930 |
qq{ |
qq{ |
938 |
'i' => 'p', |
'i' => 'p', |
939 |
'w' => 'v', |
'w' => 'v', |
940 |
], |
], |
941 |
|
isis_template => [ |
942 |
|
'a ; |v. |i', |
943 |
|
'a. |i ; |w', |
944 |
|
], |
945 |
marc_template => [ |
marc_template => [ |
946 |
'a', |
'a', |
947 |
'a, |x ; |v. |n, |p ; |v', |
'a, |x ; |v. |n, |p ; |v', |
948 |
'a ; |v. |p ; |v', |
'a ; |v. |p ; |v', |
|
'a. |p ; |v', |
|
949 |
], |
], |
950 |
); |
); |
951 |
}, |
}, |