t/tests/sietima/subscriber.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

#!perl 
use strict;
use warnings;
use 5.020;
use Test2::Bundle::Extended;
use Test2::Plugin::DieOnFail;
use Sietima::Subscriber;
 
my $s = Sietima::Subscriber->new(
    raw_address => 'Gino (pino) <gino@pino.example.com>',
);
 
is(
    $s,
    object {
        call address => 'gino@pino.example.com';
        call name => 'Gino';
        call original => 'Gino (pino) <gino@pino.example.com>';
        call prefs => {};
    },
    'construction and delegation should work',
);
 
done_testing;