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 *
#	Content
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