X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2F3-normalize-marc.t;h=1c79dc3d3997eb73fbf1d6b58841ac88af0aa8a2;hb=952b323fe8b669c61f467520894820ba93b335e7;hp=5d3b62e64682474b101a5e21c5525a2a09349c02;hpb=525ff6bc4e59ca99534ca61af50b3609f6962453;p=webpac2

diff --git a/t/3-normalize-marc.t b/t/3-normalize-marc.t
index 5d3b62e..1c79dc3 100755
--- 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' );