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

Return to tags.t CVS log

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

version 1.6, 2010/01/26 06:03:11

version 1.7, 2010/02/14 06:14:57

Line 7

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

# COMPANY: Red River Communications

# 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 warnings;

use Test::More tests => 8;

use Test::More tests => 10;

my $api_class;

my $class;

Line 31

my $action = new_ok($class);

my %tags = (

undef => { 'context' => '@', 'project' => '+' },

project => [ 'delete', 'dos', 'uno' ],

context => [ 'one', 'two' ],

);

foreach my $tag ( keys %tags ) {

foreach my $key ( keys %tags ) {

my $tag = $key;

if ($tag eq 'undef') {

$tag = undef;

}

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' );

}