===================================================================
RCS file: /cvs/todotxt/Text-Todo-REST-API/t/GET.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- todotxt/Text-Todo-REST-API/t/GET.t	2010/01/17 21:07:26	1.3
+++ todotxt/Text-Todo-REST-API/t/GET.t	2010/01/18 13:47:53	1.4
@@ -7,7 +7,7 @@
 #       AUTHOR:  Andrew Fresh (AAF), andrew@cpan.org
 #      COMPANY:  Red River Communications
 #      CREATED:  01/07/10 19:11
-#     REVISION:  $AFresh1: GET.t,v 1.2 2010/01/17 20:18:58 andrew Exp $
+#     REVISION:  $AFresh1: GET.t,v 1.3 2010/01/17 21:07:26 andrew Exp $
 #===============================================================================
 
 use strict;
@@ -53,20 +53,20 @@
 ];
 
 my @pass = (
-    {   path_info => '/lists',
+    {   path_info => '',
         result => ['todo.txt'],
     },
-    {   path_info => '/lists/todo',
+    {   path_info => '/todo',
         result => $list_should_be,
     },
-    {   path_info => '/lists/todo/list',
+    {   path_info => '/todo/list',
         result => $list_should_be,
     },
 );
 
 foreach my $p (@pass) {
     my $api = new_ok( $class,
-        [ { basedir => 't', path_info => $p->{path_info} } ] );
+        [ { todo_dir => 't/lists', path_info => $p->{path_info} } ] );
 
     my @result;
     ok( eval { @result = $api->GET() },
@@ -80,17 +80,17 @@
 }
 
 my @fail = (
-    {   path_info => '/lists/todo/entry',
+    {   path_info => '/todo/entry',
         result => '',
     },
-    {   path_info => '/lists/todo/unsupported',
+    {   path_info => '/todo/unsupported',
         result => 'Unable to handle GET \[unsupported\]',
     },
 );
 
 foreach my $p (@fail) {
     my $api = new_ok( $class,
-        [ { basedir => 't', path_info => $p->{path_info} } ] );
+        [ { todo_dir => 't/lists', path_info => $p->{path_info} } ] );
 
     my $result;
     ok( !eval { $result = $api->GET() },