t/two_app.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use lib 't/lib';
   6
   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     }
  18 }
  19
  20 use Test::WWW::Mechanize::Catalyst;
  21
  22 plan tests => 4;
  23
  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');