#=============================================================================== # # FILE: GET/files.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: files.t,v 1.2 2010/01/18 13:47:53 andrew Exp $ #=============================================================================== use strict; use warnings; use Test::More tests => 4; use Data::Dumper; my $class; BEGIN { $class = 'Text::Todo::REST::API'; use_ok( $class, "use $class" ); } diag("Testing GET files $class $Text::Todo::REST::API::VERSION"); my $api = new_ok( $class, [ { todo_dir => 't/lists', path_info => '/todo' } ] ); my @files; ok( @files = $api->get_files, 'Get Files' ); is_deeply( \@files, [ 'todo.txt' ], 'Got correct file' );