version 1.1, 2010/01/17 19:41:24 |
version 1.5, 2010/01/24 04:39:12 |
|
|
# 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: entry.t,v 1.4 2010/01/24 04:38:21 andrew Exp $ |
#=============================================================================== |
#=============================================================================== |
|
|
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
use Test::More tests => 26; |
use Test::More tests => 62; |
|
|
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" ); |
|
|
|
|
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, [ { basedir => 't', path_info => '/lists/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', |
|
|
|
|
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' ); |
} |
} |