OpenSSL/t/02_Rand.t


use Test;
BEGIN { plan tests => 4 };
use OpenSSL::Rand qw(randbytes randbytes_hex randbytes_base64);
ok(1);
         
ok((length(randbytes(5)) == 5) ? 1 : 0);
ok((length(randbytes_hex(5)) == 10) ? 1 : 0);
ok((length(randbytes_base64(5)) == 8) ? 1 : 0);

Revision:	1.1
Committed:	Sat Oct 27 01:53:24 2001 UTC (25 years 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 => 4 };
4			use OpenSSL::Rand qw(randbytes randbytes_hex randbytes_base64);
5			ok(1);
6
7			ok((length(randbytes(5)) == 5) ? 1 : 0);
8			ok((length(randbytes_hex(5)) == 10) ? 1 : 0);
9			ok((length(randbytes_base64(5)) == 8) ? 1 : 0);
10