root/trunk/t/77_send_email.t

use strict;
use OpenGuides::Config;
use OpenGuides::Utils;
use Test::More;

plan tests => 6;

my $config = OpenGuides::Config->new(
    vars => {
        contact_email => 'admin@example.com'
    }
);

my $output = OpenGuides::Utils->send_email(
    config        => $config,
    return_output => 1,
    to            => [ 'user@example.com' ],
    subject       => 'Test subject',
    body          => 'Test body'
);

like( $output, qr|^From: admin\@example\.com|m, "From address shown" );
like( $output, qr|^To: user\@example\.com|m, "To address shown correctly" );
like( $output, qr|^Subject: Test subject|m, "Subject shown correctly" );
like( $output, qr|^Test body|m, "Body text appears at the start of a line" );

$output = OpenGuides::Utils->send_email(
    config        => $config,
    return_output => 1,
    admin         => 1,
    subject       => 'Test subject',
    body          => 'Test body'
);

like( $output, qr|^To: admin\@example\.com|m, "Admin address used ".
    "appropriately" );

eval { $output = OpenGuides::Utils->send_email(
    config        => $config,
    return_output => 1,
    subject       => 'Test subject',
    body          => 'Test body'
); };

like( $@, qr|No recipients specified|, "No recipients error caught" );