OpenSSL/t/05_HMAC.t


use Test;
BEGIN { plan tests => 2 };
use OpenSSL::HMAC qw(hmac_hex sha1_hex new_hmac);

ok(hmac_hex("sha1", "pwdx", "seppl") eq hmac_hex('sha1', 'pwd', "seppl") ? 0 : 1);
ok(hmac_hex("sha1", "pwd", "seppl") eq hmac_hex('sha1', 'pwd', "seppl") ? 1 : 0);
Revision:	1.1
Committed:	Sat Oct 27 01:53:25 2001 UTC (24 years, 11 months ago) by stefan
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	BEFORE_5_8_REGEX_FIX, HEAD
Log Message:	* empty log message *
#	Content
1
2	use Test;
3	BEGIN { plan tests => 2 };
4	use OpenSSL::HMAC qw(hmac_hex sha1_hex new_hmac);
5
6	ok(hmac_hex("sha1", "pwdx", "seppl") eq hmac_hex('sha1', 'pwd', "seppl") ? 0 : 1);
7	ok(hmac_hex("sha1", "pwd", "seppl") eq hmac_hex('sha1', 'pwd', "seppl") ? 1 : 0);