1#!perl 2use strict; 3use warnings; 4use lib 'lib'; 5use Test::More; 6 7BEGIN { 8 eval { 9 require Catalyst::Plugin::Session; 10 require Catalyst::Plugin::Session::State::Cookie; 11 }; 12 13 if ($@) { 14 diag($@); 15 plan skip_all => "Need Catalyst::Plugin::Session to run this test"; 16 exit 0; 17 } 18} 19use lib 't/lib'; 20use Test::WWW::Mechanize::Catalyst 'CattySession'; 21 22plan tests => 3; 23 24my $m = Test::WWW::Mechanize::Catalyst->new; 25$m->credentials( 'user', 'pass' ); 26 27$m->get_ok("/"); 28$m->title_is("Root"); 29 30is( $m->status, 200 ); 31