OpenSSL/t/07_Name.t


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

$n = new OpenSSL::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.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:	+2 -2 lines
Log Message:	* empty log message *
#	Content
1
2	use Test;
3	BEGIN { plan tests => 3 };
4	use OpenSSL::Name;
5	ok(1);
6
7	$n = new OpenSSL::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);