diff options
author | dakkar <dakkar@thenautilus.net> | 2016-06-10 16:23:11 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2016-06-10 16:23:11 +0100 |
commit | c02ed5798379e907d6927f7a5542d893ce40446c (patch) | |
tree | 0f57ad678acfdca000a4aca07d5e3ebd397a8882 /t | |
parent | kill useless line (diff) | |
download | Sietima-c02ed5798379e907d6927f7a5542d893ce40446c.tar.gz Sietima-c02ed5798379e907d6927f7a5542d893ce40446c.tar.bz2 Sietima-c02ed5798379e907d6927f7a5542d893ce40446c.zip |
test Subscriber
Diffstat (limited to 't')
-rw-r--r-- | t/tests/sietima/subscriber.t | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/t/tests/sietima/subscriber.t b/t/tests/sietima/subscriber.t new file mode 100644 index 0000000..1f4c608 --- /dev/null +++ b/t/tests/sietima/subscriber.t @@ -0,0 +1,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; |