Commit | Line | Data |
ad93b3e9 |
1 | #!perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use DBI; |
6 | use File::Path; |
7 | use FindBin; |
8 | use Test::More; |
9 | use lib "$FindBin::Bin/lib"; |
10 | |
11 | BEGIN { |
12 | eval { require Test::WWW::Mechanize::Catalyst } |
13 | or plan skip_all => |
14 | "Test::WWW::Mechanize::Catalyst is required for this test"; |
15 | |
16 | eval { require DBD::SQLite } |
17 | or plan skip_all => |
18 | "DBD::SQLite is required for this test"; |
19 | |
20 | eval { require DBIx::Class } |
21 | or plan skip_all => |
22 | "DBIx::Class is required for this test"; |
23 | |
24 | eval { require Catalyst::Plugin::Session; |
25 | die unless $Catalyst::Plugin::Session::VERSION >= 0.02 } |
26 | or plan skip_all => |
27 | "Catalyst::Plugin::Session >= 0.02 is required for this test"; |
28 | |
f26005a7 |
29 | eval { require Catalyst::Plugin::Session::State::Cookie; } |
30 | or plan skip_all => |
31 | "Catalyst::Plugin::Session::State::Cookie is required for this test"; |
32 | |
33 | |
ad93b3e9 |
34 | plan tests => 8; |
35 | |
36 | $ENV{TESTAPP_DB_FILE} = "$FindBin::Bin/auth.db" unless exists($ENV{TESTAPP_DB_FILE}); |
37 | |
38 | $ENV{TESTAPP_CONFIG} = { |
39 | name => 'TestApp', |
40 | authentication => { |
41 | default_realm => "users", |
42 | realms => { |
43 | users => { |
44 | credential => { |
45 | 'class' => "Password", |
46 | 'password_field' => 'password', |
47 | 'password_type' => 'clear' |
48 | }, |
49 | store => { |
50 | 'class' => 'DBIx::Class', |
51 | 'user_class' => 'TestApp::User', |
f26005a7 |
52 | 'use_userdata_from_session' => 0, |
ad93b3e9 |
53 | }, |
54 | }, |
55 | }, |
56 | }, |
57 | }; |
58 | |
59 | $ENV{TESTAPP_PLUGINS} = [ |
60 | qw/Authentication |
61 | Session |
62 | Session::Store::Dummy |
63 | Session::State::Cookie |
64 | / |
65 | ]; |
66 | } |
67 | |
68 | use SetupDB; |
69 | |
70 | use Test::WWW::Mechanize::Catalyst 'TestApp'; |
71 | my $m = Test::WWW::Mechanize::Catalyst->new; |
72 | |
73 | # log a user in |
74 | { |
75 | $m->get_ok( 'http://localhost/user_login?username=joeuser&password=hackme', undef, 'request ok' ); |
76 | $m->content_is( 'joeuser logged in', 'user logged in ok' ); |
77 | } |
78 | |
79 | # verify the user is still logged in |
80 | { |
81 | $m->get_ok( 'http://localhost/get_session_user', undef, 'request ok' ); |
82 | $m->content_is( 'joeuser', 'user still logged in' ); |
83 | } |
84 | |
85 | # log the user out |
86 | { |
87 | $m->get_ok( 'http://localhost/user_logout', undef, 'request ok' ); |
88 | $m->content_is( 'logged out', 'user logged out ok' ); |
89 | } |
90 | |
91 | # verify there is no session |
92 | { |
93 | $m->get_ok( 'http://localhost/get_session_user', undef, 'request ok' ); |
94 | $m->content_is( '', "user's session deleted" ); |
95 | } |
96 | |
97 | # clean up |
98 | unlink $ENV{TESTAPP_DB_FILE}; |