t/two_app.t

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