use Test::More tests => 1;
use WebService::Livedoor::Auth;
use CGI;
my $auth = WebService::Livedoor::Auth->new({
app_key => 'ac68fa32da1305dafe3421d012f0aaba',
secret => 'ccd0ea2d35d7bafd',
});
my %query = (
v => '1.0',
userhash => 'KVAk6au7BSk4vmEPdYqqJer90fE',
);
my $q = CGI->new(\%query);
is($auth->calc_sig(\%query), $auth->calc_sig($q));