[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.1 and 1.2

version 1.1, 2010/01/23 07:04:43 version 1.2, 2010/01/26 05:47:30
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$  #     REVISION:  $AFresh1: response.t,v 1.1 2010/01/23 07:04:43 andrew Exp $
 #===============================================================================  #===============================================================================
   
 use strict;  use strict;
 use warnings;  use warnings;
   
 use Test::More tests => 49;  use Test::More tests => 61;
   
 my $class;  my $class;
   
Line 26 
Line 26 
   
 my %data = (  my %data = (
     files => ['todo.txt'],      files => ['todo.txt'],
     list  => [      list  => [
         { text => 'uno', md5 => 'XXX md5 of uno XXX' },          { text => 'uno', md5 => 'XXX md5 of uno XXX' },
         { 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' },
     ],      ],
     entry => { text => 'ety', md5 => 'XXX md5 of ety XXX' },      entry => { text => 'ety', md5 => 'XXX md5 of ety XXX' },
 );  );
   
 my %TESTS = (  my %TESTS = (
Line 46 
Line 46 
             result => '/^Unable to handle \[render_files\] for format \[\]/',              result => '/^Unable to handle \[render_files\] for format \[\]/',
         },          },
         text => {          text => {
             result      => undef,              result       => undef,
             data_result => "todo.txt\n"              data_result  => "todo.txt\n",
               content_type => 'text/plain',
         },          },
         md5 => {          md5 => {
             result =>              result =>
                 '/^Unable to handle \[render_files\] for format \[md5\]/',                  '/^Unable to handle \[render_files\] for format \[md5\]/',
               content_type => 'text/plain',
         },          },
     },      },
   
Line 62 
Line 64 
         text => {          text => {
             result      => undef,              result      => undef,
             data_result => ( join q{}, map "$_->{text}\n", @{ $data{list} } ),              data_result => ( join q{}, map "$_->{text}\n", @{ $data{list} } ),
               content_type => 'text/plain',
         },          },
         md5 => {          md5 => {
             result => undef,              result      => undef,
             data_result => ( join q{},  map "MD5 ($_->{text}) = $_->{md5}\n",              data_result => (
                 @{ $data{list} } ),                  join q{},
                   map "MD5 ($_->{text}) = $_->{md5}\n",
                   @{ $data{list} }
               ),
               content_type => 'text/plain',
         },          },
     },      },
   
Line 75 
Line 82 
             result => '/^Unable to handle \[render_entry\] for format \[\]/',              result => '/^Unable to handle \[render_entry\] for format \[\]/',
         },          },
         text => {          text => {
             result      => undef,              result       => undef,
             data_result => ( join q{}, map "$_->{text}\n", $data{entry} ),              data_result  => ( join q{}, map "$_->{text}\n", $data{entry} ),
               content_type => 'text/plain',
         },          },
         md5 => {          md5 => {
             result => undef,              result      => undef,
             data_result => ( join q{},  map "MD5 ($_->{text}) = $_->{md5}\n",              data_result => (
                 $data{entry} ),                  join q{}, map "MD5 ($_->{text}) = $_->{md5}\n",
                   $data{entry}
               ),
               content_type => 'text/plain',
         },          },
     },      },
 );  );
Line 121 
Line 132 
   
     my $response = new_ok( $class, [$args] );      my $response = new_ok( $class, [$args] );
   
       if ( exists $test->{content_type} ) {
           is( $response->content_type, $test->{content_type},
               'Got content_type - ' . $diag );
       }
   
     my $expected = $test->{result};      my $expected = $test->{result};
     if ( $args->{data} && exists $test->{data_result} ) {      if ( $args->{data} && exists $test->{data_result} ) {
         $expected = $test->{data_result};          $expected = $test->{data_result};
Line 129 
Line 145 
     my $result;      my $result;
     eval { $result = $response->render() };      eval { $result = $response->render() };
     if ($@) {      if ($@) {
         if (index $expected, '/') {          if ( index $expected, '/' ) {
             $expected = '/^$/';              $expected = '/^$/';
         }          }
   
Line 138 
Line 154 
     else {      else {
         is( $result, $expected, 'Got expected result - ' . $diag );          is( $result, $expected, 'Got expected result - ' . $diag );
     }      }
   
     return 1;      return 1;
 }  }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>