===================================================================
RCS file: /cvs/todotxt/Text-Todo-REST-API/t/formats/json.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- todotxt/Text-Todo-REST-API/t/formats/json.t	2010/02/13 21:45:54	1.3
+++ todotxt/Text-Todo-REST-API/t/formats/json.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: json.t,v 1.2 2010/01/31 04:24:55 andrew Exp $
+#     REVISION:  $AFresh1: json.t,v 1.3 2010/02/13 21:45:54 andrew Exp $
 #===============================================================================
 
 use strict;
 use warnings;
 
-use Test::More tests => 27;
+use Test::More tests => 30;
 
 my $class;
 my $format;
@@ -37,11 +37,16 @@
 is( $api->content_type, 'application/json', 'Check content_type' );
 
 my $files = ['todo.txt'];
-
 $result = undef;
 ok( ($result) = $api->render_files( $format, $files ), 'render files' );
 is_valid_json($result, 'files json is valid');
 is_json( $result, to_json($files), 'files render as expected' );
+
+my $tags = ['uno', 'dos', 'tres'];
+$result = undef;
+ok( ($result) = $api->render_tags( $format, $tags ), 'render tags' );
+is_valid_json($result, 'tags json is valid');
+is_json( $result, to_json($tags), 'tags render as expected' );
 
 my $list = [
     {   'text' => '(A) entry 1 @one +uno',