--- trunk/t/3-normalize.t 2007/11/11 17:11:33 1029 +++ trunk/t/3-normalize.t 2007/11/11 19:58:20 1030 @@ -3,7 +3,7 @@ use strict; use blib; -use Test::More tests => 343; +use Test::More tests => 340; BEGIN { use_ok( 'WebPAC::Test' ); @@ -892,71 +892,5 @@ ok( frec_ne( '200' => $sf, '200' => 'c' ), "frec_ne 200 $sf == 200 c"); } - # marc_template - - test_rec_rules( - 'marc_template', - { - '225' => [{ - 'a' => 'a-1-1', - 'i' => 'i-1-1', - 'v' => 'v-1-1', - 'w' => 'w-1-1', - 'h' => 'h-1-1', - 'x' => 'x-1-1', - },{ - 'a' => 'a-2-1', - 'v' => 'v-2-1', - 'i' => 'i-2-1', - },{ - 'a' => 'a-3-1', - 'i' => 'i-3-1', - 'v' => 'v-3-1', - },{ - 'a' => 'a-4-1', - 'v' => 'v-4-1', - 'i' => 'i-4-1', - 'w' => 'w-4-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{ - marc_template( - from => 225, to => 440, - subfields_rename => [ - 'a' => 'a', - 'x' => 'x', - 'v' => 'v', - 'h' => 'n', - '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', - ], - ); - }, - [ - [440, " ", " ", "a", "a-1-1", "x", "x-1-1", "v", "v-1-1", "n", "h-1-1", "p", "i-1-1", "v", "w-1-1"], - [440, " ", " ", "a", "a-2-1", "v", "v-2-1", "p", "i-2-1"], - [440, " ", " ", "a", "a-3-1", "v", "v-3-1", "p", "i-3-1"], - [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"], - [440, " ", " ", "a", "a-4-1", "p", "i-4-1", "v", "w-4-1"], - ], - ); }