r1598@llin: dpavlin | 2007-11-11 20:54:09 +0100

 I really want to test marc_template in separate test only...

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1030 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/t/3-normalize.t b/t/3-normalize.t
index 3629eb6..1327252 100755 (executable)
--- a/t/3-normalize.t
+++ b/t/3-normalize.t
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
 use strict;
 use blib;
 

-use Test::More tests => 343;
+use Test::More tests => 340;

 
 BEGIN {
        use_ok( 'WebPAC::Test' );
 
 BEGIN {
        use_ok( 'WebPAC::Test' );


@@ -892,71 +892,5 @@ sub test_s {
                ok( frec_ne( '200' => $sf, '200' => 'c' ), "frec_ne 200 $sf == 200 c");
        }
 
                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"],
-               ],
-       );

 }
 
 }