version 1.1, 2010/01/17 19:41:24 |
version 1.4, 2010/01/24 04:38:21 |
|
|
# 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$ |
# REVISION: $AFresh1: tags.t,v 1.3 2010/01/23 07:15:40 andrew Exp $ |
#=============================================================================== |
#=============================================================================== |
|
|
use strict; |
use strict; |
|
|
|
|
diag("Testing GET tags $class $Text::Todo::REST::API::VERSION"); |
diag("Testing GET tags $class $Text::Todo::REST::API::VERSION"); |
|
|
my $api = new_ok( $class, [ { basedir => 't', path_info => '/lists/todo' } ] ); |
my $api = new_ok( $class, [ { todo_dir => 't/lists' } ] ); |
|
|
my %tags = ( |
my %tags = ( |
project => ['delete', 'dos', 'uno'], |
project => ['delete', 'dos', 'uno'], |
|
|
); |
); |
|
|
foreach my $tag (keys %tags) { |
foreach my $tag (keys %tags) { |
my @tags; |
my $tags; |
ok( @tags = $api->get_tags($tag), "Get [$tag] tags" ); |
ok( $tags = $api->get_tags($api->_todo, $tag), "Get [$tag] tags" ); |
is_deeply( \@tags, $tags{$tag}, 'got expected ' . $tag . 's' ); |
is_deeply( $tags, $tags{$tag}, 'got expected ' . $tag . 's' ); |
} |
} |