#=============================================================================== # # FILE: filters.t # # DESCRIPTION: Test Text::Todo::REST::API # # 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 $ #=============================================================================== use strict; use warnings; use Test::More tests => 6; my $class; BEGIN { $class = 'Text::Todo::REST::API'; use_ok( $class, "use $class" ); } diag("Testing $class $Text::Todo::REST::API::VERSION"); my $api = new_ok( $class, [ { basedir => 't', path_info => '/lists/todo' } ] ); my $result; ok( !eval { $result = $api->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' ); $result = undef;