Changeset 25352 for lang/perl/Net-OpenID-Consumer-Lite/trunk

Timestamp:

11/30/08 00:43:52 (5 years ago)

Author:

tokuhirom

Message:

fixed test case

Files:

• lang/perl/Net-OpenID-Consumer-Lite/trunk/xt/001_mixi.t (modified) (1 diff)

lang/perl/Net-OpenID-Consumer-Lite/trunk/xt/001_mixi.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 2;
+use Test::More tests => 1;
 use URI;
 use Net::OpenID::Consumer::Lite;
 
 my $check_url = Net::OpenID::Consumer::Lite->check_url('https://mixi.jp/openid_server.pl', 'http://example.com/');
-is $check_url, 'http://example.com/?openid.mode=id_res&openid.user_setup_url=https%3A%2F%2Fmixi.jp%2Fopenid_server.pl%3Fopenid.mode%3Dcheckid_setup%26openid.return_to%3Dhttp%253A%252F%252Fexample.com%252F';
-is +{URI->new($check_url)->query_form}->{'openid.user_setup_url'}, 'https://mixi.jp/openid_server.pl?openid.mode=checkid_setup&openid.return_to=http%3A%2F%2Fexample.com%2F';
+is $check_url, 'https://mixi.jp/openid_server.pl?openid.mode=checkid_immediate&openid.return_to=http%3A%2F%2Fexample.com%2F';