#!perl
use strict;
use warnings;
use Test::More 'no_plan';

use Email::Sender;
use Email::Sender::Transport::DevNull;

my $xport = Email::Sender::Transport::DevNull->new;
ok($xport->does('Email::Sender::Transport'));
isa_ok($xport, 'Email::Sender::Transport::DevNull');

my $message = <<'END_MESSAGE';
From: sender@test.example.com
To: recipient@nowhere.example.net
Subject: this message is going nowhere fast

Dear Recipient,

  You will never receive this.

-- 
sender
END_MESSAGE

my $result = $xport->send($message);
isa_ok($result, 'Email::Sender::Success');