OpenSSL/t/09_BN.t


use Test;
BEGIN { plan tests => 2 };
use OpenSSL::BN;
use OpenSSL::Name;
ok(1);

$x = new OpenSSL::BN('012345679' x 1000);
$x *= 9;

ok(($x =~ /^1+$/) ? 1 : 0);
Revision:	1.1
Committed:	Tue Oct 30 16:45:07 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::BN;
5			use OpenSSL::Name;
6			ok(1);
7
8			$x = new OpenSSL::BN('012345679' x 1000);
9			$x *= 9;
10
11			ok(($x =~ /^1+$/) ? 1 : 0);