--- trunk/t/1-validate-delimiters.t	2007/05/24 10:53:48	834
+++ trunk/t/1-validate-delimiters.t	2007/05/24 10:53:50	835
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Test::More tests => 6;
+use Test::More tests => 7;
 use Test::Exception;
 use blib;
 
@@ -69,3 +69,21 @@
 
 ok($dt = $v->delimiters_templates( report => 1 ), 'delimiters_template report');
 diag $dt;
+
+$v->{_validate_delimiters_templates} = {
+	900 => { '^a : ^b' => 1 },
+};
+
+test_v({
+	'900' => [
+		{ 'a' => 'foo : bar', 'b' => 'baz' },
+		{ 'a' => 'foo', 'b' => 'baz' },
+		{ 'a' => 'foo' },
+		{ 'a' => 'foo : bar' },
+	],
+});
+
+ok (my $e = $v->report, 'report');
+
+diag $e;
+diag dump( $v->{errors} );