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 ); |