aboutsummaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2016-06-10 16:23:11 +0100
committerdakkar <dakkar@thenautilus.net>2016-06-10 16:23:11 +0100
commitc02ed5798379e907d6927f7a5542d893ce40446c (patch)
tree0f57ad678acfdca000a4aca07d5e3ebd397a8882 /t
parentkill useless line (diff)
downloadSietima-c02ed5798379e907d6927f7a5542d893ce40446c.tar.gz
Sietima-c02ed5798379e907d6927f7a5542d893ce40446c.tar.bz2
Sietima-c02ed5798379e907d6927f7a5542d893ce40446c.zip
test Subscriber
Diffstat (limited to 't')
-rw-r--r--t/tests/sietima/subscriber.t24
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;