#!/usr/bin/perl

use strict;
use Test::More 'no_plan';
use Data::Dumper;
use Net::OpenID::Consumer;

my ($query_string, %get_vars);

my $csr = Net::OpenID::Consumer->new;
$csr->args(\%get_vars);

# $csr->nonce_generator(sub { rand(5000); });
# $csr->nonce_checker(sub { return 1; });
# $csr->identity_cache(sub { return 1; });
# $csr->web_cache(sub { return 1; });

my $ident = $csr->get_claimed_identity(" sdlkj lskdj 3");
ok(! $ident);
ok( $csr->json_err =~ /url_fetch_error/);


$ident = $csr->get_claimed_identity("bradfitz.com")
    or die $csr->err . ": " . $csr->errtext;

ok($ident->claimed_url eq "http://bradfitz.com/");
ok(($ident->identity_servers)[0] eq "http://www.livejournal.com/misc/openid.bml?ljuser_sha1=9233b6f5388d6867a2a7be14d8b4ba53c86cfde2");

my $check_url = $ident->check_url(
                                  return_to => "http://www.danga.com/sdf/openid/demo/classic-helper.bml",
                                  post_grant => "return",
                                  trust_root => "http://*.danga.com/sdf",
                                  );


ok($check_url =~ /openid\.bml\?/);

$query_string = "openid.mode=id_res&openid.user_setup_url=http://www.livejournal.com/misc/openid-approve.bml%3Ftrust_root%3Dhttp://%252A.danga.com/sdf%26return_to%3Dhttp://www.danga.com/sdf/openid/demo/classic-helper.bml%26post_grant%3Dreturn%26is_identity%3Dhttp://bradfitz.com/";
%get_vars = map { durl($_) } split(/[&=]/, $query_string);

if (my $setup_url = $csr->user_setup_url) {
    ok($setup_url =~ /openid-approve/);
} else {
    die;
}

$query_string = "openid.mode=id_res&openid.assert_identity=http://bradfitz.com/fake-identity/&openid.sig=MCwCFCi%2BYw3vVwjujVVO%2Bh2KIlFs0hr1AhRhNl%2BQJfu685Cs7BxmDwH050ShNQ%3D%3D&openid.timestamp=2005-05-21T21:32:46Z&openid.return_to=http://www.danga.com/openid/demo/helper.bml";
%get_vars = map { durl($_) } split(/[&=]/, $query_string);

ok(! $csr->user_setup_url);

my $vident = $csr->verified_identity
    or die $csr->err . ": " . $csr->errtext;
ok($vident);

print "vident = $vident\n";


sub durl
{
    my ($a) = @_;
    $a =~ tr/+/ /;
    $a =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    return $a;
}