Current Path : /proc/self/root/proc/2/cwd/usr/local/ssl/OAuth-Lite-1.32/t/

Upload File :

Current File : //proc/self/root/proc/2/cwd/usr/local/ssl/OAuth-Lite-1.32/t/03_signature_method_hmac_sha1.t

use Test::More tests => 8;

use OAuth::Lite::SignatureMethod::HMAC_SHA1;

is(OAuth::Lite::SignatureMethod::HMAC_SHA1->method_name, 'HMAC-SHA1');
is(OAuth::Lite::SignatureMethod::HMAC_SHA1->build_body_hash(qq{Hello World!}), q{Lve95gjOVATpfV8EL5X4nxwjKHE=});

my $base = "hogehogehoge";

my $signer = OAuth::Lite::SignatureMethod::HMAC_SHA1->new(
	consumer_secret => 'foo',
	token_secret    => 'bar',
);

my $signature = $signer->sign($base);
is($signature, q{TdSY8Tl5G/ihzaO8aRnIIdc7Wkc=});

my $verifier = OAuth::Lite::SignatureMethod::HMAC_SHA1->new(
	consumer_secret => 'foo',
	token_secret    => 'bar',
);

my $invalid_verifier = OAuth::Lite::SignatureMethod::HMAC_SHA1->new(
	consumer_secret => 'foo',
	token_secret    => 'invalid',
);

ok($verifier->verify($base, $signature));
ok(!$invalid_verifier->verify($base, $signature));

my $signer2 = OAuth::Lite::SignatureMethod::HMAC_SHA1->new(
	consumer_secret => 'foo',
);

my $signature2 = $signer2->sign($base);
is($signature2, q{ietxdwnHDniD+idyuFYk7MVQxHY=});

my $verifier2 = OAuth::Lite::SignatureMethod::HMAC_SHA1->new(
	consumer_secret => 'foo',
);

ok($verifier2->verify($base, $signature2));
ok(!$invalid_verifier->verify($base, $signature2));

Copyright 2K16 - 2K18 Indonesian Hacker Rulez