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

Return to list.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: list.t,v 1.2 2010/01/18 13:47:53 andrew Exp $

# REVISION: $AFresh1: list.t,v 1.3 2010/01/23 07:15:40 andrew Exp $

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

use strict;

use warnings;

use Test::More tests => 17;

use Test::More tests => 21;

my $class;

Line 53

}

];

my @list;

my $list;

ok( @list = $api->get_list( $api->_todo), 'get_list' );

ok( $list = $api->get_list( $api->_todo), 'get_list' );

is( scalar @list, 6, 'list is right length' );

is( scalar @{ $list }, 6, 'list is right length' );

is_deeply( \@list, $list_should_be, 'check that we got the right list' );

is_deeply( $list, $list_should_be, 'check that we got the right list' );

foreach my $arg (

'todo_file', '/todo_file/list',

Line 64

{ list => 'todo_file', action => 'list', args => [] },

)

{

my @list;

my $response;

ok( @list = $api->GET($arg), "GET($arg)" );

ok( $response = $api->GET($arg), "GET($arg)" );

is( scalar @list, 6, 'list is right length' );

my $list;

is_deeply( \@list, $list_should_be, 'check that we got the right list' );

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

is( scalar @{ $list }, 6, 'list is right length' );

is_deeply( $list, $list_should_be, 'check that we got the right list' );

}