File Coverage

t/20-http_username.t

Criterion	Covered	Total	%
statement	74	75	98.6
branch	4	8	50.0
condition			n/a
subroutine	12	12	100.0
pod			n/a
total	90	95	94.7

use strict;
use warnings;

use Test::More;
use Plack::Test;

BEGIN {

    use Dancer2;

    set session => undef; # explicit
    set plugins => {
        'HTTP::Auth::Extensible' => {
            realms => {
                some_realm => {
                    scheme => "Basic",
                    provider => "Config",
                    users => [
                      { user => "dave",
                        pass => "beer",
                        name => "David Precious",
                        roles => [
                            'BeerDrinker',
                            'VodkaDrinker',
                        ],
                      },
                    ]
                }
            }
        }
    };
    set logger      => "file";
    set log         => "core";
    set show_errors => 1;
    set serializer  => "YAML";

    use Dancer2::Plugin::HTTP::Auth::Extensible;
    no warnings 'uninitialized';

    get '/auth_http_username' => http_requires_authentication sub {
        my $variable = http_username;
        return qq|variable got: | unless defined $variable;
        return qq|variable got: '$variable'|;
    };

    get '/http_username' => sub {
        my $variable = http_username;
        return qq|variable got: | unless defined $variable;
        return qq|variable got: '$variable'|;
    };

    put '/auth_http_username' => http_requires_authentication sub {
        http_username(params->{new});
        my $variable = http_username;
        return qq|variable set: | unless defined $variable;
        return qq|variable set: '$variable'|;
    };

    put '/http_username' => sub {
        http_username(params->{new});
        my $variable = http_username;
        return qq|variable set: | unless defined $variable;
        return qq|variable set: '$variable'|;
    };

} # BEGIN

my $app = Dancer2->runner->psgi_app;

{
    is (
        ref $app,
        'CODE',
        'Got app'
    );
};

test_psgi $app, sub {
    my $cb = shift;
    my $req = HTTP::Request->new( GET => '/auth_http_username');
    $req->authorization_basic ( 'dave', 'beer');
    my $res = $cb->( $req );
    like (
        $res->content,
        qr|variable got: '.*'|,
        'get http_username authenticated'
    );
};

test_psgi $app, sub {
    my $cb = shift;
    my $req = HTTP::Request->new( GET => '/http_username');
    $req->authorization_basic ( 'dave', 'beer');
    my $res = $cb->( $req );
    like (
        $res->content,
        qr|variable got: |,
        'get http_username'
    );
};

test_psgi $app, sub {
    my $cb = shift;
    my $req = HTTP::Request->new( PUT => '/auth_http_username');
    $req->authorization_basic ( 'dave', 'beer');
    $req->uri->query_form( new => 'NEW');
    my $res = $cb->( $req );
    like (
        $res->content,
        qr|variable set: 'NEW'|,
        'put http_username authenticated'
    );
};

test_psgi $app, sub {
    my $cb = shift;
    my $req = HTTP::Request->new( PUT => '/http_username');
    $req->authorization_basic ( 'dave', 'beer');
    $req->uri->query_form( new => 'NEW');
    my $res = $cb->( $req );
    like (
        $res->content,
        qr|variable set: 'NEW'|,
        'put http_username'
    );
};

done_testing();