===================================================================
RCS file: /cvs/todotxt/Text-Todo-REST-API/t/response.t,v
retrieving revision 1.2
retrieving revision 1.4
diff -u -r1.2 -r1.4
--- 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 22:15:29	1.4
@@ -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.3 2010/02/13 21:46:13 andrew Exp $
 #===============================================================================
 
 use strict;
 use warnings;
 
-use Test::More tests => 61;
+use Test::More tests => 101;
 
 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' },
 );
 
@@ -55,6 +57,11 @@
                 '/^Unable to handle \[render_files\] for format \[md5\]/',
             content_type => 'text/plain',
         },
+        json => {
+            result       => '[]',
+            data_result  => '["todo.txt"]',
+            content_type => 'application/json',
+        },
     },
 
     list => {
@@ -75,8 +82,34 @@
             ),
             content_type => 'text/plain',
         },
+        json => {
+            result       => '[]',
+            data_result  => '[{"text":"uno","md5":"XXX md5 of uno XXX"},{"text":"dos","md5":"XXX md5 of dos XXX"},{"text":"tre","md5":"XXX md5 of tre XXX"}]',
+            content_type => 'application/json',
+        },
     },
 
+    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',
+        },
+        json => {
+            result       => '[]',
+            data_result  => '["delete","dos","uno"]',
+            content_type => 'application/json',
+        },
+    },
+
     entry => {
         undef => {
             result => '/^Unable to handle \[render_entry\] for format \[\]/',
@@ -93,6 +126,11 @@
                 $data{entry}
             ),
             content_type => 'text/plain',
+        },
+        json => {
+            result       => '[]',
+            data_result  => '{"text":"ety","md5":"XXX md5 of ety XXX"}',
+            content_type => 'application/json',
         },
     },
 );