The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl
use strict;
use warnings;

use English qw( -no_match_vars );
use Test::More;

use lib 'lib';
use Mail::Toaster;
my $toaster = Mail::Toaster->new(debug=>0);

if ( lc( $OSNAME ) ne "darwin" ) {
    plan skip_all => "OS is not Darwin";
}
else {
    plan 'no_plan';
};

require_ok('Mail::Toaster::Darwin');

ok( Mail::Toaster::Darwin->new( toaster => $toaster ), 'new darwin object' );