[BACK]Return to response.t CVS log [TXT][DIR] Up to [local] / todotxt / Text-Todo-REST-API / t

Diff for /todotxt/Text-Todo-REST-API/t/response.t between version 1.2 and 1.3

version 1.2, 2010/01/26 05:47:30 version 1.3, 2010/02/13 21:46:13
Line 7 
Line 7 
 #       AUTHOR:  Andrew Fresh (AAF), andrew@cpan.org  #       AUTHOR:  Andrew Fresh (AAF), andrew@cpan.org
 #      COMPANY:  Red River Communications  #      COMPANY:  Red River Communications
 #      CREATED:  01/07/10 19:11  #      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 strict;
 use warnings;  use warnings;
   
 use Test::More tests => 61;  use Test::More tests => 77;
   
 my $class;  my $class;
   
Line 31 
Line 31 
         { text => 'dos', md5 => 'XXX md5 of dos XXX' },          { text => 'dos', md5 => 'XXX md5 of dos XXX' },
         { text => 'tre', md5 => 'XXX md5 of tre XXX' },          { text => 'tre', md5 => 'XXX md5 of tre XXX' },
     ],      ],
   
       tags  => [ 'delete', 'dos', 'uno' ],
     entry => { text => 'ety', md5 => 'XXX md5 of ety XXX' },      entry => { text => 'ety', md5 => 'XXX md5 of ety XXX' },
 );  );
   
Line 73 
Line 75 
                 map "MD5 ($_->{text}) = $_->{md5}\n",                  map "MD5 ($_->{text}) = $_->{md5}\n",
                 @{ $data{list} }                  @{ $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',              content_type => 'text/plain',
         },          },
     },      },
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>