OpenSSL/t/08_X509.t


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

$x = new OpenSSL::X509;
$s = new OpenSSL::Name;
$i = new OpenSSL::Name;

$s->add('CN', 'Common Name of Subject');
$s->add('C', 'AT');
$s->add('O', 'Wappla Inc.');
$s->add('OU', 'Wappla Inc., Toilet cleaning department');
$s->add('Email', 'wappla@wappla.org');

$i->add('CN', 'CN of CA');
$i->add('C', 'PE');
$i->add('O', 'Toilet Trustcenter Inc.');
$i->add('OU', 'Toilet Trustcenter, Toilet Paper department');
$i->add('Email', "ca$_\@ca.org") for (1..10);

$x->set_subject($s);
$x->set_issuer($i);

@a = $i->getall;
pop @a;

ok(1);
Revision:	1.2
Committed:	Sat Oct 27 02:57:56 2001 UTC (24 years, 11 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	BEFORE_5_8_REGEX_FIX, HEAD
Changes since 1.1:	+4 -4 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	stefan	1.1
2			use Test;
3			BEGIN { plan tests => 2 };
4			use OpenSSL::X509;
5	root	1.2	use OpenSSL::Name;
6	stefan	1.1	ok(1);
7
8	root	1.2	$x = new OpenSSL::X509;
9			$s = new OpenSSL::Name;
10			$i = new OpenSSL::Name;
11	stefan	1.1
12			$s->add('CN', 'Common Name of Subject');
13			$s->add('C', 'AT');
14			$s->add('O', 'Wappla Inc.');
15			$s->add('OU', 'Wappla Inc., Toilet cleaning department');
16			$s->add('Email', 'wappla@wappla.org');
17
18			$i->add('CN', 'CN of CA');
19			$i->add('C', 'PE');
20			$i->add('O', 'Toilet Trustcenter Inc.');
21			$i->add('OU', 'Toilet Trustcenter, Toilet Paper department');
22			$i->add('Email', "ca$_\@ca.org") for (1..10);
23
24			$x->set_subject($s);
25			$x->set_issuer($i);
26
27			@a = $i->getall;
28			pop @a;
29
30			ok(1);