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

Diff for /todotxt/Text-Todo-REST-API/t/GET/entry.t between version 1.2 and 1.4

version 1.2, 2010/01/18 13:47:53 version 1.4, 2010/01/24 04:38:21
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: entry.t,v 1.1 2010/01/17 19:41:24 andrew Exp $  #     REVISION:  $AFresh1: entry.t,v 1.3 2010/01/23 07:15:40 andrew Exp $
 #===============================================================================  #===============================================================================
   
 use strict;  use strict;
 use warnings;  use warnings;
   
 use Test::More tests => 26;  use Test::More tests => 50;
   
 my $class;  my $class;
   
 BEGIN {  BEGIN {
     $class = 'Text::Todo::REST::API';      $class = 'Text::Todo::REST::API';
     use_ok( $class, "use $class" );      use_ok( $class, "use $class" );
Line 23 
Line 24 
   
 diag("Testing GET entry $class $Text::Todo::REST::API::VERSION");  diag("Testing GET entry $class $Text::Todo::REST::API::VERSION");
   
 my $api = new_ok( $class, [ { todo_dir => 't/lists', path_info => '/todo' } ] );  my $api = new_ok( $class, [ { todo_dir => 't/lists' } ] );
   
 my $list_should_be = [  my $list_should_be = [
     {   'text' => '(A) entry 1 @one +uno',      {   'text' => '(A) entry 1 @one +uno',
Line 54 
Line 55 
   
 foreach my $e ( @{$list_should_be} ) {  foreach my $e ( @{$list_should_be} ) {
     my $entry;      my $entry;
     ok( $entry = $api->get_entry( $e->{line} ),      ok( $entry = $api->get_entry( $api->_todo, $e->{line} ),
         "get_entry by line ($e->{line})"          "by line get_entry($e->{line})"
     );      );
     is_deeply( $entry, $e, 'got correct entry' );      is_deeply( $entry, $e, 'got correct entry' );
   
     $entry = undef;      $entry = undef;
     ok( $entry = $api->get_entry( $e->{md5} ),      ok( $entry = $api->get_entry( $api->_todo, $e->{md5} ),
         "get_entry by md5 ($e->{md5})"          "by md5 get_entry($e->{md5})"
     );      );
     is_deeply( $entry, $e, 'got correct entry' );      is_deeply( $entry, $e, 'got correct entry' );
   
       my $response;
       ok( $response = $api->GET( '/todo_file/entry/' . $e->{line} ),
           "by line GET($e->{line})"
       );
       $entry = undef;
       ok( $entry = $response->data, 'Get data from response' );
       is_deeply( $entry, $e, 'got correct entry' );
   
       $response = undef;
       ok( $response = $api->GET( '/todo_file/entry/' . $e->{md5} ),
           "by md5 GET($e->{md5})"
       );
       $entry = undef;
       ok( $entry = $response->data, 'Get data from response' );
       is_deeply( $entry, $e, 'got correct entry' );
   
   #    $entry = undef;
   #    ok( $entry = $api->GET( '/todo_file/entry/' . $e->{line} . '/done' ),
   #        "by line GET($e->{line}/done)"
   #    );
   #    is_deeply( $entry, $e, 'got correct entry' );
   
   #    $entry = undef;
   #    ok( $entry = $api->GET( '/todo_file/entry/' . $e->{md5} . '/done' ),
   #        "by md5 GET($e->{md5}/done)"
   #    );
   #    is_deeply( $entry, $e, 'got correct entry' );
 }  }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>