===================================================================
RCS file: /cvs/todotxt/Text-Todo-REST-API/t/response.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- todotxt/Text-Todo-REST-API/t/response.t	2010/01/26 05:47:30	1.2
+++ todotxt/Text-Todo-REST-API/t/response.t	2010/02/13 21:46:13	1.3
@@ -7,13 +7,13 @@
 #       AUTHOR:  Andrew Fresh (AAF), andrew@cpan.org
 #      COMPANY:  Red River Communications
 #      CREATED:  01/07/10 19:11
-#     REVISION:  $AFresh1: response.t,v 1.1 2010/01/23 07:04:43 andrew Exp $
+#     REVISION:  $AFresh1: response.t,v 1.2 2010/01/26 05:47:30 andrew Exp $
 #===============================================================================
 
 use strict;
 use warnings;
 
-use Test::More tests => 61;
+use Test::More tests => 77;
 
 my $class;
 
@@ -31,6 +31,8 @@
         { text => 'dos', md5 => 'XXX md5 of dos XXX' },
         { text => 'tre', md5 => 'XXX md5 of tre XXX' },
     ],
+    
+    tags  => [ 'delete', 'dos', 'uno' ],
     entry => { text => 'ety', md5 => 'XXX md5 of ety XXX' },
 );
 
@@ -73,6 +75,22 @@
                 map "MD5 ($_->{text}) = $_->{md5}\n",
                 @{ $data{list} }
             ),
+            content_type => 'text/plain',
+        },
+    },
+
+    tags => {
+        undef => {
+            result => '/^Unable to handle \[render_tags\] for format \[\]/',
+        },
+        text => {
+            result       => undef,
+            data_result  => ( join q{}, map "$_\n", @{ $data{tags} } ),
+            content_type => 'text/plain',
+        },
+        md5 => {
+            result      => undef,
+            result => '/^Unable to handle \[render_tags\] for format \[md5\]/',
             content_type => 'text/plain',
         },
     },