| 1 |
|
| 2 |
use Test; |
| 3 |
BEGIN { plan tests => 2 }; |
| 4 |
use OpenSSL::X509; |
| 5 |
use OpenSSL::Name; |
| 6 |
ok(1); |
| 7 |
|
| 8 |
$x = new OpenSSL::X509; |
| 9 |
$s = new OpenSSL::Name; |
| 10 |
$i = new OpenSSL::Name; |
| 11 |
|
| 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); |
