use Test::Base; use FindBin; use OpenIDHack; use YAML::Syck; 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->detect( $block->openid ) || '' ; is( $detect , $block->expected , $block->name ); } __END__ === technorati 認証 basic --- openid technorati.com/people/technorati/tomyhero --- expected chomp technorati === technorati 認証 + http --- openid http://technorati.com/people/technorati/tomyhero --- expected chomp technorati === technorati 認証 + http + / --- openid http://technorati.com/people/technorati/tomyhero/ --- expected chomp technorati === livedoor 認証 basic --- openid profile.livedoor.com/tomyhero --- expected chomp livedoor === livedoor 認証 + http --- openid http://profile.livedoor.com/tomyhero --- expected chomp livedoor === livedoor 認証 + http + / --- openid http://profile.livedoor.com/tomyhero/ --- expected chomp livedoor === openid ne jp認証 basic --- openid tomyhero.openid.ne.jp --- expected chomp openidnejp === openid ne jp認証 with url --- openid http://tomyhero.openid.ne.jp --- expected chomp openidnejp === openid ne jp認証 with back slash --- openid http://tomyhero.openid.ne.jp/ --- expected chomp openidnejp === livejournal認証 basic --- openid tomyhero.livejournal.com --- expected chomp livejournal === livejournal認証 with url --- openid http://tomyhero.livejournal.com --- expected chomp livejournal === livejournal認証 with back slash --- openid http://tomyhero.livejournal.com/ --- expected chomp livejournal === vox認証 basic --- openid tomyhero.vox.com --- expected chomp vox === vox認証 with url --- openid http://tomyhero.vox.com --- expected chomp vox === vox認証 with back slash --- openid http://tomyhero.vox.com/ --- expected chomp vox === ハテナ認証 basic --- openid www.hatena.ne.jp/woremacx/ --- expected chomp hatena === ハテナ認証 with url --- openid http://www.hatena.ne.jp/woremacx/ --- expected chomp hatena === ハテナ認証 with out back slash --- openid http://www.hatena.ne.jp/woremacx --- expected chomp === ハテナ認証 + なんかついてる --- openid http://www.hatena.ne.jp/woremacx/asdfojadfooaifj --- expected chomp hatena === ハテナ認証 + htpps --- openid https://www.hatena.ne.jp/woremacx/ --- expected chomp hatena