#=============================================================================== # # FILE: formats.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.6 2010/01/26 06:03:11 andrew Exp $ #=============================================================================== use strict; use warnings; use Test::More tests => 4; my $class; BEGIN { $class = 'Text::Todo::REST::API::Representations'; use_ok( $class, "use $class" ); } diag("Testing $class $Text::Todo::REST::API::Representations::VERSION"); my $path_info = '/'; my $api = new_ok( $class, [] ); ok( !defined $api->content_type, 'content_type method' ); ok( !defined $api->can_render, 'can_render method' );