version 1.3, 2010/01/23 07:15:40 |
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: entry.t,v 1.2 2010/01/18 13:47:53 andrew Exp $ |
# 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 => 50; |
use Test::More tests => 62; |
|
|
my $class; |
my $class; |
|
|
|
|
); |
); |
is_deeply( $entry, $e, 'got correct entry' ); |
is_deeply( $entry, $e, 'got correct entry' ); |
|
|
$entry = undef; |
my $response; |
ok( $entry = $api->GET( '/todo_file/entry/' . $e->{line} ), |
ok( $response = $api->GET( '/todo_file/entry/' . $e->{line} ), |
"by line GET($e->{line})" |
"by line GET($e->{line})" |
); |
); |
|
$entry = undef; |
|
ok( $entry = $response->data, 'Get data from response' ); |
is_deeply( $entry, $e, 'got correct entry' ); |
is_deeply( $entry, $e, 'got correct entry' ); |
|
|
$entry = undef; |
$response = undef; |
ok( $entry = $api->GET( '/todo_file/entry/' . $e->{md5} ), |
ok( $response = $api->GET( '/todo_file/entry/' . $e->{md5} ), |
"by md5 GET($e->{md5})" |
"by md5 GET($e->{md5})" |
); |
); |
|
$entry = undef; |
|
ok( $entry = $response->data, 'Get data from response' ); |
is_deeply( $entry, $e, 'got correct entry' ); |
is_deeply( $entry, $e, 'got correct entry' ); |
|
|
# $entry = undef; |
# $entry = undef; |