todotxt/Text-Todo-REST-API/t/GET/entry.t - diff

Return to entry.t CVS log

Up to [local] / todotxt / Text-Todo-REST-API / t / GET

version 1.3, 2010/01/23 07:15:40

version 1.4, 2010/01/24 04:38:21

Line 7

# AUTHOR: Andrew Fresh (AAF), andrew@cpan.org

# COMPANY: Red River Communications

# 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.3 2010/01/23 07:15:40 andrew Exp $

#===============================================================================

use strict;

Line 66

);

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})"

);

$entry = undef;

ok( $entry = $response->data, 'Get data from response' );

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})"

);

$entry = undef;

ok( $entry = $response->data, 'Get data from response' );

is_deeply( $entry, $e, 'got correct entry' );

# $entry = undef;