=================================================================== RCS file: /cvs/todotxt/Text-Todo-REST-API/t/formats.t,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- todotxt/Text-Todo-REST-API/t/formats.t 2010/01/18 13:47:53 1.3 +++ todotxt/Text-Todo-REST-API/t/formats.t 2010/01/19 03:18:34 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: formats.t,v 1.2 2010/01/17 21:53:35 andrew Exp $ +# REVISION: $AFresh1: formats.t,v 1.3 2010/01/18 13:47:53 andrew Exp $ #=============================================================================== use strict; @@ -26,10 +26,10 @@ my $api = new_ok( $class, [ { todo_dir => 't/lists', path_info => '/todo' } ] ); my $result; -ok( !eval { $result = $api->Load() }, 'Load method' ); -like( $@, '/^Unable to Load \[list\]/', 'Failed Load as expected' ); +ok( !eval { $result = $api->_handle_representation('load') }, 'Load method' ); +like( $@, '/^Unable to load \[list\]/', 'Failed Load as expected' ); $result = undef; ok( !eval { $result = $api->Dump() }, 'Dump method' ); -like( $@, '/^Unable to Dump \[list\]/', 'Failed Dump as expected' ); +like( $@, '/^Unable to dump \[list\]/', 'Failed Dump as expected' ); $result = undef;