8 use Test::WWW::Mechanize;
10 plan skip_all => 'set TEST_HTTP to enable this test' unless $ENV{TEST_HTTP};
11 eval "use Catalyst::Devel 1.0";
12 plan skip_all => 'Catalyst::Devel required' if $@;
17 # One port for consumer app, one for provider.
18 my $consumer_port = 10000 + int rand(1 + 10000);
19 my $provider_port = $consumer_port;
20 $provider_port = 10000 + int rand(1 + 10000) until $consumer_port != $provider_port;
22 my $provider_pipe = "perl -I$FindBin::Bin/../lib -I$FindBin::Bin/Provider/lib $FindBin::Bin/Provider/script/testapp_server.pl -p $consumer_port |";
24 my $consumer_pipe = "perl -I$FindBin::Bin/../lib -I$FindBin::Bin/Consumer/lib $FindBin::Bin/Consumer/script/testapp_server.pl -p $provider_port |";
26 my $provider_pid = open my $provider, $provider_pipe
27 or die "Unable to spawn standalone HTTP server for Provider: $!";
29 diag("Started Provider with pid $provider_pid");
31 my $consumer_pid = open my $consumer, $consumer_pipe
32 or die "Unable to spawn standalone HTTP server for Consumer: $!";
34 diag("Started Consumer with pid $consumer_pid");
36 # How long to wait for test server to start and timeout for UA.
40 diag("Waiting (up to $seconds seconds) for application servers to start...");
43 local $SIG{ALRM} = sub { die "Servers took too long to start\n" }; # NB: \n required
45 sleep 1 while check_port( 'localhost', $provider_port ) != 1;
46 sleep 1 while check_port( 'localhost', $consumer_port ) != 1;
53 die "Could not run test: $@";
56 my $root = $ENV{CATALYST_SERVER} = "http://localhost:$consumer_port";
57 my $openid_server = "http://localhost:$provider_port";
59 # Tests start --------------------------------------------
60 diag("Started...") if $ENV{TEST_VERBOSE};
62 my $mech = Test::WWW::Mechanize->new(timeout => $seconds);
64 $mech->get_ok($root, "GET $root");
65 $mech->content_contains("not signed in", "Content looks right");
67 $mech->get_ok("$openid_server/login", "GET $root/login");
69 # diag($mech->content);
71 $mech->submit_form_ok({ form_name => "login",
72 fields => { username => "paco",
73 password => "l4s4v3n7ur45",
76 "Trying cleartext login, 'memebers' realm");
78 $mech->content_contains("signed in", "Signed in successfully");
80 $mech->get_ok("$root/signin_openid", "GET $root/signin_openid");
82 $mech->content_contains("Sign in with OpenID", "Content looks right");
84 my $claimed_uri = "$openid_server/provider/paco";
86 $mech->submit_form_ok({ form_name => "openid",
87 fields => { openid_identifier => $claimed_uri,
90 "Trying OpenID login, 'openid' realm");
92 $mech->content_contains("You did it with OpenID!",
93 "Successfully signed in with OpenID");
95 $mech->get_ok($root, "GET $root");
97 $mech->content_contains("provider/paco", "OpenID info is in the user");
101 $mech->get_ok("$root/logout", "GET $root/logout");
103 $mech->get_ok("$root/signin_openid", "GET $root/signin_openid");
105 $mech->content_contains("Sign in with OpenID", "Content looks right");
107 $mech->submit_form_ok({ form_name => "openid",
108 fields => { openid_identifier => $claimed_uri,
111 "Trying OpenID login, 'openid' realm");
113 $mech->content_contains("can't be verified",
114 "Proper failure for unauthenticated memember.");
120 # Tests end ----------------------------------------------
123 kill INT => $provider_pid, $consumer_pid;
129 my ( $host, $port ) = @_;
131 my $remote = IO::Socket::INET->new(