--- trunk/t/3-normalize.t	2006/09/11 14:28:56	668
+++ trunk/t/3-normalize.t	2006/09/11 14:29:01	669
@@ -691,12 +691,13 @@
 		'_pack_subfields_hash( $h )'
 	);
 
-	is_deeply(
-		[ _pack_subfields_hash({
+	cmp_ok(
+		_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'],
+		}, 1),
+		'eq',
+		'^aa1^bb1^aa2^bb2^cc1^cc2',
 		'_pack_subfields_hash( $h, 1 )'
 	);
 }