--- trunk/t/3-normalize.t 2007/11/10 00:05:36 1019 +++ trunk/t/3-normalize.t 2007/11/10 11:11:16 1021 @@ -523,7 +523,7 @@ } 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 @@ '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 @@ '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', ], ); },