view release on metacpan or  search on metacpan

t/16-handle-email-smtp.t  view on Meta::CPAN

#!perl

#use Data::Dumper;
use Log::Fine;
use Log::Fine::Formatter::Template;
use Log::Fine::Levels::Syslog qw( :macros :masks );
use Test::More;

use constant DEFAULT_EMAIL_WAIT_TIME => 5;

{

        $ENV{ENABLE_AUTHOR_TESTS} = 0
            unless defined $ENV{ENABLE_AUTHOR_TESTS};

        $ENV{EMAIL_WAIT_TIME} = DEFAULT_EMAIL_WAIT_TIME
            unless defined $ENV{EMAIL_WAIT_TIME};

        # Check environmental variables
        plan skip_all => "these tests are for testing by the author"
            unless $ENV{ENABLE_AUTHOR_TESTS};
        plan skip_all => "cannot test SMTP under MSWin32 or cygwin"
            if (($^O eq "MSWin32") || ($^O eq "cygwin"));
        plan skip_all => "Email handle only supported in perl 5.8.3 or above"
            if $^V lt v5.8.3;
        plan skip_all => "Unset EMAIL_SENDER_TRANSPORT prior to running this test"
            if defined $ENV{EMAIL_SENDER_TRANSPORT};

        # See if we have Email::Sender installed
        eval "require Email::Sender";

        if ($@) {
                plan skip_all => "Email::Sender is not installed.  Unable to test Log::Fine::Handle::Email";
        } else {

                eval "require Mail::RFC822::Address";

                if ($@) {
                        plan skip_all => "Mail::RFC822::Address is not installed";
                } else {
                        plan tests => 6;
                }
        }

        use_ok("Log::Fine::Handle::Email");

        # Load appropriate modules
        require Email::Sender::Simple;
        require Email::Sender::Transport::SMTP;

        my $user =
            sprintf('%s@localhost', getlogin() || getpwuid($<) || "nobody");
        my $log = Log::Fine->logger("email0");

        isa_ok($log, "Log::Fine");

        # Create a formatter for subject line
        my $subjfmt =
            Log::Fine::Formatter::Template->new(name             => 'email-subject',
                                                template         => "%%LEVEL%% : Test of Log::Fine::Handle::Email",
                                                timestamp_format => '%c',
            );

        # Create a formatted msg template
        my $msgtmpl = <<EOF;
This is a test of Log::Fine::Handle::Email.  The following message was
delivered on %%TIME%%:

--------------------------------------------------------------------
%%MSG%%
--------------------------------------------------------------------

This is only a test.  Thank you for your patience.

/Chris

EOF

        my $bodyfmt =
            Log::Fine::Formatter::Template->new(name     => 'email-body',
                                                template => $msgtmpl);

        isa_ok($subjfmt, "Log::Fine::Formatter::Template");
        isa_ok($bodyfmt, "Log::Fine::Formatter::Template");

        # Register an email handle
        my $handle =
            Log::Fine::Handle::Email->new(name              => 'email11',
                                          mask              => LOGMASK_EMERG | LOGMASK_ALERT | LOGMASK_CRIT,
                                          subject_formatter => $subjfmt,
                                          body_formatter    => $bodyfmt,
                                          header_from       => $user,
                                          header_to         => $user,
            );

        isa_ok($handle, "Log::Fine::Handle::Email");

        # Register the handle
        $log->registerHandle($handle);

        # Grab number of messages
        my $msg_t1 = mailGetCount();

        $log->log(DEBG, "Debugging $0");
        $log->log(CRIT, "Beware the weeping angels");

        # Give sendmail a chance to deliver
        print STDERR "---- Sleeping for $ENV{EMAIL_WAIT_TIME} seconds";
        sleep $ENV{EMAIL_WAIT_TIME};

        my $msg_t2 = mailGetCount();