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