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 (22 years, 7 months ago) by stefan
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	BEFORE_5_8_REGEX_FIX, HEAD
Log Message:	* empty log message *
#	User	Rev	Content
1	stefan	1.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);