File: defined.t

package info (click to toggle)
libemail-messageid-perl 1.35-2
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 68 kB
  • ctags: 9
  • sloc: makefile: 45; perl: 40
file content (18 lines) | stat: -rw-r--r-- 541 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
use Test::More tests => 8;

use_ok 'Email::MessageID';

my ($user, $host) = ('fred', 'barney');

my $mid_user = Email::MessageID->new(user => $user);
isa_ok $mid_user, 'Email::Address';
is $mid_user->user, $user, "$user set";

my $mid_host = Email::MessageID->new(host => $host);
isa_ok $mid_host, 'Email::Address';
is $mid_host->host, $host, "$host set";

my $mid_both = Email::MessageID->new(user => $user, host => $host);
isa_ok $mid_both, 'Email::Address';
is $mid_both->user, $user, "$user set";
is $mid_both->host, $host, "$host set";