=================================================================== RCS file: /cvs/todotxt/Text-Todo-REST-API/t/GET/list.t,v retrieving revision 1.5 retrieving revision 1.6 diff -u -r1.5 -r1.6 --- todotxt/Text-Todo-REST-API/t/GET/list.t 2010/01/26 04:30:13 1.5 +++ todotxt/Text-Todo-REST-API/t/GET/list.t 2010/01/26 05:47:30 1.6 @@ -7,13 +7,13 @@ # AUTHOR: Andrew Fresh (AAF), andrew@cpan.org # COMPANY: Red River Communications # CREATED: 01/07/10 19:11 -# REVISION: $AFresh1: list.t,v 1.4 2010/01/24 04:38:21 andrew Exp $ +# REVISION: $AFresh1: list.t,v 1.5 2010/01/26 04:30:13 andrew Exp $ #=============================================================================== use strict; use warnings; -use Test::More tests => 23; +use Test::More tests => 59; my $api_class; my $class; @@ -64,9 +64,19 @@ is_deeply( $list, $list_should_be, 'check that we got the right list' ); foreach my $arg ( + { list => undef, action => 'list', args => [] }, + 'todo_file', '/todo_file/list', { path => '/todo_file/list' }, { list => 'todo_file', action => 'list', args => [] }, + + 'todo', '/todo/list', + { path => '/todo/list' }, + { list => 'todo', action => 'list', args => [] }, + + 'todo.txt', '/todo.txt/list', + { path => '/todo.txt/list' }, + { list => 'todo.txt', action => 'list', args => [] }, ) { my $response;