--- trunk/t/1-validate-delimiters.t 2007/05/20 16:19:17 828 +++ trunk/t/1-validate-delimiters.t 2007/05/20 16:19:19 829 @@ -46,7 +46,11 @@ { 'a' => 'a : a : a', 'c' => [ 'a : b ; c', 'a : b ; c / d' ] }, { 'a' => 'a : b / c' }, { 'a' => 'a : b / c' }, - ] + ], + '901' => [ + { 'a' => 'a : b / c', 'b' => 'foo' }, + { 'a' => 'a : b / c', 'b' => 'foo' }, + ], }); diag dump($v->{_delimiters_templates}); @@ -57,5 +61,6 @@ "^a : : ^c : ; ^c : ; / " => 1, "^a : = : ; ^b ; ; ; ; : . . " => 1, }, + 901 => { "^a : / ^b" => 2 }, }, 'just subfields and delimiters');