[catagits/Test-WWW-Mechanize-Catalyst.git] / t / cookies.t

#!perl -T
use strict;
use warnings;
use lib 'lib';
use Test::More;

eval {
    require Catalyst::Plugin::Session;
    require Catalyst::Plugin::Session::State::Cookie;
};

if ($@) {
    diag($@);
    plan skip_all => "Need Catalyst::Plugin::Session to run this test";
} else {
    plan tests => 3;
}
use lib 't/lib';
use Test::WWW::Mechanize::Catalyst 'CattySession';

my $m = Test::WWW::Mechanize::Catalyst->new;
$m->credentials( 'user', 'pass' );

$m->get_ok("/");
$m->title_is("Root");

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