t/live_session_fixation.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 BEGIN {
   9     eval { require Catalyst::Plugin::Session::State::Cookie; Catalyst::Plugin::Session::State::Cookie->VERSION(0.03) }
  10       or plan skip_all =>
  11       "Catalyst::Plugin::Session::State::Cookie 0.03 or higher is required for this test";
  12
  13     eval { require Test::WWW::Mechanize::Catalyst }
  14       or plan skip_all =>
  15       "Test::WWW::Mechanize::Catalyst is required for this test";
  16
  17     plan tests => 2;
  18 }
  19
  20 use lib "t/lib";
  21 use Test::WWW::Mechanize::Catalyst "SessionTestApp";
  22
  23 my $injected_cookie = "sessiontestapp_session=89c3a019866af6f5a305e10189fbb23df3f4772c";
  24
  25 my $ua1 = Test::WWW::Mechanize::Catalyst->new;
  26 $ua1->add_header('Cookie' => $injected_cookie);
  27
  28 my $res = $ua1->get( "http://localhost/login" );
  29 my $cookie = $res->header('Set-Cookie');
  30
  31 ok $cookie;
  32 isnt $cookie, qr/$injected_cookie/, 'Logging in generates us a new cookie';
  33