[Bug 1083418] perl-Log-Dispatch-2.41-1.fc21 FTBFS

bugzilla at redhat.com bugzilla at redhat.com
Wed Apr 2 08:37:48 UTC 2014


https://bugzilla.redhat.com/show_bug.cgi?id=1083418



--- Comment #1 from Petr Pisar <ppisar at redhat.com> ---
It's because emitting TAP messages after undefining Log::Dispatch object. E.g.
here:

# Log::Dispatch::Email::MIMELite
SKIP:
{   

    skip "Cannot do MIMELite tests", 1
        unless $tests{MIMELite} && $TestConfig{email_address};

    my $dispatch = Log::Dispatch->new;

    $dispatch->add(
        Log::Dispatch::Email::MIMELite->new(
            name      => 'Mime::Lite',
            min_level => 'debug',
            to        => $TestConfig{email_address},
            subject   => 'Log::Dispatch test suite'
        )
    );

    $dispatch->log(
        level => 'emerg',
        message =>
            "MIME::Lite - If you can read this then the test succeeded (PID
$$)"
    );

    diag(
        "Sending email with MIME::Lite to $TestConfig{email_address}.\nIf you
get it then the test succeeded (PID $$)\n"
    );
    undef $dispatch;

    ok( 1, 'sent mail via MIMELite' );
}

The 'sent mail via MIMELite', the first doubled TAP message, gets doubled
because it is invoked after undef $dispatch.

-- 
You are receiving this mail because:
You are on the CC list for the bug.
Unsubscribe from this bug https://bugzilla.redhat.com/token.cgi?t=nGgul1Cd6s&a=cc_unsubscribe



More information about the perl-devel mailing list