--- trunk/t/1-validate-delimiters.t	2007/05/20 16:19:19	829
+++ trunk/t/1-validate-delimiters.t	2007/05/24 10:53:48	834
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Test::More tests => 4;
+use Test::More tests => 6;
 use Test::Exception;
 use blib;
 
@@ -64,3 +64,8 @@
 	901 => { "^a :  / ^b" => 2 },
 }, 'just subfields and delimiters');
 
+ok(my $dt = $v->delimiters_templates, 'delimiters_template');
+diag $dt;
+
+ok($dt = $v->delimiters_templates( report => 1 ), 'delimiters_template report');
+diag $dt;