use Test::Base;
use FindBin;
use OpenIDHack;
use YAML::Syck;
use utf8;
plan tests => 1 * blocks;

$YAML::Syck::ImplicitUnicode = 1;

my $file = "$FindBin::Bin/../conf/sex_recorder_catalyst_openid_hack.yml";
my $config = LoadFile( $file );

my $hack = OpenIDHack->new();
$hack->config( $config->{openid_hack} );

run {
    my $block = shift;
    my $detect  = $hack->identity_key( $block->openid , $block->prefix ) ;
    is( $detect , $block->expected , $block->name ); 
};

__END__
=== hatena tomyerho
--- openid
www.hatena.ne.jp/tomyhero/
--- prefix chomp
hatena
--- expected chomp
tomyhero
=== technorati tomyerho
--- openid
technorati.com/people/technorati/tomyhero
--- prefix chomp
technorati
--- expected chomp
tomyhero
=== livedoor tomyerho
--- openid
profile.livedoor.com/tomyhero
--- prefix chomp
livedoor
--- expected chomp
tomyhero
=== openidnejp tomyerho
--- openid
tomyhero.openid.ne.jp
--- prefix chomp
openidnejp
--- expected chomp
tomyhero
=== vox tomyerho
--- openid
tomyhero.vox.com
--- prefix chomp
vox
--- expected chomp
tomyhero
=== livejournal tomyhero
--- openid
tomyhero.livejournal.com
--- prefix chomp
livejournal
--- expected chomp
tomyhero
=== livejournal oppa-pi
--- openid
http://oppa-pi.livejournal.com
--- prefix chomp
livejournal
--- expected chomp
oppa-pi