more tweaks for subfield re-ordering

[webpac2] / t / 3-normalize-marc.t

diff --git a/t/3-normalize-marc.t b/t/3-normalize-marc.t
index 5d3b62e..1c79dc3 100755 (executable)
--- a/t/3-normalize-marc.t
+++ b/t/3-normalize-marc.t
@@ -42,6 +42,11 @@ my $rec = {
                'w' => 'w-6-1',
        },{
                'a' => 'a-7-1',
+       },{
+               'a' => 'a-8-1',
+               'v' => 'v-8-1',
+       },{
+               'v' => 'v-9-1',
        }],
 };
 
@@ -63,8 +68,11 @@ ok( marc_template(
        ],
        marc_template => [
                'a',
+               'a ;|v',
+               'a.|p',
                'a, |x ; |v. |n, |p ; |v',
                'a ; |v. |p ; |v',
+               'v',
        ],
 ), 'marc_template' );