version 1.4, 2010/01/18 13:47:53 |
version 1.8, 2010/01/31 03:10:39 |
|
|
# 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: GET.t,v 1.3 2010/01/17 21:07:26 andrew Exp $ |
# REVISION: $AFresh1: GET.t,v 1.7 2010/01/26 06:03:11 andrew Exp $ |
#=============================================================================== |
#=============================================================================== |
|
|
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
use Test::More tests => 16; |
use Test::More tests => 6; |
use Data::Dumper; |
|
|
|
my $class; |
my $class; |
|
|
|
|
|
|
diag("Testing GET $class $Text::Todo::REST::API::VERSION"); |
diag("Testing GET $class $Text::Todo::REST::API::VERSION"); |
|
|
my $list_should_be = [ |
my $api = new_ok( $class, [ { todo_dir => 't/lists' } ] ); |
{ 'text' => '(A) entry 1 @one +uno', |
|
'md5' => '931e0831c31a70928b29de55778dc294', |
|
'line' => 1 |
|
}, |
|
{ 'text' => 'entry 2 @two +dos', |
|
'md5' => 'b38dde8029c047e81379d9de581a6251', |
|
'line' => 2 |
|
}, |
|
{ 'text' => '', |
|
'md5' => 'd41d8cd98f00b204e9800998ecf8427e', |
|
'line' => 3 |
|
}, |
|
{ 'text' => 'x completed entry 4', |
|
'md5' => '8de0a2b65a50d5e30e84ad48af46fa78', |
|
'line' => 4 |
|
}, |
|
{ 'text' => '(B) entry 5 is priority', |
|
'md5' => 'c1692dfbf3b5829b6bce44b1a1614980', |
|
'line' => 5 |
|
}, |
|
{ 'text' => 'entry 6 +delete', |
|
'md5' => 'e1f6bf867f75aa019063782554407d02', |
|
'line' => 6 |
|
} |
|
]; |
|
|
|
my @pass = ( |
my $result; |
{ path_info => '', |
ok( eval { $result = $api->GET('/') }, 'GET method' ); |
result => ['todo.txt'], |
is( ( ref $result ), |
}, |
'Text::Todo::REST::API::Response', |
{ path_info => '/todo', |
'Got expected result' |
result => $list_should_be, |
|
}, |
|
{ path_info => '/todo/list', |
|
result => $list_should_be, |
|
}, |
|
); |
); |
|
is_deeply( $result->data, ['todo.txt'], 'Got proper data' ); |
foreach my $p (@pass) { |
is( $result->render({format => 'text'}), "todo.txt\n", "Rendered properly" ); |
my $api = new_ok( $class, |
|
[ { todo_dir => 't/lists', path_info => $p->{path_info} } ] ); |
|
|
|
my @result; |
|
ok( eval { @result = $api->GET() }, |
|
'GET method (' . $p->{path_info} . ')' |
|
); |
|
is_deeply( |
|
\@result, |
|
$p->{result}, |
|
'Failed GET as expected' |
|
); |
|
} |
|
|
|
my @fail = ( |
|
{ path_info => '/todo/entry', |
|
result => '', |
|
}, |
|
{ path_info => '/todo/unsupported', |
|
result => 'Unable to handle GET \[unsupported\]', |
|
}, |
|
); |
|
|
|
foreach my $p (@fail) { |
|
my $api = new_ok( $class, |
|
[ { todo_dir => 't/lists', path_info => $p->{path_info} } ] ); |
|
|
|
my $result; |
|
ok( !eval { $result = $api->GET() }, |
|
'GET method (' . $p->{path_info} . ')' |
|
); |
|
like( |
|
$@, |
|
'/^' . $p->{result} . '/', |
|
'Failed GET as expected (' . $p->{result} . ')' |
|
); |
|
} |
|
|
|