6 use Test::More tests => 10;
11 BEGIN { use_ok( $m = "Catalyst::Plugin::Session" ) }
14 my $log_meta = Class::MOP::Class->create_anon_class(superclasses => ['Moose::Object']);
15 my $log = $log_meta->name->new;
19 $log_meta->add_method("fatal" => sub { $calls++; 1; });
26 sub new { bless {}, $_[0] }
27 sub config { \%config }
33 grep { $_ eq $class } @mock_isa or $self->SUPER::isa($class);
37 can_ok( $m, "setup" );
39 eval { MockCxt->new->setup }; # throws OK is not working with NEXT
42 qr/requires.*((?:State|Store).*){2}/i,
43 "can't setup an object that doesn't use state/store plugins"
46 is $calls, 1, 'Fatal error logged';
48 @mock_isa = qw/Catalyst::Plugin::Session::State/;
49 eval { MockCxt->new->setup };
50 like( $@, qr/requires.*(?:Store)/i,
51 "can't setup an object that doesn't use state/store plugins" );
53 @mock_isa = qw/Catalyst::Plugin::Session::Store/;
54 eval { MockCxt->new->setup };
55 like( $@, qr/requires.*(?:State)/i,
56 "can't setup an object that doesn't use state/store plugins" );
61 qw/Catalyst::Plugin::Session::State Catalyst::Plugin::Session::Store/;
62 eval { MockCxt->new->setup };
63 ok( !$@, "setup() lives with state/store plugins in use" );
64 is( $calls, 0, "no fatal error logged either" );
67 [ keys %{ $config{session} } ],
68 bag(qw/expires verify_address verify_user_agent/),
69 "default values for config were populated in successful setup",
72 %config = ( session => { expires => 1234 } );
74 is( $config{session}{expires},
75 1234, "user values are not overwritten in config" );