X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2F3-normalize.t;h=36b2704d7bf45986af145022825bb83198488008;hb=92dcd89f127210593d1f8cf482d8fc5b583b79a7;hp=105c279f0e308a725d7b2b2b2e65f7e35dc6af88;hpb=04a1bce53bc5202527e641912e8ce9559c35581d;p=webpac2 diff --git a/t/3-normalize.t b/t/3-normalize.t index 105c279..36b2704 100755 --- a/t/3-normalize.t +++ b/t/3-normalize.t @@ -523,7 +523,7 @@ sub test_s { } ok(my $marc = WebPAC::Normalize::_get_marc_fields(), "_get_marc_fields"); - diag dump( $marc ) if ($debug); + diag dump( $marc ) if $debug; diag "expects:\n", dump($struct) if ($debug > 1); is_deeply( $marc, $struct, $msg ); } @@ -918,7 +918,13 @@ sub test_s { 'i' => 'i-4-1', 'w' => 'w-4-1', },{ - 'a' => 'a-5-1', + 'a' => 'a-4-1', + 'v' => 'v-4-1', + 'i' => 'i-4-1', + },{ + 'a' => 'a-4-1', + 'i' => 'i-4-1', + 'w' => 'w-4-1', }], }, qq{ @@ -932,11 +938,14 @@ sub test_s { 'i' => 'p', 'w' => 'v', ], + isis_template => [ + 'a ; |v. |i', + 'a. |i ; |w', + ], marc_template => [ 'a', 'a, |x ; |v. |n, |p ; |v', 'a ; |v. |p ; |v', - 'a. |p ; |v', ], ); },