4 files changed, 30 insertions, 2 deletions
diff --git a/t/author-no-tabs.t b/t/author-no-tabs.t
index 169b4c9..8005d5e 100644
--- a/t/author-no-tabs.t
+++ b/t/author-no-tabs.t
@@ -27,6 +27,7 @@ my @files = (
     'lib/Sietima/Role/Headers.pm',
     'lib/Sietima/Role/ManualSubscription.pm',
     'lib/Sietima/Role/NoMail.pm',
+    'lib/Sietima/Role/NoSpoof.pm',
     'lib/Sietima/Role/ReplyTo.pm',
     'lib/Sietima/Role/SubjectTag.pm',
     'lib/Sietima/Role/SubscriberOnly.pm',
@@ -51,6 +52,7 @@ my @files = (
     't/tests/sietima/role/headers.t',
     't/tests/sietima/role/manualsubscription.t',
     't/tests/sietima/role/nomail.t',
+    't/tests/sietima/role/nospoof.t',
     't/tests/sietima/role/replyto.t',
     't/tests/sietima/role/subject-tag.t',
     't/tests/sietima/role/subscriberonly/drop.t',
diff --git a/t/author-pod-coverage.t b/t/author-pod-coverage.t
index 243340f..09473df 100644
--- a/t/author-pod-coverage.t
+++ b/t/author-pod-coverage.t
@@ -8,7 +8,8 @@ BEGIN {
 }
 
 # This file was automatically generated by Dist::Zilla::Plugin::PodCoverageTests.
-
+use strict;
+use warnings;
 use Test::Pod::Coverage 1.08;
 use Pod::Coverage::TrustPod;
 
diff --git a/t/lib/Test/Sietima.pm b/t/lib/Test/Sietima.pm
index 79f3b7a..e20aacf 100644
--- a/t/lib/Test/Sietima.pm
+++ b/t/lib/Test/Sietima.pm
@@ -171,7 +171,7 @@ sub run_cmdline_sub($sietima,$method,$options={},$parameters={}) {
         cmd => $sietima,
         op => $method,
     });
-    $r->response(App::Spec::Run::Response->new);
+    $r->response(App::Spec::Run::Response->new(buffered=>1));
     ok(
         lives { $sietima->$method($r) },
         "calling $method should live",
diff --git a/t/tests/sietima/role/nospoof.t b/t/tests/sietima/role/nospoof.t
new file mode 100644
index 0000000..6f30635
--- /dev/null
+++ b/t/tests/sietima/role/nospoof.t
@@ -0,0 +1,25 @@
+#!perl
+use lib 't/lib';
+use Test::Sietima;
+
+my $s = make_sietima(
+    with_traits => ['NoSpoof'],
+    subscribers => [
+        'one@users.example.com',
+        'two@users.example.com',
+    ],
+);
+
+test_sending(
+    sietima => $s,
+    mail => {
+        from => 'a user <one@users.example.com>',
+    },
+    mails => [
+        object {
+            call [ header_str => 'from' ] => '"a user" <'.$s->return_path->address.'>';
+        },
+    ],
+);
+
+done_testing;