=================================================================== RCS file: /cvs/todotxt/Text-Todo-REST-API/t/formats.t,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- todotxt/Text-Todo-REST-API/t/formats.t 2010/01/17 19:41:24 1.1 +++ todotxt/Text-Todo-REST-API/t/formats.t 2010/01/17 21:53:35 1.2 @@ -7,7 +7,7 @@ # AUTHOR: Andrew Fresh (AAF), andrew@cpan.org # COMPANY: Red River Communications # CREATED: 01/07/10 19:11 -# REVISION: $AFresh1$ +# REVISION: $AFresh1: formats.t,v 1.1 2010/01/17 19:41:24 andrew Exp $ #=============================================================================== use strict; @@ -26,10 +26,10 @@ my $api = new_ok( $class, [ { basedir => 't', path_info => '/lists/todo' } ] ); my $result; -ok( !eval { $result = $api->Load('test') }, 'Load method' ); -like( $@, '/^Unable to Load \[test\]/', 'Failed Load as expected' ); +ok( !eval { $result = $api->Load() }, 'Load method' ); +like( $@, '/^Unable to Load \[list\]/', 'Failed Load as expected' ); $result = undef; -ok( !eval { $result = $api->Dump('test') }, 'Dump method' ); -like( $@, '/^Unable to Dump \[test\]/', 'Failed Dump as expected' ); +ok( !eval { $result = $api->Dump() }, 'Dump method' ); +like( $@, '/^Unable to Dump \[list\]/', 'Failed Dump as expected' ); $result = undef;