Commit | Line | Data |
254eca41 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | use lib 't/lib'; |
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 => 4; |
17 | } |
18 | |
19 | use Test::WWW::Mechanize::Catalyst; |
20 | |
21 | my $m1 = Test::WWW::Mechanize::Catalyst->new(catalyst_app => 'Catty'); |
22 | my $m2 = Test::WWW::Mechanize::Catalyst->new(catalyst_app => 'CattySession'); |
23 | |
24 | $m1->get_ok("/name"); |
25 | $m1->title_is('Catty'); |
26 | |
27 | $m2->get_ok("/name"); |
28 | $m2->title_is('CattySession'); |