r1579@llin: dpavlin | 2007-11-10 11:59:27 +0100

[webpac2] / t / 3-normalize.t

diff --git a/t/3-normalize.t b/t/3-normalize.t
index 105c279..36b2704 100755 (executable)
--- 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',
                                ],
                        );
                },