00-compile.t   [plain text]

#!/usr/bin/perl -w

use strict;

use Test::More;

my %deps =
    ( ApacheLog             => 'Apache::Log',
      File                  => '',
      'File::Locked'        => '',
      Handle                => '',
      Screen                => '',
      Syslog                => 'Sys::Syslog',
      'Email::MailSend'     => 'Mail::Send',
      'Email::MIMELite'     => 'MIME::Lite',
      'Email::MailSendmail' => 'Mail::Sendmail',
      'Email::MailSender'   => 'Mail::Sender',
    );

plan tests => 1 + scalar keys %deps;

use_ok('Log::Dispatch');

for my $subclass ( sort keys %deps )
{
    my $module = "Log::Dispatch::$subclass";

    if ( ! $deps{$subclass}
         ||
         ( eval "use $deps{$subclass}; 1" && ! $@ )
       )
    {
        use_ok($module);
    }
    else
    {
    SKIP:
        {
            skip "Cannot load $module without $deps{$subclass}", 1;
        }
    }
}