X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2FPlack-Middleware-Auth-Complex.t;h=9fd5f0e5193ff5bda113628e35fc0efb757271fa;hb=9d9f40679564ebf365c9e4eaa47c0d2a550b16b4;hp=956ee67321c4c90d00bf8ba3ffec08413b178cfa;hpb=12aa0bc64ec5cbecd0cce89d1144deb0c66bbd61;p=plack-middleware-auth-complex.git diff --git a/t/Plack-Middleware-Auth-Complex.t b/t/Plack-Middleware-Auth-Complex.t index 956ee67..9fd5f0e 100644 --- a/t/Plack-Middleware-Auth-Complex.t +++ b/t/Plack-Middleware-Auth-Complex.t @@ -2,7 +2,7 @@ use strict; use warnings; -use Test::More tests => 59; +use Test::More tests => 61; BEGIN { $ENV{EMAIL_SENDER_TRANSPORT} = 'Test' } BEGIN { use_ok('Plack::Middleware::Auth::Complex') }; @@ -30,8 +30,13 @@ sub is_http { my $create_table = 'CREATE TABLE users (id TEXT PRIMARY KEY, passphrase TEXT, email TEXT)'; my $ac = Plack::Middleware::Auth::Complex->new({ - dbi_connect => ['dbi:SQLite:dbname=:memory:'], - post_connect_cb => sub { shift->{dbh}->do($create_table) }, + dbi_connect => ['dbi:SQLite:dbname=:memory:'], + post_connect_cb => sub { shift->{dbh}->do($create_table) }, + register_url => '/register', + passwd_url => '/passwd', + request_reset_url => '/request-reset', + reset_url => '/reset', + cache_max_age => 0, }); my $app = $ac->wrap(\&app); @@ -45,6 +50,7 @@ test_psgi $app, sub { is_http $cb->(POST '/'), 200, 'Anon', 'POST /'; is_http $cb->(GET '/register'), 200, 'Anon', 'GET /register'; set_auth 'user', 'password'; + is_http $cb->(GET '/', Authorization => 'Hello'), 200, 'Anon', 'GET / with invalid Authorization'; is_http $cb->(GET '/', Authorization => $auth), 200, 'Anon', 'GET / with bad user/pass'; is_http $cb->(POST '/register'), 400, 'Missing parameter username', 'POST /register with no parameters'; is_http $cb->(POST '/register', [@register_args, username => '???'] ), 400, 'Username must match (?^a:^\w{2,20}$)', 'POST /register with bad username';