===================================================================
RCS file: /cvs/todotxt/Text-Todo-REST-API/t/GET/entry.t,v
retrieving revision 1.7
retrieving revision 1.9
diff -u -r1.7 -r1.9
--- todotxt/Text-Todo-REST-API/t/GET/entry.t	2010/01/26 04:30:13	1.7
+++ todotxt/Text-Todo-REST-API/t/GET/entry.t	2010/01/31 03:10:39	1.9
@@ -7,7 +7,7 @@
 #       AUTHOR:  Andrew Fresh (AAF), andrew@cpan.org
 #      COMPANY:  Red River Communications
 #      CREATED:  01/07/10 19:11
-#     REVISION:  $AFresh1: entry.t,v 1.6 2010/01/26 03:51:49 andrew Exp $
+#     REVISION:  $AFresh1: entry.t,v 1.8 2010/01/26 06:03:11 andrew Exp $
 #===============================================================================
 
 use strict;
@@ -26,10 +26,11 @@
     use_ok( $class,     "use $class" );
 }
 
-diag("Testing GET entry $class $Text::Todo::REST::API::Actions::GET::VERSION");
+diag(
+    "Testing GET entry $class $Text::Todo::REST::API::Actions::GET::VERSION");
 
 my $api = new_ok( $api_class, [ { todo_dir => 't/lists' } ] );
-my $action = new_ok( $class );
+my $action = new_ok($class);
 
 my $list_should_be;
 ok( $list_should_be = $api->GET('todo_file'), 'Get todo_file' );
@@ -44,7 +45,7 @@
         is_deeply( $entry, $e, "Entry Matches" );
 
         my $response;
-        ok( $response = $api->GET( '/todo_file/entry/' . $e->{$type} ),
+        ok( $response = $api->GET( '/todo_file/' . $e->{$type} ),
             "by $type GET($e->{$type})" );
         $entry = undef;
         ok( $entry = $response->data, 'Get data from response' );
@@ -52,7 +53,7 @@
 
         $response = undef;
         ok( $response
-                = $api->GET( '/todo_file/entry/' . $e->{$type} . '/done' ),
+                = $api->GET( '/todo_file/' . $e->{$type} . '/done' ),
             "by $type GET($e->{$type}/done)"
         );
         my ($should_be) = $e->{text} =~ /^(x)/xms;