===================================================================
RCS file: /cvs/todotxt/Text-Todo-REST-API/t/GET/tags.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- todotxt/Text-Todo-REST-API/t/GET/tags.t	2010/01/26 06:03:11	1.6
+++ todotxt/Text-Todo-REST-API/t/GET/tags.t	2010/02/14 06:14:57	1.7
@@ -7,13 +7,13 @@
 #       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;
 
@@ -31,12 +31,18 @@
 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" );
-    is_deeply( $tags, $tags{$tag}, 'got expected ' . $tag . 's' );
+    ok( $tags = $action->get_tags( $api->_todo, $tag ), "Get [$key] tags" );
+    is_deeply( $tags, $tags{$key}, 'got expected ' . $key. 's' );
 }