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 |
} |
} |
917 |
'v' => 'v-4-1', |
'v' => 'v-4-1', |
918 |
'i' => 'i-4-1', |
'i' => 'i-4-1', |
919 |
'w' => 'w-4-1', |
'w' => 'w-4-1', |
920 |
|
},{ |
921 |
|
'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', |
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 |
}, |
}, |
954 |
[440, " ", " ", "a", "a-2-1", "p", "i-2-1", "v", "v-2-1"], |
[440, " ", " ", "a", "a-2-1", "p", "i-2-1", "v", "v-2-1"], |
955 |
[440, " ", " ", "a", "a-3-1", "p", "i-3-1", "v", "v-3-1"], |
[440, " ", " ", "a", "a-3-1", "p", "i-3-1", "v", "v-3-1"], |
956 |
[440, " ", " ", "a", "a-4-1", "v", "v-4-1", "p", "i-4-1", "v", "w-4-1"], |
[440, " ", " ", "a", "a-4-1", "v", "v-4-1", "p", "i-4-1", "v", "w-4-1"], |
957 |
|
[440, " ", " ", "a", "a-5-1"], |
958 |
], |
], |
959 |
); |
); |
960 |
} |
} |