The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Angerwhale::Test - Test Angerwhale

SYNOPSIS

   use Angerwhale::Test (description => 'test blog',
                         title       => 'test blog',);

   my $mech = Angerwhale::Test->new;
   my $tmp  = $mech->tmp;

   # post an article
   $tmp->touch('article1', "This is an article."); 
   $mech->get_ok('http://localhost/articles/article1');

   return;
   # article is cleaned up automatically

METHODS

Subclasses Test::WWW::Mechanize::Catalyst.

import

Import the module, setup config, create tmp basedir.

new

Create a new Mech object (etc.).

tmp

Return Directory::Scratch object representing temp dir.

article(\%args)

Post a new article. Args are title, body, type ...

Optionally you can pass a string instead of args, in which case the string will be the title and the body.