#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Test::More;
eval {
require Plack::Middleware::DoormanOpenID;
1;
}
or do {
plan skip_all => "OpenID middleware fail to be loaded -- presumably some underlying modules are not installed.";
};
subtest "simple" => sub {
my $mw = Plack::Middleware::DoormanOpenID->new;
$mw->prepare_app;
$mw->scope_object( Doorman::Scope->new );
is $mw->scope_path, "/users";
is $mw->sign_in_path, "/users/sign_in";
is $mw->sign_out_path, "/users/sign_out";
is $mw->openid_verified_path, "/users/openid_verified";
};
subtest "Alternative root_url" => sub {
my $mw = Plack::Middleware::DoormanOpenID->new( root_url => "http://example.com/app");
$mw->prepare_app;
$mw->scope_object( Doorman::Scope->new(root_url => "http://example.com/app") );
is $mw->scope_url, "http://example.com/app/users";
is $mw->sign_in_url, "http://example.com/app/users/sign_in";
is $mw->sign_out_url, "http://example.com/app/users/sign_out";
is $mw->openid_verified_url, "http://example.com/app/users/openid_verified";
};
done_testing;