OpenSSL/t/07_Name.t


use Test;
BEGIN { plan tests => 3 };
use OpenSSL::Name qw(new_name);
ok(1);

$n = new_name;

$n->add('Email', '<stefan@hello-penguin.com>');
$n->add('Email', "<stefan$_\@hello-penguin.com>") for (1..10);
ok(1);

$n->add(47, 'oesi@plan9.de');
ok(1);
Revision:	1.1
Committed:	Sat Oct 27 01:53:25 2001 UTC (24 years, 11 months ago) by stefan
Content type:	application/x-troff
Branch:	MAIN
Log Message:	* empty log message *
#	User	Rev	Content
1	stefan	1.1
2			use Test;
3			BEGIN { plan tests => 3 };
4			use OpenSSL::Name qw(new_name);
5			ok(1);
6
7			$n = new_name;
8
9			$n->add('Email', '<stefan@hello-penguin.com>');
10			$n->add('Email', "<stefan$_\@hello-penguin.com>") for (1..10);
11			ok(1);
12
13			$n->add(47, 'oesi@plan9.de');
14			ok(1);