view release on metacpan or  search on metacpan

t/openid.t  view on Meta::CPAN

use strict;
use warnings FATAL => 'all';
use English '-no_match_vars';

use FindBin;

use lib "$FindBin::Bin/lib";

use Test::More tests => 1;
SKIP: {
    skip 'skip all-- openid does not work for this bugfix release', 1;
    ok( 1 == 1, 'foo' );
    exit;
}

__END__

use Apache2::Controller::Test::Funk qw( diag od qs );
use YAML::Syck;
use URI::Escape;
use Carp qw(croak longmess);
use Log::Log4perl qw(:easy);

# start a separate server.
# because it can't process requests for the openid url
# while it is processing the request that tries to get it.

use Apache2::Controller::Test::OpenIDServer;

# start up the openid test server
my $openid_server = Apache2::Controller::Test::OpenIDServer->new();
my $openid_port = $openid_server->port;
my $openid_url_base = "http://localhost:$openid_port";
diag("openid_url_base: $openid_url_base");

my $openid_url = "$openid_url_base/a2ctest";
my $esc_openid_url = uri_escape($openid_url);

# set the server running in the background
my $openid_server_pid = $openid_server->background;
diag("openid server backgrounded, pid is '$openid_server_pid'");

# use the test libs after forking... although it doesn't seem to matter
use Apache::Test;
use Apache::TestUtil;
use Apache::TestRequest qw( GET_HEAD GET_BODY GET_STR );
plan tests => 25, need_module qw(
    LWP
    Net::OpenID::Server
    HTTP::Server::Simple
);
Apache::TestRequest::user_agent(cookie_jar => {}, requests_redirectable => 0);

my $at_config = Apache::Test::config();
#diag(Dump($at_config));

my $test_server_url = $at_config->{vars}{scheme}.'://'.$at_config->{server}{name};

my $protected_url = "/openid/protected";
my $user_area = "$protected_url/access_user_area";
my $login_url = "$protected_url/login";

# eval everything to make sure we kill the server on an error
eval {

# test the openid server first to make sure it's working
my $openid_working = GET_BODY "$openid_url_base/working";