view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

  use Catalyst qw/
    Session
    Session::State::Cookie
    Session::Store::Cookie/;

  MyApp->config('Plugin::Session' => {storage_secret_key => 'abc123'});
  MyApp->setup;
}


use HTTP::Request::Common;
use Test::WWW::Mechanize::Catalyst qw/MyApp/;
 
ok my $m = Test::WWW::Mechanize::Catalyst->new;

$m->get_ok( "http://localhost/root/create_session", "create session" );
$m->content_contains("create_session", "Correct content");
$m->get_ok( "http://localhost/root/check_session1", "check session" );
$m->content_contains("check_session1", "Correct content");
$m->get_ok( "http://localhost/root/check_session1", "check session" );
$m->content_contains("check_session1", "Correct content");