===================================================================
RCS file: /cvs/todotxt/Text-Todo/t/list.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- todotxt/Text-Todo/t/list.t	2010/01/18 00:19:55	1.12
+++ todotxt/Text-Todo/t/list.t	2010/01/18 02:46:48	1.13
@@ -26,7 +26,7 @@
 
 diag("Testing entry $class $Text::Todo::VERSION");
 
-my $orig = new_ok( $class => [{ todo_file => 't/todo.list.txt' }] );
+my $orig = new_ok( $class, ['t/todo.list.txt'] );
 my @orig_list;
 ok( @orig_list = $orig->list, 'get orig list' );
 
@@ -36,7 +36,7 @@
     't/report.list.txt', 'orig report_file matches' );
 
 my $todo_dir = tempdir( 'todo-XXXXXXXXX', CLEANUP => 1, TMPDIR => 1 );
-my $copy = new_ok($class => []);
+my $copy = new_ok($class);
 
 foreach my $e (@orig_list) {
     ok( $copy->add($e), 'add entry from orginal list' );