[openid-test commit] r56 - in trunk: perl tester

[codesite...@google.com]

Author: ma...@degeneration.co.uk
Date: Sun Jul 20 11:35:40 2008
New Revision: 56

Modified:
trunk/perl/perl-test.cgi
trunk/tester/run-tests

Log:
Must stop committing this with LWPx::ParanoidAgent disabled.

(Should probably add an option to turn off or neuter ParanoidAgent.
Makes it tricky to run the test suite locally.)

Modified: trunk/perl/perl-test.cgi
==============================================================================
--- trunk/perl/perl-test.cgi (original)
+++ trunk/perl/perl-test.cgi Sun Jul 20 11:35:40 2008
@@ -9,8 +9,7 @@
use warnings;
use Net::OpenID::Server;
use Net::OpenID::Consumer;
-#use LWPx::ParanoidAgent;
-use LWP::UserAgent;
+use LWPx::ParanoidAgent;

my $q = CGI->new;
my $path_info = $ENV{PATH_INFO} || "";
@@ -217,7 +216,7 @@
my $base = $self->base;
my $csr = Net::OpenID::Consumer->new
(
- ua => LWP::UserAgent->new,
+ ua => LWPx::ParanoidAgent->new,
cache => $self->{rpcache},
args => $cgi,
consumer_secret => $self->consumer_secret,
@@ -326,7 +325,7 @@
my $base = $self->base;
my $csr = Net::OpenID::Consumer->new
(
- ua => LWP::UserAgent->new,
+ ua => LWPx::ParanoidAgent->new,
cache => $cache,
args => $cgi,
consumer_secret => $self->consumer_secret,

Modified: trunk/tester/run-tests
==============================================================================
--- trunk/tester/run-tests (original)
+++ trunk/tester/run-tests Sun Jul 20 11:35:40 2008
@@ -9,7 +9,7 @@

my $have_paranoid_agent;
BEGIN {
-# $have_paranoid_agent = eval "use LWPx::ParanoidAgent; 1;";
+ $have_paranoid_agent = eval "use LWPx::ParanoidAgent; 1;";
}

my ($op_base, $rp_base, $base);