--- trunk/t/3-normalize.t	2006/09/06 14:25:16	631
+++ trunk/t/3-normalize.t	2006/09/06 20:54:47	641
@@ -2,7 +2,7 @@
 
 use strict;
 
-use Test::More tests => 155;
+use Test::More tests => 157;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -679,7 +679,25 @@
 		qq{
 			rec1(200);
 		},
-		["a1", "b1", "a2", "b2", "c1", "c2"],
+		['a1', 'b1', 'a2', 'b2', 'c1', 'c2', 'a3', 'a4', 'b3', 'c3', 'a5' ],
+	);
+
+	is_deeply(
+		[ _pack_subfields_hash({
+			a => [ 'a1', 'a2' ], b => [ 'b1', 'b2' ], c => [ 'c1', 'c2' ],
+			subfields => [ qw/a 0 b 0 a 1 b 1 c 0 c 1/ ],
+		}) ],
+		['a1', 'b1', 'a2', 'b2', 'c1', 'c2'],
+		'_pack_subfields_hash( $h )'
+	);
+
+	is_deeply(
+		[ _pack_subfields_hash({
+			a => [ 'a1', 'a2' ], b => [ 'b1', 'b2' ], c => [ 'c1', 'c2' ],
+			subfields => [ qw/a 0 b 0 a 1 b 1 c 0 c 1/ ],
+		}, 1) ],
+		['^a','a1', '^b','b1', '^a','a2', '^b','b2', '^c','c1', '^c','c2'],
+		'_pack_subfields_hash( $h, 1 )'
 	);
 }