version 1.6, 2010/01/26 06:03:11 |
version 1.7, 2010/02/14 06:14:57 |
|
|
# 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: tags.t,v 1.5 2010/01/26 04:30:13 andrew Exp $ |
# REVISION: $AFresh1: tags.t,v 1.6 2010/01/26 06:03:11 andrew Exp $ |
#=============================================================================== |
#=============================================================================== |
|
|
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
use Test::More tests => 8; |
use Test::More tests => 10; |
my $api_class; |
my $api_class; |
my $class; |
my $class; |
|
|
|
|
my $action = new_ok($class); |
my $action = new_ok($class); |
|
|
my %tags = ( |
my %tags = ( |
|
undef => { 'context' => '@', 'project' => '+' }, |
project => [ 'delete', 'dos', 'uno' ], |
project => [ 'delete', 'dos', 'uno' ], |
context => [ 'one', 'two' ], |
context => [ 'one', 'two' ], |
); |
); |
|
|
foreach my $tag ( keys %tags ) { |
foreach my $key ( keys %tags ) { |
|
my $tag = $key; |
|
if ($tag eq 'undef') { |
|
$tag = undef; |
|
} |
|
|
my $tags; |
my $tags; |
ok( $tags = $action->get_tags( $api->_todo, $tag ), "Get [$tag] tags" ); |
ok( $tags = $action->get_tags( $api->_todo, $tag ), "Get [$key] tags" ); |
is_deeply( $tags, $tags{$tag}, 'got expected ' . $tag . 's' ); |
is_deeply( $tags, $tags{$key}, 'got expected ' . $key. 's' ); |
} |
} |