X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Plugin-Session-State-Cookie.git;a=blobdiff_plain;f=t%2Fbasic.t;h=6d96eef2bf66b07e3f677db9f1db84b45506e84e;hp=76f53fee3438b402c04bb657f9b7f1247d4d5541;hb=HEAD;hpb=679f4a58ec826086a27927f5d745c32d584295f8 diff --git a/t/basic.t b/t/basic.t index 76f53fe..6d96eef 100644 --- a/t/basic.t +++ b/t/basic.t @@ -1,10 +1,10 @@ -#!/usr/bin/perl - use strict; use warnings; use Test::More tests => 13; +use Catalyst::Plugin::Session; + my $m; BEGIN { use_ok( $m = "Catalyst::Plugin::Session::State::Cookie" ) } @@ -23,7 +23,13 @@ my $cookies_called = 0; $res_meta->add_method( cookies => sub { $cookies_called++; \%res_cookies }); my $res = $res_meta->name->new; -my $cxt_meta = Class::MOP::Class->create_anon_class( superclasses => ["Catalyst::Plugin::Session::State::Cookie", 'Moose::Object'] ); +my $cxt_meta = Class::MOP::Class->create_anon_class( + superclasses => [qw/ + Catalyst::Plugin::Session + Catalyst::Plugin::Session::State::Cookie + Moose::Object + /], +); my $config = {}; $cxt_meta->add_method( config => sub { $config }); @@ -40,10 +46,10 @@ can_ok( $m, "setup_session" ); my $cxt = $cxt_meta->name->new; $cxt->setup_session; -like( $config->{session}{cookie_name}, +like( $config->{'Plugin::Session'}{cookie_name}, qr/_session$/, "default cookie name is set" ); -$config->{session}{cookie_name} = "session"; +$config->{'Plugin::Session'}{cookie_name} = "session"; can_ok( $m, "get_session_id" ); @@ -72,7 +78,14 @@ $cxt->set_session_id($sessionid); ok( $cookies_called, "response cookie was set when sessionid changed" ); is_deeply( \%res_cookies, - { session => { value => $sessionid, httponly => 1, expires => 123 } }, + { + session => { + value => $sessionid, + httponly => 1, + expires => 123, + samesite => 'Lax', + }, + }, "cookie was set correctly" );